Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'ASCIIとUnicode以外のエンコーディングが、
'サポートされなくかっているので以下のお呪いを記述。
'Shift-JISを使う前に、
'Encoding.RegisterProvider()をコールすればShift-JISが使える。
'ところが、公開しているプログラムは記述しないで完成しています。
'その後プロジェクト名を修正していて処理がややこしくてデータを
'壊してしまったので作り直したかエラーとなりました。
'謎すぎます。
System.Text.Encoding.RegisterProvider(System.Text.CodePagesEncodingProvider.Instance)
'TextBox1をキャラクターに、
'16進数のShift-JISコードとUnicodeを文字列に変換
Dim a As Char = TextBox1.Text
Dim b As String = Hex(Asc(a))
Dim c As String = Hex(AscW(a))
'TextBox1に何も入れずに［文字コードを表示］をクリックしたら、
'「確認したい文字に文字を入力してください」をLabel5に表示
If TextBox1.Text = Nothing Then
Label5.Text = "確認したい文字に文字を入力してください"
Exit Sub
End If
'Label5をリセットし、
'入力された文字が全角文字なら6進数下4桁を表示。
'そうでなければそのまま16進数を表示。
Label5.ResetText()
Dim OutputString As String
OutputString = b
If b.Length >= 8 Then
Label1.Text = b.Substring(4, 4)
Label2.Text = c
Else
Label1.Text = b
Label2.Text = c
End If
End Sub
-----------------Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'TextBox1、 Label1、 Label2をリセット
TextBox1.ResetText()
Label1.ResetText()
Label2.ResetText()
End Sub
End Class
