中文簡體和繁體轉換
本帖最后由 diddom 于 2012-5-23 20:28 编辑'for VBnet
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Dim CompName As String = New String(" ", 32) '* 32
Dim CompName_w As String = New String(" ", 16) '* 32
Dim GBS As String
Dim GBT As String
Dim Strlen As Integer
Dim strArray() As Byte
Dim MyEncoder As New System.Text.UnicodeEncoding
Dim Buf1 As String = ToolStripTextBox1.Text
strArray = MyEncoder.GetBytes(Buf1)
Strlen = strArray.Length
GBT = New String(" ", Strlen)
GBT = StrConv(Buf1, VbStrConv.TraditionalChinese, &H804)
ToolStripTextBox1.Text = GBT
My.Computer.Clipboard.SetText(GBT)
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
Dim CompName As String = New String(" ", 32) '* 32
Dim CompName_w As String = New String(" ", 16) '* 32
Dim GBS As String
Dim GBT As String
Dim Strlen As Integer
Dim strArray() As Byte
Dim MyEncoder As New System.Text.UnicodeEncoding
Dim Buf1 As String = ToolStripTextBox1.Text
strArray = MyEncoder.GetBytes(Buf1)
Strlen = strArray.Length
GBS = New String(" ", Strlen)
GBS = StrConv(Buf1, VbStrConv.SimplifiedChinese, &H804)
ToolStripTextBox1.Text = GBS
My.Computer.Clipboard.SetText(GBS)
End Sub
页:
[1]