combo的问题,我想在COMBO选择后,FOCUS移到下个TEXT

Question

可是这样写了以后,都没反应,按什么FOCUS都不动
Private Sub combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
text5.SetFocus
End If
End Sub
试过CHANGE,KEYDOWN,CLICK都是一样
怎么才能达到我的要求呀

Answer 1

Private Sub Combo1_Click()
    Text1.SetFocus
End Sub

Answer 2

Click是鼠标单击，KeyAscii = 13  表示回车键，当按了回车键的时候才改变焦点。
Private Sub Combo1_Click()
Text2.SetFocus
End SubPrivate Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Answer 3

问题是用了CLICK,CHANGE,KEYPRESS方法后都不起作用,按什么也没反应
大家可以试试

Answer 4

你用一下dropdown事件
private sub cmbo1_dropdown()
text2.setfocus
end sub

Answer 5

Private Sub Combo1_click()
Text1.SetFocus
End Sub我试验过了,是可以的