msww.net
当前位置:首页 >> VB中的TExt控件怎么才能让用户只能输入数字而不能... >>

VB中的TExt控件怎么才能让用户只能输入数字而不能...

Const xStr As String = "0123456789" '先声明一个常量,并把你想禁用或允许输入的内容赋值给它 Private Sub Text1_KeyPress(KeyAscii As Integer) '只能输入数字 KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0) End Sub Pr...

有三种方法: 1.text1.enable=false 2.text1.locked=true 3. Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub

思路:当text中输入字符超过2个时,强制取左边2位 代码如下: Private Sub Text1_Change() If Len(Text1.Text) > 2 Then Text1.Text = Left(Text1.Text, 2) End If End Sub

如果是在输完之后判断,则可以用if val(text1.text)0 then 如果是每输入一个就判断,那么要用键盘事件,判断assii码,30H到39H之间的就是数字(即48到57之间)

Private Sub Text1_Change() '文本框更改事件If Not IsNumeric(Text1.Text) Then '判断文本框内是否为数字MsgBox "请输入数字", vbCritical '若非数字,所错Text1.SelStart = Len(Text1.Text) - 1 '并自动选中刚刚输入的字符Text1.SelLength = 1 ...

其实,VB本身的文本框也具备了这个功能,只是并不是所有时候都可以当你的界面上,如果只有这个文本框可以接收焦点,那你按Tab键就能插入,而当你的界面上,如果除了这个文本框外,还有能接收焦点的控件,那按Tab键就成了转换焦点的作用根据这一点,你在你...

Private Sub Text1_KeyPress(KeyAscii As Integer) '只能输入汉字 If KeyAscii >= -20319 And KeyAscii

两种方法可处理: 1、textbox获得焦点时,锁定字母键,只开放数字键(或小键盘)。 2、命令按钮中加入一段测试控制程序,点击命令按钮后,先测试textbox中是否为你要求的数字类型,如果有字母的话,则跳出“输入错误”对话框,textbox中是你要求的...

Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii vbKeyBack And KeyAscii < 48 Or KeyAscii > 57 And KeyAscii 13 Then KeyAscii = 0 End If End Sub

网站首页 | 网站地图
All rights reserved Powered by www.msww.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com