VB 汉字拼音及声调

 

1. Private Sub Command1_Click()
2.     Text2 = "全拼+声调：" & GetChineseSpell(Text1, 0) & vbCrLf & "全拼：" & GetChineseSpell(Text1, 1) & vbCrLf & "拼音首字母：" & GetChineseSpell(Text1, 2)
3. End Sub
5. '===================================
7. Option Explicit
9. Private Const IME_ESC_MAX_KEY = 
10. Private Const IME_ESC_IME_NAME = 
11. Private Const GCL_REVERSECONVERSION = 
12. Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, lpList As Long) As Long
13. Private Declare Function ImmEscape Lib "imm32.dll" Alias "ImmEscapeA" (ByVal hkl As Long, By