16,717
社区成员
发帖
与我相关
我的任务
分享
Imports Microsoft.International.Converters.PinYinConverter
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim chineseChar = New ChineseChar(CChar("宋"))
Dim r As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = chineseChar.Pinyins
Dim str As String = String.Empty
MsgBox(r.Item(0))
End Sub
End Class