タイトル : Re^2: 区点コードからの文字入力 投稿日 : 2011/09/07(Wed) 21:05 投稿者 : 魔界の仮面弁士
> ・両バイトに&HA0足してEUC-JPのG1扱いにしてEncoding.GetEncoding("EUC-JP").GetStringに渡す Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim 区点 As Integer If Integer.TryParse(TextBox1.Text, 区点) Then Dim 区番号 As Byte = CByte((区点 \ 100) And &HFF) Dim 点番号 As Byte = CByte(区点 Mod 100) Dim euc() As Byte = {CByte((区点 \ 100) + &HA0), CByte((区点 Mod 100) + &HA0)} TextBox2.Text = System.Text.Encoding.GetEncoding("euc-jp").GetString(euc) Else TextBox2.Clear() End If End Sub |