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

2025-03-21 06:30:43
推荐回答(2个)
回答1:

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

在TEXT的GotFocus事件中写入:

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

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

回答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
请参考