|
|
|
| Title | Let the user select all text with Ctrl-A in all TextBoxes |
|---|
| Keywords | textbox, ctrl-a, control-a, select all |
|---|
| Categories | Controls |
|---|
|
|
|
Set KeyPreview = True. Then in the form's KeyPress event handler, check for the Ctrl-A key combination. If the user presses Ctrl-A, see if the active control is a TextBox. If it is, use its SelStart and SelLength properties to select all of its text.
|
|
Private Sub Form_Load()
KeyPreview = True
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Const ASC_CTRL_A As Integer = 1
Dim txt As TextBox
' See if this is Ctrl-A.
If KeyAscii = ASC_CTRL_A Then
' The user is pressing Ctrl-A. See if the
' active control is a TextBox.
If TypeOf ActiveControl Is TextBox Then
' Select the text in this control.
Set txt = ActiveControl
txt.SelStart = 0
txt.SelLength = Len(txt.Text)
End If
End If
End Sub
|
| |
|
| |
|
|
