|
クリップボードから画像を取得して表示する
|
テキストファイルをSift_Jisで保存し、読み込む
'テキストファイルをSift_Jisで保存し、読み込む
'サンプルコード
Imports System.IO
Imports System.Text
Public Class Form1
'書き込み用のボタン押下
Private Sub Button1_Click( ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
SaveFileDialog1.Filter = "テキストファイル(*.txt)|*.txt|すべてのファイル(*.*)|*.*"
SaveFileDialog1.Title = "ファイルの保存"
SaveFileDialog1.ShowDialog()
'UTF-8Shift_Jisに変換
Dim ecShift_Jis As Encoding = Encoding.GetEncoding( "Shift_JIS" )
Dim writer As New StreamWriter(SaveFileDialog1.FileName, False , ecShift_Jis)
Try
'テキストボックスに書かれた文字をShift_Jisで保存する
writer.Write(TextBox1.Text)
Catch ex As Exception
MsgBox( "ファイルは保存できません" & Environment.NewLine & ex.Message)
Finally
writer.Close()
End Try
End Sub
'読み込み用のボタン押下
Private Sub Button2_Click( ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button2.Click
OpenFileDialog1.Filter = "テキストファイル(*.txt)|*.txt|すべてのファイル(*.*)|*.*"
OpenFileDialog1.Title = "ファイルの読み込み"
OpenFileDialog1.ShowDialog()
Dim ecShift_Jis As Encoding = Encoding.GetEncoding( "Shift_JIS" )
Dim reader As New StreamReader(OpenFileDialog1.FileName, ecShift_Jis)
Try
'Shift_Jisファイルから読み込みテキストボックスに表示する
TextBox2.Text = reader.ReadToEnd
Catch ex As Exception
MsgBox( "ファイルは読み込めません" & Environment.NewLine & ex.Message)
Finally
reader.Close()
End Try
End Sub
End Class
