Question

VB的Combo中只让输入数值的问题

想让Combo中只允许输入数学数值，如果输入是英文或是汉字就提示出错

编个代码吧

Answer 1

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii = 8 Or KeyAscii = 46 Or (KeyAscii >= 48 And KeyAscii <= 57)) Then
'数字(48-57)或者小数点(46)或者退格(8)
MsgBox "出错"
End If
End Sub

Answer 2

加个combo box,试试我的代码

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 8 Or KeyCode = 190 Or (KeyCode >= 48 And KeyCode <= 57) Then
'数字(48-57)或者小数点(190)或者退格(8)
Debug.Print KeyCode
Else
MsgBox "出错"
End If
End Sub

Answer 3

Dim temp As String
Private Sub Combo1_KeyPress(KeyAscii As Integer)
temp = Combo1.Text
End Sub

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
If IsNumeric(Combo1.Text) Then
Debug.Print KeyCode
Else
Combo1.Text = temp
Combo1.SelStart = Len(temp)
Print "wrong"
End If
End Sub

Private Sub Form_Load()
Combo1.Text = "0"
End Sub