如何在VB中实现按ctrl+A后，全选文本框中的文字
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 1 Then
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub
或者用这个
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And (KeyCode = Asc("a") Or KeyCode = Asc("A")) Then
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub
但如果窗体上有N个命名都不一样的文本框，有没办法做到所有文本框都一次性赋予CTRL+A的能力？

上个截图 你要达到什么效果 有点没看懂

好像只能每个文本框分别写代码，我也想知道有没有更简单的办法
另外注意，KeyCode和KeyAscii不一样，字母键的KeyCode对应的是大写字母的ASCII码，而小写字母的ASCII码跟小键盘区和功能键区（F1、F2等）的KeyCode是对应的，比如小写a的ASCII码97对应的是小键盘数字1的KeyCode，所以你那个KeyDown的代码按Ctrl和小键盘的1也会全选

可以将N个文本框名字改成同名(控件数组），这样所有文本框都会调用同一个事件用事件Index参数区分每一个

给我感觉 这个不是要做vb版的记事本吧

另类实现全选的方法，可以适用多个不同名文本框
1aOzvw870eWPghf_QvbEVDg 提取码：1234

楼上那个代码 我有点没看懂 两个文本框 怎么用 如果焦点光标在文本框1 按下ctrl+a 只有文本框1的内容被选中 文本框2一点反应都没有

能分享下6楼的模块吗？已经找不到了

1zxr4rIaY6QO5whZo2vMfxg 提取码：1234

'模块代码，名字modTextBox.bas
Attribute VB_Name = "modTextBox"
'原作者：VB吧隨風缒夢
Option Explicit
Private Declare Function GetFocus Lib "user32" () As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'全选
Public Sub SelectAll()
Dim hWndChild As Long
Dim strClassName As String
hWndChild = GetFocus() '得到当前有焦点的窗口句柄
strClassName = Space$(100)
Call GetClassName(hWndChild, strClassName, 100) '得到控件类名
If InStr(strClassName, "TextBox") Then '匹配控件类名(编译后类名会加上RT6)
Call SendMessage(hWndChild, &HB1, 0, ByVal -1&)
End If
End Sub
'窗体代码中加上下面这些代码就可以了
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA And Shift = vbCtrlMask Then Call modTextBox.SelectAll
End Sub

鲁主的需求是一次性给所有文本框加上全选功能，不是txt1.全选功能，再txt2.全选功能。。。。。更不是在txt1中按^A同时选定txt1,txt2,txt3的内容。

把窗体的keypreview设定为true
在窗体的keydown或keyup事件中，发现按下ctrl+a时，遍历本窗体所有控件，如果控件类型是textbox则对其全选

14楼 初音的方法好
Private Sub Timer1_Timer()
Text3 = Me.ActiveControl
End Sub

14楼 初音的方法好
Private Sub Timer1_Timer()
Text3 = Me.ActiveControl
End Sub

text1.select-start=0
.select-length=999