在TEXT文本框中只允许输入数字和小数点,如何实现?只能编程实现吗?
Private Sub Text1_KeyPress(KeyAscii As Integer) If (Chr(KeyAscii) > "9" Or Chr(KeyAscii) < "0") And Chr(KeyAscii) <> "." Then KeyAscii = 0 End If End Sub
回复人:y1g1y1(袁飞☆曾经沧海难为水,除却VB不是云☆)
在keypress中进行判断,如果不合格就sendkeys(vb_backspace) 具体函数的参数我不太会写了,就是用sendkeys的 回复人:playyuer(女㊣爱) (2001-5-8 13:09:00) 得0分 Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc("-") '允许负数 If Text1.SelStart = 0 Then If Left(Text1.Text, 1) = "-" Then KeyAscii = 0 Beep End If Else KeyAscii = 0 Beep End If Case 8 '无变化,退格键不屏蔽 Case Asc(" ") '32 If Text1.SelLength = 0 Then KeyAscii = 0 End If Case Asc(".") '46 '允许小数点 If InStr(Text1.Text, ".") Then KeyAscii = 0 End If Case Is < Asc(0) '48 KeyAscii = 0 Case Is > Asc(9) '57 KeyAscii = 0 End Select End Sub
回复人:liu_feng_fly(一只菜鸟,忽忽悠悠的就飞来了!!)

|