Microsoft Visual Studio International Feature Pack 2.0 實作繁簡轉換

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