- 博客(3)
- 资源 (4)
- 收藏
- 关注
原创 汉字转拼音
Public MustInherit Class HanziToPinyin Public Shared Function gGetPinYin(ByVal strHanZi As String) As String Dim objPinYinDic As Object objPinYinDic = CreateObject("Scr
2009-05-15 20:47:00 457
原创 取汉字首字母
Public Function hz2py(ByVal hz As String) As String Dim sarr As Byte() = System.Text.Encoding.Default.GetBytes(hz) Dim len As Integer = sarr.Length If len > 1 Then
2009-05-15 20:46:00 269
原创 只允许输入数字
Public Function szJudge(ByVal varStr As String) 只允许输入数字 If varStr "" Then Dim strLen As Integer = varStr.Length - 1 If Asc(varStr.Substring(strLen, 1)) Or Asc
2009-05-15 20:43:00 241
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人