user_aibqdwwp 发表于 2016-4-12 12:14:33

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

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

user_tnhbu 发表于 2016-4-12 13:48:09

试试TAB键（我没有测试）

user_pslvj 发表于 2016-4-12 14:21:32

没有用。
不知道Tabindex控件在哪里？

user_kjvyqzbo 发表于 2016-4-12 14:26:15

这贴怎么能就这样沉了呢？？
我也想知道答案啊
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是不行的，光标不会切换进来。
求赐教。

汇敬丹 发表于 2016-4-12 14:27:37

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

user_vknxazob 发表于 2016-4-12 14:49:16

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

llp168 发表于 2016-4-12 15:02:45

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

望夜的星星 发表于 2016-4-12 15:07:25

|~~ Up ~~|

user_aqbuv 发表于 2016-4-12 15:12:50

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

smander 发表于 2016-4-12 15:15:39

Up side down, down side up.
页: [1] 2
查看完整版本: 求助，从TextBox1输入字符后，敲回车，光标跳到TextBox2，。。。TextBox8