窗体上有四个文本框及两个标题分别为“显示选中信息”和“选中文本”的命令按钮。 要求当按下运行按,光标(焦点)位于 Text1 上,按下 Tab 键则光标(焦点)能直接跳到 Text3 。 图 2.2 实验 2.3 文本信息选定窗体 要求编程实现: 1 ) 在文本框 Text1 中输入一行文字并按回车( Enter )后,把 Text1 的内容设置为窗体的标题。 2 )在 Text1 中选中其中一部分内容后,单击“显示选中信息”命令按钮,则把在 Text1 中被选中文本的第一个字符的顺序号,被选中文本的字符个数,被选中的文本内容分别显示在文本框 Text2 , Text3 , Text4 中。 3) 分别在文本框 Text2 , Text3 中输入你所希望文本框 Tex1 中选中文本信息的顺序号以及长度,单击“选中文本”命令按钮,则根据文本框 Text2 , Text3 输入的内容,在 Text1 中选中对应的内容,同时在 Text4 中显示被选中的文本内容。 【提示】部分相关属性和事件: SelStart 、 SelLength 、 SelText 、 KeyPress 、 TabIndex Ø 必要的属性设置 表 2.3 实验 3 属性设置 对象名称 属性 属性值 Ø 代码编写 Private Sub Form_Load() Text1.【1】 = 0 Text3.【1】 = 1 '改变tab切换顺序 End Sub Private Sub Command1_Click() Text2.Text = 【2】 【3】 = Text1.SelLength Text4.Text = 【4】 End Sub Private Sub Command2_Click() Text1.SelStart = Val(Text2.Text) Text1.SelLength = Val(Text3.Text) 【5】 ‘让text1中被选中的显示出来 Text4.Text = Text1.SelText End Sub Private Sub Text1_【6】(KeyAscii As Integer) ‘在text1上按回车,把text1中的内容写到窗体标题 If 【7】 = 13 Then Me.Caption = 【8】 End If End Sub