Question

vb中如何使某个combobox控件始终不能获得焦点

在页面中有一个combobox控件，里面是数字字符，在窗体的keypress事件中使用小键盘，但是当combobox得到焦点后，使用小键盘会使combobox中的某个数字被选中的效果，从而触发combobox的相映事件。怎么才能始终让窗体的keypress生效而其他的事件不生效呢？
很感谢大家说得，但是大家都理解的不对，现在时小键盘响应事件好用，但是如果焦点在combobox上时，响应窗体的keypress事件的同时，他会在combobox中选择一个小键盘录入的数字，选择的动作不想要。

Answer 1

这个功能不能在按钮中实现，因为在你按按钮的同时，按钮便获得了焦点。所以我设定了一个判断键F12（当然可以自己修改），按下这个键，判断ComboBox是否有焦点。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF12 Then MsgBox IIf(TypeOf ActiveControl Is ComboBox, "ComboBox有焦点", "ComboBox没有焦点")
End Sub

Private Sub Form_Load()
KeyPreview = True
End Sub

Answer 2

让窗体的keypress生效而其他的事件不生效呢:重写改控件的事件代码为空即可。

Answer 3

让Combo事件的Press事件失效
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
窗体的Keypress生效 Me.KeyPreview = True

Answer 4

有个事件叫做得到焦点事件，你在那个事件里写 text1.setf