中文簡體和繁體轉換

diddom

'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