在vb中怎样实现汉字和拼音的转换

只能用数据库的形式，如果你对GB2312编码有研究的话，你会知道，它的码表是按换汉语拼音来排的，这样你做数据库的时候可以参考GB2312的标准，可以把数据库设计得稍微简单那么一点点。

好像没有这样的，不过你可以做一个读取文件的程序，当然为了方便，你可以事先写一个程序：界面上放二个文本框，一个按钮，第一个文本框里写你要编码的字，第二个框内写编码即拼音，然后按钮用来用两个文本框内的字符存入一个文件，然后反过来做一个程序，就是写一输入一个字，然后点查询，在第二框...

Ctrl+空隔或Ctrl+Shift转换使用。

'在窗口中加两个TEXT控件,一个输入中文,一个显示英文 Private Sub Form_Load()Text1.Text = "转汉语拼音"End Sub Private Sub Command1_Click()Text2.Text = GetPY(Text1.Text)End Sub '获得输入名称的首字拼音 Private Function GetPY(ByVal strParmeter As String) As String Dim intTmp ...

= "十转汉"Else MsgBox "请输入中文汉字"End If Else If Val(Text1.Text) >= 45217 And Val(Text1.Text) <= 63486 Then a = Val(Text1.Text)h = Hex(a)Text1.Text = Chr(a)Command1.Caption = "汉转十"Else MsgBox "请输入45217-63486之间的数字"End If End If end sub ...

首先将汉字转为Ascii码数组，然后对Ascii码数组排序。再将Ascii码数组转换为字符，大功告成了。以下代码经测试完全正确。Dim lASC(j) As Long Private Sub Command1_Click()Dim i As Long, j As Long, k As Long Dim r As Long Dim fs As String fs = Text1.Text j = Len(fs) - 1 R...

建立数据库,写入汉字以及它对应的拼音,语音资料,当给定汉字时就在数据库中查询相应的信息.大体思路就是这样,对于如何连接数据库,如何查询这些说来话多了.需要你自己查询了,实在不行找人编,估计花不了多少钱

你的意思是比如数据库中是：“张杰”，我输入“章杰”也能查到“张杰”。这个好解决。只需要把“章杰”的拼音码通过函数取得，然后再用拼音码去查，当然数据录入的时候，会有一个字段来记录人名的拼音码的，比如“张杰”这条记录，有一个字段来记录“ZHANGJIE”。

Private Declare Function icePub_dictionaryCodeTransfer Lib "icePubDll.dll" (ByVal strDictionaryFilename As String,ByVal strSrc As String,ByVal strCode As String) As Integer Dim a2 As Integer Dim strCode As String strCode=Space(1024)a2=icePub_dictionaryCodeTransfer("拼音字典.txt","...

Private Function py(mystr As String) As String '获得汉字的拼音简码 On Error Resume Next If Asc(mystr) < 0 Then If Asc(Left(mystr, 1)) < Asc("啊") Then py = "0"Exit Function End If If Asc(Left(mystr, 1)) >= Asc("啊") And Asc(Left(mystr, 1)) < Asc(...