Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mypy As New chinese.MyxChinese
TextBox2.Text = mypy.MakeSpellCode(TextBox1.Text, DropDownList1.SelectedItem.Value)
End Sub
注：其中124是字符处理方式，试一下就知道了
以下地址下载chinese.dll文件
http://bbs.fbm.com.cn/bbs/UpFile/File/2004_4_16_55509aa5.rar
