第6章--控件与用户窗体代码【超实用VBA】37页.doc

第6章 控件与用户窗体范例67 文本框只能输入数值Private Sub TextBox1_KeyPress(ByVal KeyANSI As MSForms.ReturnInteger) With TextBox1 Select Case KeyANSI Case Asc(0) To Asc(9) Case Asc(-) If InStr(1, .Text, -) 0 Or .SelStart 0 Then KeyANSI = 0 End If Case Asc(.) If InStr(1, .Text, .) 0 Then KeyANSI = 0 Case Else KeyANSI = 0 End Select