201110242338用vb.net自製一個簡繁互換!!不用再開Word去互換




用vb.net自製一個免安裝祇有69.5k簡繁字互換程式!!
做簡繁互換不用再開肥胖的Word去互換!!
是用richtextbox所以沒有字數的限制!!






Dim strSC, strTC As String
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        '繁-->簡
        strTC = RichTextBox1.Text
        '繁體系統
        If RadioButton3.Checked = True Then
            strSC = StrConv(strTC, VbStrConv.SimplifiedChinese, 2052) '繁转简
        End If
        '簡體系統
        If RadioButton4.Checked = True Then
            strSC = StrConv(strTC, VbStrConv.SimplifiedChinese, 1028) '繁转简
        End If
        RichTextBox2.Text = strSC
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        '簡-->繁
        strSC = RichTextBox1.Text
        '繁體系統
        If RadioButton3.Checked = True Then
            strTC = StrConv(strSC, VbStrConv.TraditionalChinese, 2052) '简转繁
        End If
        '簡體系統
        If RadioButton4.Checked = True Then
            strTC = StrConv(strSC, VbStrConv.TraditionalChinese, 1028) '简转繁
        End If
        RichTextBox2.Text = strTC
    End Sub

檔案下載官網

回應
關鍵字
    沒有新回應!





Powered by Xuite