Question

VB怎么让文本框单击全选

新建一个工程，实现功能单击Text1框时，Text1中的内容被全选。保存。

另外在增加题目:
1.新建一个工程，在界面上放置一个工具条Toobar1,在工具条上有三个按纽，按下第一个按钮时用MsgBox显示：“第一个按纽被按下”；按下第二个按纽时用MsgBox显示：“第二个按纽被按下”；按下第三个按纽时用MsgBox显示：“第三个按钮被按下”。保存。

2.新建一个工程，文本框text1,使用户输入字母一律转换为大写显示（焦点在最右端）保存。 (右端怎么弄)

3.新建一个工程，在Form1界面创建Form2，Form3两个子菜单的Forms菜单，选择Form2子菜单，以无模式显示Form2,选择Form3子菜单，以有模式显示Form3.保存。

Answer 1

Option Explicit

'全选文本框中文本
Private Sub SelectAll()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
    Text1.SetFocus
End Sub

Private Sub Command1_Click()
    '点击Command1，全选文本
    SelectAll
End Sub

Private Sub Form_Click()
    '点击窗体，全选文本
    SelectAll
End Sub

Answer 2

只有0分,给回答一个问题
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub