求助，从TextBox1输入字符后，敲回车，光标跳到TextBox2，。。。TextBox8

jaki

不懂vba,请教如何实现以下要求： 在PPT中，用控件放置了8个文本框，TextBox1－－TextBox8。 要求，从TextBox1输入字符后，敲回车，光标跳到TextBox2，以此类推，光标跳到TextBox8。

cxffxc

试试TAB键（我没有测试）

jaki

没有用。

不知道Tabindex控件在哪里？

huazai82

这贴怎么能就这样沉了呢？？
我也想知道答案啊
Dim Count As Integer

Private Sub TxtS1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger)
    If KeyCode = 13 Or KeyCode = 20 Then Count = 2
    Call jumpToNext(Count)
End Sub

Private Sub TxtS2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Or KeyCode = 20 Then Count = 3
    Call jumpToNext(Count)
End Sub

。。。。。。

Private Sub jumpToNext(ByVal Count As Integer)
    Select Case Count
        Case 1
            TxtS1.Text = ""
            TxtS1.Enabled = True
        Case 2
            TxtS2.Text = ""
            TxtS2.Enabled = True
        Case 3
            。。。。。。
   End Select
End Sub

像上面这样光是将.enabled设为True是不行的，光标不会切换进来。
求赐教。

[ 本帖最后由 huazai82 于 2009-9-5 09:30 编辑 ]

huazai82

没看到答案前，自己顶。。。
我原本也是帮人解决的，现在来求人了。

huazai82

预留
找到答案后再贴过来。

[ 本帖最后由 huazai82 于 2009-9-5 18:11 编辑 ]

huazai82

顶一下。虽然帮别人问，但一直也想知道答案。

huazai82

|~~ Up ~~|

huazai82

对于千古难题，沉默是最好的答案？
我以为，没有解决不了的技术问题，只是我解不了，等待大家来攻克了啊

huazai82

Up side down, down side up.