vb中想让一个文本框只能输入数字代码是什么呢？

全部回答

2005-12-13

0 0

    楼上说的也没错,不过一般的时候数字都有用到小数点“。”和负号“-”的时候，所以可以这样做把上面的程序稍微改动一下。 Private Sub Form_Load() Text1= "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) select case str(Keyascii) '多分枝用Select case 语句比较好 case "0" to "9" '如果按键在 0-9 之间或者 case "。
    ", "-", str(8) '按下小数点，负号，或者删除键BackScape键则不执行特殊操作 case else KeyAscii = 0 '取消本次按键事件。
   Beep '提示输入错误 End select End Sub 。  。

提交

a***

2005-12-14

803 0

楼上几位说的都不错，但是VB里现在还没有特别完美的方法解决楼主的问题，上面的说法虽然是能限制键盘输入数字，但是不能限制粘贴数字。要想实现完善的最好还是通过API或自定义组件一些方法。

提交

z***

2005-12-13

814 0

    下面代码可实现文本框只能输入数字: Option Explicit Private Sub Form_Load() Text1= "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii Asc("9") Then KeyAscii = 0 '取消字符。
     Beep '发出错误信号。 End If End Sub 如需输入小数点,则代码如下: Private Sub Form_Load() Text1 = "" End Sub Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii Asc("。
    ") Or KeyAscii > Asc("9") And KeyAscii <> Asc("。") Or KeyAscii = Asc("/") Then KeyAscii = 0 '取消字符。
   End If End Sub 。  。

提交

相关回答

x***

2005-04-02

VB中如何实现文本框的刷新？例如在设

  举例：文本框名为txtSngInput,加法键名为cmdAdd,乘法键名为cmdMul,等于键为cmdOver。 Dim sngTempDo(2) As Single '(0)存储操作符，(1)存储操作结果 Private Sub cmdAdd_Click() Dim sngTemp As Single Select Case sngTempDo(0) Case 1 '加法 txtSngInput。
  Text = CStr(CSng(txtSngInput。Text) + sngTempDo(1)) Case 2 '乘法 txtSngInput。
  Text = CStr(CSng(txtSngInput。Text) * sngTempDo(1)) 'Case 3 '减法 'Case 4 '除法 End Select sngTempDo(1) = CSng(txtSngInput。
  Text) sngTempDo(0) = 1 End Sub Private Sub cmdMul_Click() Select Case sngTempDo(0) Case 1 '加法 txtSngInput。
  Text = CStr(CSng(txtSngInput。Text) + sngTempDo(1)) Case 2 '乘法 txtSngInput。
  Text = CStr(CSng(txtSngInput。Text) * sngTempDo(1)) 'Case 3 '减法 'Case 4 '除法 End Select sngTempDo(1) = CSng(txtSngInput。
  Text) sngTempDo(0) = 2 End Sub Private Sub cmdOver_Click() Select Case sngTempDo(0) Case 1 '加法 txtSngInput。
  Text = CStr(CSng(txtSngInput。Text) + sngTempDo(1)) Case 2 '乘法 txtSngInput。
  Text = CStr(CSng(txtSngInput。Text) * sngTempDo(1)) 'Case 3 '减法 'Case 4 '除法 End Select sngTempDo(1) = 0 sngTempDo(0) = 0 End Sub Private Sub Form_Load() sngTempDo(0) = 0 End Sub '======================================================== 以上的代码还没有写当你按下操作符以后，文本框的数字输入将变为重新开始。
  这个你可以设置一个Boolean变量a，初始化为Ture，每个数字键按下事件中写上： if a = ture then a = flase txtSngInput。text = "" else txtSngInput。
  text = txtSngInput。text & 新的数字 endif 在txtsnginput的keypress事件中也是类似写法。然后在几个操作键的按下事件中添加令a=ture就可以了。
   。收起

vb中想让一个文本框只能输入数字代码是什么呢？

全部回答

相关回答

VB中如何实现文本框的刷新？例如在设

类似问题换一批

热点推荐

热度TOP

热点搜索换一换

vb中想让一个文本框只能输入数字代码是什么呢？

全部回答

相关回答

VB中如何实现文本框的刷新？例如在设

类似问题换一批

热点推荐

热度TOP

热点搜索 换一换

热点搜索换一换