textbox控件数组能实现禁止鼠标吗?
我的想法是只使用按下回车键前检查当前textbox控件组的内容是否正确,如果正确就将焦点转到下一个上面,不正确则停留在当前上面,这个可以实现.问题是如果我用鼠标的话是可以随便到控件中的那个上面去了,因此我想要textbox禁止响应鼠标但又不能将窗体禁止鼠标,请问textbox实现的思路,要在鼠事件里做好象很麻烦.
[解决办法]
完全用错了,应该是 Validate 事件中检查,根本不需要关心是由按键还是鼠标引起的。
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
KeyCode = 0
SendKeys "{TAB}"
End If
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
If LenB(Text1.Text) Then
If Not IsNumeric(Text1.Text) Then
Cancel = True
MsgBox "必须是数值或空!", vbExclamation
End If
End If
End Sub