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

2024-12-04 21:03:01

推荐回答（1个）

回答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