Question

VB编程中，全选命令该怎样编写 ?求求了 急用

Answer 1

包括 鼠标单击后 TAB键后 获得焦点时 全选

在TEXT的GotFocus事件中写入：

例：
Private Sub Text1_GotFocus(Index As Integer)
Text1SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

百度一下，很多的。有点懒啊。

Answer 2

先画一个复选框组check1（0），check1（1），check1（2），
画几个根据情况定：
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 2
Check1(i).Value = 1
Next i
End Sub

Private Sub Command2_Click()
Dim i As Integer
For i = 0 To 2
Check1(i).Value = 0
Next i
End Sub
请参考