1）在窗体上布置一个TextBox和一个Command控件
2）窗体代码
Option Explicit
Private Sub Command1_Click()
'选择文本框中所有文本
With Text1
.SelStart = 0
.SelLength = Len(Text1.Text)
'让文本框获取焦点
.SetFocus
End With
End Sub
Private Sub Form_Load()
'在TextBox中显示一些文本
Text1.Text = "Visual Basic是一种可视化程序设计语言"
'命令按钮的提示
Command1.Caption = "选择所有文本"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024