VB6 实现 Text1.text内 CTRL+A 全选操作

要在VB6中实现Text1控件中的全选操作，你可以使用SendKeys函数来模拟键盘按键操作。下面是土嘎嘎给出的一段例子代码：

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii = 1 Then ' 检测是否按下CTRL+A组合键

        Text1.SelStart = 0  ' 将光标位置设置为起始位置

        Text1.SelLength = Len(Text1.Text) ' 选择整个文本

    End If

End Sub

在上面给出的代码中，我们监听`Text1`控件的`KeyPress`事件。当按下键时，会检查按键的ASCII码是否为1（即CTRL+A的组合键）。如果是，我们将`SelStart`属性设置为0，将光标移动到起始位置，并将`SelLength`属性设置为`Len(Text1.Text)`，选择整个文本。

土嘎嘎技术网友情提示：这种方法仅在`Text1`控件具有焦点时有效。