1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 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 |
1 2 3 4 5 6 7 8 9 10 11 12 13 | 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 |
沒有留言:
張貼留言