首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

textbox控件数组会实现禁止鼠标吗

2013-01-20 
textbox控件数组能实现禁止鼠标吗?我的想法是只使用按下回车键前检查当前textbox控件组的内容是否正确,如

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

热点排行