If KeyCode = 13 Then Text2.SetFocus
End Sub追问
If (TextBox1.Text " ") And (TextBox2.Text " ") And (TextBox3.Text " ") Then
With stu1
.name = TextBox1.Text
.sex = TextBox2.Text
.number = Val(TextBox3.Text)
End With
这个输入之后怎样让它跳到下一个文本框，谢谢！
net的，不知道是不是一样啊
总之是建立text1和text2的两个keydown事件，跟你上面这段代码无关
VB:在文本框中输入信息后,按回车键,怎样使光标跳到下一个文本框中
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Text2.SetFocus End Sub
...左、右键)控制光标从一个文本框跳到下一个文本框
只要将需要跳转的文本框获取焦点即可，如：Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)Select Case KeyAscii Case 13---'回车键 Textbox1.SetFocus Case 38-41---'上\/下\/左\/右键 Textbox2.SetFocus Case else End Select End Sub ...
vb中一个文本框中只能输一个数字并输完后跳到下一个文本框代码...
每个文本框的maxlength都设置成1 代码入下 Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)If IsNumeric(Text1.Text) Then ' 用IsNumeric函数判断输入是否为数字Text2.SetFocus '如果是数字 跳到下一个文本框ElseText1.Text = "" '如果不是数字 清空文本框重新输入End IfEnd ...
用vb如何把一个文本框(text1)中的任意一行内容,添加到另一个文本框(t...
用来seltext确定text1选中的内容就可以了，如在text2中显示:text2=text1.seltext,大致思路是这样的～
vb 如何在把光标移到另一个文本框里?
vb把光标移到文本框中，只需要让这个文本框获取焦点就可以。获取焦点使用SetFocus函数。SetFocus 功能：对指定的窗口设置键盘焦点 函数原型：HWND SetFocus（HWND hWnd）。参数：hWnd接收键盘输入的窗口指针。若该参数为NULL，则击键被忽略。例子：当text1中输入的数字超过6个的时候，焦点自动转移到text2...
在VB中,如何通过揿回车键让光标从Text1跳到Text2?
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocus End Sub
怎样实现在文本框中按回车键,光标跳到下一个文本框,而不是提交?
上面的都是错的，把我的代码拷过去改一下就行了. function a(){ if(event.keyCode==13){ event.cancelBubble=true;event.returnValue=false;document.form1.elements(1).focus();} } document.onkeypress=a;
VB中的文本框选中的文字复制到另外一个文本框中
代码如下： Private Sub Command1_Click() Text2.Text = Text1.SelText 'Text1.SelText Text1文本框中被选中的内容 End Sub
vb中文本框可以输出的内容如何在列表框里输出?
以下程序实现：在文本框输入内容，按回车键（Enter键）后，文本框中的内容输出到列表框。1）在窗体上布置一个TextBox控件和一个ListBox控件 2）代码 Option ExplicitPrivate Sub Form_Load() ' 窗体启动时，清空Text1和List1 Text1.Text = "" List1.ClearEnd SubPrivate Sub Text1_KeyPr...
vb中如何按一下enter键使下一个text控件获得焦点
例如文本框1的TabIndex是0，文本框2的TabIndex是1，文本框3的TabIndex是3。这样按tab键的时候就会在三个文本框之间切换。至于回车键的话，只能在每个文本框的keypress里面添加代码来实现：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocus End If End Sub Privat...
