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

Get

Return mIsCompelled

End Get

Set(ByVal Value As Boolean)

mIsCompelled = Value

End Set

End Property

Public Shared PyList As New System.Collections.SortedList()

#Region "拼音列表集合"

Public Shared Function LoadPyChars() As System.Collections.SortedList

If PyList.Count > 0 Then Exit Function

PyList.Add("a", -20319)

PyList.Add("ai", -20317)

PyList.Add("an", -20304)

PyList.Add("ang", -20295)

PyList.Add("ao", -20292)

PyList.Add("ba", -20283)

PyList.Add("bai", -20265)

PyList.Add("ban", -20257)

PyList.Add("bang", -20242)

PyList.Add("bao", -20230)

PyList.Add("bei", -20051)

PyList.Add("ben", -20036)