Private Function getmutipinyin(str As String) As String
Dim strtemp As String, i As Long
strtemp = ""
For i = 1 To Len(str)
strtemp = strtemp & getsinglepinyin(Asc(Mid(str, i, 1)))
Next
getmutipinyin = strtemp
End Function
Private Sub Command1_Click()
Dim stemp As String
stemp = Text1.Text
Text2.Text = getmutipinyin(stemp)
End Sub
Private Sub Form_Load()
Call createDictionary
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set d = Nothing
End Sub