Question

vb中如何通过点击按钮，全选文本框中所有文字？

vb程序中点击按钮（command1）后，如何自动全选文本框(text1)中所有文字
具体是这个意思：http://zhidao.baidu.com/question/120438281.html

Answer 1

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

Answer 2

很简单：
dim str1 as string ‘定义一个字符串变量str1
Private Sub Command1_Click() '通过单击事件选中text1的全部内容
text1.selstar=0
text1.sellength=len(text1)
str1=text1.seltext
End Sub

Answer 3

text1.setfocus
text1.selstart=0
text1.sellength=len(text1.text)