'汉字转换成拼音
比如：“张三100”,可以生成"zs100"
Public Function HzTopy(ByVal mystr As String) As String
Dim i As Integer
Dim J As Integer
Dim Pstr As String = String.Empty
Dim Py As String =string.empty
Dim k As Integer = String.Empty
Try
k = Len(mystr)
For J = 1 To k
i = Asc(Mid(mystr,J,1))
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 -18526 To -18240 : Py = "F"
Case -18239 To -17923 : Py = "G"
Case -17922 To -17418 : Py = "H"
Case -17417 To -16475 : Py = "J"
Case -16474 To -16213 : Py = "K"
Case -16212 To -15641 : Py = "L"
Case -15640 To -15166 : Py = "M"
Case -15165 To -14923 : Py = "N"
Case -14922 To -14915 : Py = "O"
Case -14914 To -14631 : Py = "P"
Case -14630 To -14150 : Py = "Q"
Case -14149 To -14091 : Py = "R"
Case -14090 To -13319 : Py = "S"
Case -13318 To -12839 : Py = "T"
Case -12838 To -12557 : Py = "W"
Case -12556 To -11848 : Py = "X"
Case -11847 To -11056 : Py = "Y"
Case -11055 To -10247 : Py = "Z"
Case Else : Py = CStr(Chr(i))
End Select
Pstr = Pstr & Py
Next
HzTopy = Pstr
Catch ex As Exception
msgBox ("转成失败！")
Return String.Empty
End Try
End Function