Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 47 And KeyAscii < 58 Then
ElseIf KeyAscii = 46 And a = 1 Then
KeyAscii = 0
MsgBox "只能输入一个小数点和数字!", 64, "请注意"
ElseIf KeyAscii = 46 Or KeyAscii = 8 Then
a = 1
Else: KeyAscii = 0
MsgBox "只能输入一个小数点和数字!", 64, "请注意"
End If
End Sub
If KeyAscii > 47 And KeyAscii < 58 Then
ElseIf KeyAscii = 46 And a = 1 Then
KeyAscii = 0
MsgBox "只能输入一个小数点和数字!", 64, "请注意"
ElseIf KeyAscii = 46 Or KeyAscii = 8 Then
a = 1
Else: KeyAscii = 0
MsgBox "只能输入一个小数点和数字!", 64, "请注意"
End If
End Sub