我将此方法移植到VB.NET上了,请看源码(二)

Return pyStr

End If

End Function

#End Region

#Region "由汉字到拼音"

Public Shared Function GetHzToPy(ByVal HzStr As String, _

Optional ByVal ToneValue As Integer = 0, _

Optional ByVal IsComp As Boolean = False) As String

@#ByVal toneValue As Integer, _

If HzStr.Length = 0 Then Exit Function

If PyList.Count = 0 Then LoadPyChars()

mIsCompelled = IsComp

If mIsCompelled Then

Else

Dim tmpStr As String = ""

Dim i As Integer

Dim num As Integer

For i = 1 To HzStr.Length

num = Asc(HzStr)

Debug.WriteLine(num.ToString)

tmpStr = GetPyChars(num)

tmpStr = GetPyToPy(tmpStr & ToneValue)

Return tmpStr

Next

End If

End Function

Private Shared Function GetPyChars(ByVal num As Integer) As String