奇怪的键值,是什么回事啊?
我有一段限定输入的子程序:Private Sub Text1_Keydown(keycode As Integer, shift As Integer)
If MSFlexGrid1.Col = 2 And MSFlexGrid1.Row <= 18 And MSFlexGrid1.Row >= 4 Then '在这些格子内只允许输入数字!
MsgBox keycode
If (keycode >= 48 And keycode <= 57) Or keycode = 190 Or keycode = 189 Then
Else
MsgBox "输入只能是货币数据!"
Text1.Text = ""
End If
End If
end Sub
为什么 MsgBox keycode 显示的是229?无论你按那一个键,它都是229,我真的是狂晕!
但不知道我什么地方动过(不是改这一段程序)后,它又都正常了。
不知道是我的系统有问题还是什么有问题
还有我用IsNumeric(Text1.Text)来判断输入正确与否也是时不时地出错(是指该判断出的没判断出)。
我真的是要晕倒了。