大佬们教教 - vb吧

level 11

不怕什么的阿狸楼主

怎么才能输完第一个评委的分数，按回车跳到第二个评委的文本框里继续输入
求教感谢

2020年05月22日 12点05分 1

level 15

初音✨七奈

比如第一个文本框的代码可以这样写：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub

2020年05月22日 12点05分 2

不怕什么的阿狸

keyascii是啥

2020年05月23日 01点05分

初音✨七奈

@不怕什么的阿狸输入的字符的ASCII码，按回车键输入的就是回车符，ASCII码为13

2020年05月23日 01点05分

不怕什么的阿狸

@初音✨七奈谢谢

2020年05月23日 01点05分

不怕什么的阿狸

@不怕什么的阿狸我这个文本框是数组控件的话要怎么写

2020年05月23日 01点05分

level 8

mijing2000

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then text2.SetFocus
End Sub

2020年05月22日 12点05分 3

不怕什么的阿狸

谢谢

2020年05月23日 01点05分

level 15

初音✨七奈

如果是控件数组的话，还要加一个“是否为最后一个文本框”的判断
代码可以这样写：
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If Index < Text1.UBound And KeyAscii = 13 Then Text1(Index + 1).SetFocus
End Sub

2020年05月23日 01点05分 4

不怕什么的阿狸

那个bound是啥

2020年05月23日 01点05分

不怕什么的阿狸

unboud加上是什么意思

2020年05月23日 01点05分

初音✨七奈

@不怕什么的阿狸 UBound是数组上界的意思，表示下标最大的那个元素的下标，在这里就表示最后一个文本框；如果你在最后一个文本框里按回车键，那么就没有下一个文本框可去了，所以需要判断只有不是最后一个文本框时才移到下一个文本框

2020年05月23日 02点05分

璐村惂鐢ㄦ埛_0748V5Z馃惥

@不怕什么的阿狸 and，不是“加上”，而是“而且”。在这里是“Index < Text1.UBound”，而且“KeyAscii = 13”。既不是 Text1.UBound加上什么，也不是Text1.UBound而且KeyAscii

2020年05月23日 02点05分