http://zip.nvp.com.tw/forum.php?mod=viewthread&tid=853&extra=page%3D37
Imports Microsoft.International.Converters.TraditionalChineseToSimplifiedConverter Public Class Form1 Dim fg As Boolean = True Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = ChineseConverter.Convert(Label1.Text, IIf(fg, ChineseConversionDirection.TraditionalToSimplified, ChineseConversionDirection.SimplifiedToTraditional)) Button1.Text = ChineseConverter.Convert(Button1.Text, IIf(fg, ChineseConversionDirection.TraditionalToSimplified, ChineseConversionDirection.SimplifiedToTraditional)) fg = Not fg End Sub End Class |