1、打开VB6.0开发软件,新建一个标准exe工程;
2、在设计界面上添加一个Text控件、一个Command控件,Command的Caption属性设置为"选中Text文本";
3、双击添加的Command控件,进入代码编辑界面,输入如下代码:
Private Sub Command1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Form_Load()
Text1.Text = "Computer Visual Basic"
End Sub
4、运行工程,单击按钮,可以看到Text框中的字符被选中。
Text1.SetFocus
SendKeys "{Home}+{End}"