Question

VB6.0中，怎么样让文本框只能输入数字与小数点，及退格键。 请各位帮助，谢谢

Answer 1

利用文本框的
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
KeyAscii = 0
MsgBox "请输入数字"
End If
End Sub
是只能接收输入数字的代码。
asc（）函数是求ascii值的
小数点问题你自己试着用asc函数解决。

Answer 2

'窗体放置一个文本框，名称为text1，然后添加text1的keypress事件代码
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii <>46) and (keyascii< 48 Or KeyAscii > 57) Then
KeyAscii = 0
End If
End Sub

Answer 3

建议使用VB6的MaskEdBox控件，通过[工程] -- [部件]，勾选Microsoft Masked Edit Control 6.0