tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。