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是字符处理方式,试一下就知道了
![](/Emoticons/red_smile.gif)
以下地址下载chinese.dll文件
http://bbs.fbm.com.cn/bbs/UpFile/File/2004_4_16_55509aa5.rar