程序要求：设计一个运行界面如上图所示，当用户在“操作选项”框架中选定操作后，文本框发生相应的变化，同时在“操作说明”框架中的标签上显示有关的操作说明 现在开始： 1.设置属性值:

　　Private Sub Form_Load()　　Option1.ToolTipText = "光标在文本的开始"　　Option2.ToolTipText = "光标在文本的结尾"　　Option3.ToolTipText = "光标在第三行的开始"　　Option4.ToolTipText = "选定第三行"　　Option5.ToolTipText = "选定所有文本"　　End SubToolTipText只是个起着帮助或提醒一样的作用，就是鼠标停在控件上时会显示一段文字的功能。当点击Option控件时，激发Label控件显示相关的操作说明，代码如下（只列出一个，其他的类似）：　　Private Sub Option1_Click() '光标在文本的开始　　Label1.Caption = "选定了光标在文本的开始"　　Label1.ToolTipText = "选定了光标在文本的开始"　　'此处还要写其他的代码，先空着　　End Sub 2.根据程序的要求，可以利用 TextBox 的 SelStart和SelLength 属性，可以控制 TextBox 的插入点和选择行为（这些属性仅能在运行时使用）。首先，为了在 TextBox 控件中显示多行文本，要将 MultiLine 属性设置为 True。获得焦点，即显示光标在文本框中用Text1.SetFocus再选择光标位置，Text1.SelStart = 0，表示光标在文本框开头；Text1.SelStart = Len(Text1.Text)，表示光标在文本框末尾。那么如何让光标跳到第三行呢？那就得知道一行能输入多少个字节，我找了好久不知道用什么函数或方法求出一行能输入的字节数，所以我就用了一个愚笨的方法求出来了，代码如下（如果你们知道有什么其他的方法请告诉我下哈，先谢谢啦！）：　　Private Sub Option3_Click()　　Dim x As Integer　　x = Len(Text1.Text)　　Text1.Text = x’我求出来的是57　　End Sub然后就把代码修改好如下（把刚才多余的代码注释掉）：　　Private Sub Option3_Click()　　'Dim x As Integer　　Label1.Caption = "选定了光标在第三行的开始"　　Label1.ToolTipText = "选定了光标在第三行的开始"　　Text1.SetFocus　　'x = Len(Text1.Text)　　'Text1.Text = x　　Text1.SelStart = 57 * 2　　End Sub算出了一行所能输入的字节数，下面的步骤也就好做了，代码如下：　　Private Sub Option4_Click()　　Label1.Caption = "选定了第三行的所有字符"　　Label1.ToolTipText = "选定了第三行的所有字符"　　Text1.SetFocus　　Text1.SelStart = 57 * 2　　Text1.SelLength = 57　　End Sub

　　Private Sub Option5_Click()　　Label1.Caption = "选定了所有文本"　　Label1.ToolTipText = "选定了所有文本"　　Text1.SetFocus　　Text1.SelStart = 0　　Text1.SelLength = Len(Text1.Text)　　End Sub

那个windows live write还没弄好，代码就没那么好加亮。好了，就这样吧。奇了怪了，下面没有vb这类编程语言。就放在‘面向对象’区吧！

作者：涵曦（www.hanxi.cc） 出处：hanxi.cnblogs.com GitHub：github.com/hanxi Email：[email protected] 文章版权归本人所有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。

学习地址：

优惠推荐码： 2CZ2UA5u

可以先免费试学前 2 章内容