找回密码
 立即注册
搜索

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

11
回复
532
查看
[复制链接]

17

主题

213

帖子

43

幻币

一流武者

Rank: 3Rank: 3

积分
268
QQ
2016-4-12 12:14:33 显示全部楼层 |阅读模式
不懂vba,请教如何实现以下要求:在PPT中,用控件放置了8个文本框,TextBox1--TextBox8。要求,从TextBox1输入字符后,敲回车,光标跳到TextBox2,以此类推,光标跳到TextBox8。
PPT学习论坛
回复

使用道具 举报

12

主题

208

帖子

39

幻币

一流武者

Rank: 3Rank: 3

积分
247
QQ
2016-4-12 13:48:09 显示全部楼层
试试TAB键(我没有测试)
PPT学习论坛
回复 支持 反对

使用道具 举报

15

主题

278

帖子

107

幻币

一流武者

Rank: 3Rank: 3

积分
402
QQ
2016-4-12 14:21:32 显示全部楼层
没有用。
不知道Tabindex控件在哪里?
PPT学习论坛
回复 支持 反对

使用道具 举报

18

主题

229

帖子

43

幻币

一流武者

Rank: 3Rank: 3

积分
289
QQ
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是不行的,光标不会切换进来。
求赐教。
PPT学习论坛
回复 支持 反对

使用道具 举报

10

主题

221

帖子

35

幻币

一流武者

Rank: 3Rank: 3

积分
271
QQ
2016-4-12 14:27:37 显示全部楼层
没看到答案前,自己顶。。。
我原本也是帮人解决的,现在来求人了。
PPT学习论坛
回复 支持 反对

使用道具 举报

11

主题

217

帖子

22

幻币

一流武者

Rank: 3Rank: 3

积分
250
QQ
2016-4-12 14:49:16 显示全部楼层
::(
预留
找到答案后再贴过来。
PPT学习论坛
回复 支持 反对

使用道具 举报

15

主题

194

帖子

43

幻币

一流武者

Rank: 3Rank: 3

积分
255
QQ
2016-4-12 15:02:45 显示全部楼层
顶一下。虽然帮别人问,但一直也想知道答案。
PPT学习论坛
回复 支持 反对

使用道具 举报

12

主题

212

帖子

41

幻币

一流武者

Rank: 3Rank: 3

积分
268
QQ
2016-4-12 15:07:25 显示全部楼层
|~~ Up ~~|
PPT学习论坛
回复 支持 反对

使用道具 举报

25

主题

238

帖子

63

幻币

一流武者

Rank: 3Rank: 3

积分
312
QQ
2016-4-12 15:12:50 显示全部楼层
对于千古难题,沉默是最好的答案?
我以为,没有解决不了的技术问题,只是我解不了,等待大家来攻克了啊
PPT学习论坛
回复 支持 反对

使用道具 举报

21

主题

234

帖子

51

幻币

一流武者

Rank: 3Rank: 3

积分
294
QQ
2016-4-12 15:15:39 显示全部楼层
Up side down, down side up.
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册