请VB高手指点:VB中利用回车进行焦点转移.
小弟刚注册,积分只有25分,悬赏分最多只能有20分。分数少了些,希望高手能不吝指教,这里先谢谢了。
Private Sub Text1_KeyPress(KeyAscii As Integer)
From1.KeyPreview = True
If KeyAscii = 13 Then SendKeys "{Tab}"
End Sub
这段代码,如果在窗体上没有CommandButton这样的控件时是完全有效的,焦点可以从Text1转移到Text2;但如果有了CommandButton,则在运行的时候,Text1的KeyPress事件根本没有被调用,所以并不能实现转移焦点的效果。
现在请问,如何在有CommandButton控件的时候实现焦点从Text1转移到Text2?
另外,像下面的这类的代码:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
text2.SetFocus
End if
End Sub
像这种没有通用性的代码就不必说了。
在此先谢谢各位。
参考答案:其实很简单
form_load 里添加
Command1.Default = False
就行了,你试试
补充一点
From1.KeyPreview = True
这句的form写错了
呵呵