VB开发——如何实现只允许输入汉字的文本框
2006-04-05 21:38
489 查看
Private Sub SrcTxt_Change()
Static SStr As String
Dim i As Integer
TotalNum = 0
L = Len(SrcTxt.Text)
For i = 1 To L
tmpStr = StrConv(Mid$(SrcTxt.Text, i, 1), vbWide)
If Asc(Mid$(SrcTxt.Text, i, 1)) < 0 Then
TotalNum = TotalNum + 1
SStr = SrcTxt.Text
Else
MsgBox "写入的不是汉字!"
SrcTxt.Text = Left(SrcTxt.Text, Len(SrcTxt.Text) - 1)
Exit Sub
End If
Next i
LblNum.Caption = Str$(TotalNum) + "个汉字"
End Sub
使用了change属性,可是实时的判断。
还顺便发现了几篇文章和资料,一起摘录过来了
关于VB操作Excel的:
http://blog.csdn.net/rainsnow/archive/2005/01/04/239385.aspx
http://blog.csdn.net/evanju/archive/2005/02/16/289557.aspx
http://blog.csdn.net/lwjvince/archive/2006/03/10/620942.aspx
Excel Home
http://www.excelhome.net/Index.html
Static SStr As String
Dim i As Integer
TotalNum = 0
L = Len(SrcTxt.Text)
For i = 1 To L
tmpStr = StrConv(Mid$(SrcTxt.Text, i, 1), vbWide)
If Asc(Mid$(SrcTxt.Text, i, 1)) < 0 Then
TotalNum = TotalNum + 1
SStr = SrcTxt.Text
Else
MsgBox "写入的不是汉字!"
SrcTxt.Text = Left(SrcTxt.Text, Len(SrcTxt.Text) - 1)
Exit Sub
End If
Next i
LblNum.Caption = Str$(TotalNum) + "个汉字"
End Sub
使用了change属性,可是实时的判断。
还顺便发现了几篇文章和资料,一起摘录过来了
关于VB操作Excel的:
http://blog.csdn.net/rainsnow/archive/2005/01/04/239385.aspx
http://blog.csdn.net/evanju/archive/2005/02/16/289557.aspx
http://blog.csdn.net/lwjvince/archive/2006/03/10/620942.aspx
Excel Home
http://www.excelhome.net/Index.html
相关文章推荐
- 文本框只允许输入字母及数字,限制输入汉字
- 在asp.net 中实现只允许数字输入的文本框
- 如何限制文本框只能输入数字,小数点,英文,汉字等各类代码
- [Unity3D]手机3D游戏开发:如何实现最高分的存储与显示(七)----使用Game ID避免数据重复输入
- JavaScript如何实现在文本框(密码框)输入提示语
- js控制文本框输入的内容为(数字、字母、汉字)(二、js在函数中实现)
- MFC开发的软件文本框输入汉字变为一个个问号?
- 在asp.net 中实现只允许数字输入的文本框
- 如何在ios开发中不让键盘弹出时挡住了文本框的输入
- iOS开发中如何更快的实现汉字转拼音
- 如何限定文本框中只能输入汉字
- JavaScript如何实现在文本框(密码框)输入提示语
- 如何实现多个文本框里面输入内容相关联来进行对数据库的查询实现
- VB.net文本框只允许输入数字与. 利用正则表达式验证IP地址
- 在窗体上放置saveFileDialog、openFileDialog两个控件。实现功能:1)程序运行时,在文本框(注意文本框多行、带垂直滚动条)中输入汉字、字符等,单击保存按钮,即可将文本框中内容保
- VB.Net 文本框TextBox只允许输入数字判断
- 如何限制文本框只能输入数字,小数点,英文,汉字等各类代码
- iOS开发中如何更快的实现汉字转拼音
- 如何实现两个文本框同时输入
- 如何限制文本框只能输入数字,小数点,英文,汉字等各类代码(转载)