用vb如何实现将汉字转换成拼音

public string hz2py(string hz) //获得汉字的区位码 { byte[] sarr = System.Text.Encoding.Default.GetBytes(hz);int len = sarr.Length;if (len>1){ byte[] array = new byte[2];array = System.Text.Encoding.Default.GetBytes(hz);int i1 = (short)(array[0] - '\0');int i...

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

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

'在窗口中加两个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 ...

Next i End Sub Public Function py(mystr As String) As String i = Asc(mystr)Select Case i Case -20319 To -20284: py = "A"Case -20283 To -19776: py = "B"Case -19775 To -19219: py = "C"Case -19218 To -18711: py = "D"Case -18710 To -18527: py = "E"Case...

微软拼音输入法”,返回一个空格 GetChineseSpell = " "End If Else GetChineseSpell = "" ''输入为空字符串 End If End Function '下面是窗体代码:Private Sub Command1_Click()Print GetChineseSpell("孢孚", 2)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”。

= "十转汉"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 ...

'wtoa是把中文字符串转换成首字母的函数 '你可以新建一个文本框和按钮试一下 Function wtoa(ByVal word As String) As String Dim i As Integer, j As Integer, k As Integer Const s = "A阿B芭C擦D搭E蛾F发G噶H哈J击K喀L垃M妈N拿O哦P啪Q期R然S撒T塌W挖X昔Y压Z匝"For j =...