Question

VB中只能在文本框中输入数字和小数点的代码``？》

但不能输入2个小数点，如果输入错误提示“只能输入一个小数点和数字” 大虾们救命```帮忙说下代码````

Answer 1

Dim a As Long

Private Sub text1_keypress(keyascii As Integer) 注意这里的事件是keypress不是change
If keyascii > 47 And keyascii < 58 Then
ElseIf keyascii = 46 And a = 1 Then
keyascii = 0
MsgBox "只能输入一个小数点和数字!", 64, "请注意"
ElseIf keyascii = 46 Then
a = 1
Else
keyascii = 0
MsgBox "只能输入一个小数点和数字!", 64, "请注意"
End If
End Sub

一时想出来的,可能饶了弯路,但可以实现功能~~