VB开发——如何实现只允许输入汉字的文本框
来源:互联网 发布:网络域名是什么 编辑:程序博客网 时间:2024/05/22 02:18
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
- VB开发——如何实现只允许输入汉字的文本框
- 文本框只允许输入字母及数字,限制输入汉字
- Java只允许输入数字的文本框
- Java只允许输入大写字母的文本框
- 只允许输入数字的文本框
- WPF 只允许输入数字的文本框
- 文本框只允许输入数字
- 文本框只允许输入数字
- 文本框只允许输入数字
- 文本框只允许输入数字
- 文本框只允许输入数字
- 文本框只允许输入数字
- 实现文本框只允许输入数字和退格键
- 在asp.net 中实现只允许数字输入的文本框
- [NEt]在asp.net 中实现只允许数字输入的文本框
- 在asp.net 中实现只允许数字输入的文本框
- 在asp.net 中实现只允许数字输入的文本框
- html只允许输入的数据校验,只允许输入字母汉字数字等
- 值得珍藏的81句名言
- 人生的35个好习惯
- 体力劳动
- 破解静态WEP KEY全过程
- 心疼女人的13种方式
- VB开发——如何实现只允许输入汉字的文本框
- O'Reilly总裁提姆-奥莱理:什么是Web 2.0
- Linux设备驱动程序(二) 0.01
- 架构宣言: MDA 实战
- VB开发——打开Excel并使特定的worksheet处于激活状态
- MSNHC居然被人继续开发下去了!
- java.util.ResourceBundle简单小结
- 获取网络文本资源的java类
- 在IE中调用javascript打开Excel(downmoon)