阡陌暮的部落格

'汉字转拼音
Public Function py(mystr As String) As String
 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("芭") Then
      py = "A"
      Exit Function
   End If
[separator]
   If Asc(Left(mystr, 1)) >= Asc("芭") And Asc(Left(mystr, 1)) < Asc("擦") Then
      py = "B"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("擦") And Asc(Left(mystr, 1)) < Asc("搭") Then
      py = "C"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("搭") And Asc(Left(mystr, 1)) < Asc("蛾") Then
      py = "D"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("蛾") And Asc(Left(mystr, 1)) < Asc("发") Then
      py = "E"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("发") And Asc(Left(mystr, 1)) < Asc("噶") Then
      py = "F"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("噶") And Asc(Left(mystr, 1)) < Asc("哈") Then
      py = "G"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("哈") And Asc(Left(mystr, 1)) < Asc("击") Then
      py = "H"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("击") And Asc(Left(mystr, 1)) < Asc("喀") Then
      py = "J"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("喀") And Asc(Left(mystr, 1)) < Asc("垃") Then
      py = "K"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("垃") And Asc(Left(mystr, 1)) < Asc("妈") Then
      py = "L"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("妈") And Asc(Left(mystr, 1)) < Asc("拿") Then
      py = "M"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("拿") And Asc(Left(mystr, 1)) < Asc("哦") Then
      py = "N"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("哦") And Asc(Left(mystr, 1)) < Asc("啪") Then
      py = "O"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("啪") And Asc(Left(mystr, 1)) < Asc("期") Then
      py = "P"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("期") And Asc(Left(mystr, 1)) < Asc("然") Then
      py = "Q"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("然") And Asc(Left(mystr, 1)) < Asc("撒") Then
      py = "R"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("撒") And Asc(Left(mystr, 1)) < Asc("塌") Then
      py = "S"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("塌") And Asc(Left(mystr, 1)) < Asc("挖") Then
      py = "T"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("挖") And Asc(Left(mystr, 1)) < Asc("昔") Then
      py = "W"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("昔") And Asc(Left(mystr, 1)) < Asc("压") Then
      py = "X"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("压") And Asc(Left(mystr, 1)) < Asc("匝") Then
      py = "Y"
      Exit Function
   End If
   If Asc(Left(mystr, 1)) >= Asc("匝") Then
      py = "Z"
      Exit Function
   End If
 Else
   If UCase(mystr) <= "Z" And UCase(mystr) >= "A" Then
      py = UCase(Left(mystr, 1))
     Else
      py = mystr
   End If
 End If

End Function
'汉字转拼音完

Private Sub Text1_Change()'text1l输入时在label1中即时显示拼音
 If Option1.Value = True Then
    Label1.Caption = ""
    Dim a As Integer
    a = Len(Text1.Text)
    For i = 1 To a
        Label1.Caption = Label1.Caption & py(Mid(Text1.Text, i, 1))
    Next i
 End If
End Sub

Private Sub Command1_Click()'按command1后在label1显示拼音
 Dim a As Integer
 Label1.Caption = ""
 a = Len(Text1.Text)
 For i = 1 To a
     Label1.Caption = Label1.Caption & py(Mid(Text1.Text, i, 1))
 Next i
End Sub