下列过程的功能是:在对多个文本框进行输入时,对第一个文本框(text1)输入完毕后用回车键使焦点跳到第二个文本框(text2),而不是用TAB键来切换。请填空。Private Sub [11] KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode [12] vbKeyRetum ThenText2.SetFocusEnd IfEnd Sub

下列过程的功能是:在对多个文本框进行输入时,对第一个文本框(text1)输入完毕后用回车键使焦点跳到第二个文本框(text2),而不是用TAB键来切换。请填空。

Private Sub [11] KeyDown(KeyCode As Integer,Shift As Integer)

If KeyCode [12] vbKeyRetum Then

Text2.SetFocus

End If

End Sub


相关考题:

( 28 ) 窗体上有名称分别为 Text1 、 Text2 的 2 个文本框 , 要求文本框 Text1 中输入的数据小于 500 , 文本框 Text2 中输入的数据小于 1000 ,否则重新输入。为了实现以上功能,在下列程序中问号( ? )处应填入的内容是( )。Private Sub Text1_LostFocus( )Call CheckInput(Text1,500)End SubPrivate Sub Text2_LostFocus( )Call CheckInput(Text2,1000)End SubSub CheckInput(t As ?,x As Integer)If Val(t.Text)x ThenMsgBox" 请重新输入 !"End IfEnd SubA ) TextB ) SelTextC ) ControlD ) Form

下面关于文本框的说法中,错误的说法是 ______。A.Text1.Caption="Hello",是将在文本框Text1中显示HelloB.Text1.Locked=True,设置该文本框Text1不能编辑C.Text1.PasswordChar="#",设置文本框Text1输入的字符都显示为#,但实际接收的还是输入的内容D.Text1.Visible=False,设置该文本框Text1不可见

在窗体上画一个名称为Text1的文本框,然后编写如下的事件过程:Pfivate Sub Text1_KeyPress(Keyascii As Integer) … End Sub 若焦点位于文本框中,则能够触发此事件的操作是( )。A.单击文本框B.双击文本框C.单击文本框D.按键盘上的某个键

在窗体上画一个名称为Text1的文本框,然后编写如下事件过程: Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc (UCase(ch)) TextText = String(1, KeyAscii) End Sub程序运行后,使文本框拥有焦点,然后按键盘上的B键,则在文本框中显示的内容是 ______。A.bB.bbC.BBD.B

设有如右图所示的窗体和下列程序:Private Sub Command1_Click() Text1.Text="Visual Basic" End Sub Private Sub Text1_LostFocus() If Text1.Text<>"BASIC" Then Text1.Text=" " Text1.SetFocus End If End Sub程序运行时,在Text1文本框中输入“Basic”(如图所示),然后单击Command1按钮,则产生的结果是( )。A.文本框中无内容,焦点在文本框中B.文本框中为"Basic",焦点在文本框中C.文本框中为"Basic",焦点在按钮上D.文本框中为"Visual Basic",焦点在按钮上

假定有一个文本框,其名称为Text1,为了使该文本框具有焦点,应执行的语句是______。A.ChangeB.OotFocusC.SetFocusD.LostFocus

在窗体上画一个名称为Text1的文本框,然后编写如下的事件过程: Private Sub Text1_KeyPress(Keyascii As Integer) ... End Sub 若焦点位于文本框中,则能够触发此事件的操作是( )。A.左键单击文本框B.左键双击文本框C.右键单击文本框D.按下键盘上的某个键

下列过程的功能是:在对多个文本框进行输入时,对第1个文本框(text1)输入完毕后用回车键使焦点跳到第2个文本框(text2),而不是Tab键来切换。请完成该程序。Private Sub Textl_(eyDown(Keycode As Integer,Shift As Integer)If [14] ThenText [15]End IfEnd Sub

使文本框Text1获得焦点的代码是()。