- 博客(1)
- 资源 (5)
- 收藏
- 关注
原创 VB 6验证输入中文字符
Private Sub Text7_Change()Dim gbasciiIf Len(Trim(Text7.Text)) > 0 ThenIf Asc(Text7.Text) gbascii = AscB(StrConv(Text7.Text, vbFromUnicode)) 区位码在16区之后的为汉字 If gbascii - 160 > 15 Then
2008-02-27 19:36:00 727
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人