# Re: 如何转换setfocus

Posted by Buier on September 30, 1999 at 01:58:31:

In Reply to: 如何转换setfocus posted by 小玉 on September 29, 1999 at 21:34:25:

: 请问我目前有四个text
: txt1,txt2.txt3,txt4

: 如何做才能在txt1按enter时游标停在txt2上
: 在txt2按enter时游标停在txt3上
: 以此类推呢？

: 以上是我的程式内容，请问错在哪里呢？
: 请各位高手帮帮忙。
你的程式应该没错,你可以试下面的程式看看(两个textbox).
Private Sub Text1_KeyPress(KeyAscii As Integer)
Form1.Caption = KeyAscii
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Form1.Caption = KeyAscii
If KeyAscii = 13 Then
Text1.SetFocus
End If
End Sub

- VB 心得交流网

Follow Ups:

- 建议 SuBird 09:18:44 9/30/99 (0)