OnKeyDown Event

  • Thread starter Thread starter mackiaau
  • Start date Start date
M

mackiaau

When a user keys down on a form - SampleForm, I want to copy the contents of
the form's active control to clipboard. My attempted code is listed below;

Sub CopytoClipboard()

Form("SampleForm").ActiveControl.OnKeyDown.Copy

End Sub

Any help appreciated.
 
mackiaau said:
When a user keys down on a form - SampleForm, I want to copy the contents
of
the form's active control to clipboard. My attempted code is listed below;

Sub CopytoClipboard()

Form("SampleForm").ActiveControl.OnKeyDown.Copy

End Sub

Any help appreciated.
Click to expand...


That's not going to work. Something like this might, though the air code
below will work only for controls that have the Text, SelStart, and
SelLength property. Other types of controls will be ignored:

'----- start of air code -----
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

On Error GoTo Err_Handler

Dim lngSelStart As Long
Dim lngSelLength As Long


' NOTE: THIS IS CURRENTLY SET TO OPERATE ONLY IF
' THE ALT+C KEY COMBINATION IS PRESSED.

If KeyCode = vbKeyC And Shift = acAltMask Then

With Me.ActiveControl
lngSelStart = .SelStart
lngSelLength = .SelLength
' If nothing is selected, select the entire text.
If .SelLength = 0 Then
.SelStart = 0
.SelLength = Len(.Text)
End If
RunCommand acCmdCopy
.SelStart = lngSelStart
.SelLength = lngSelLength
End With

End If

Exit_Point:
Exit Sub

Err_Handler:
Resume Exit_Point

End Sub

'----- end of air code -----
 
Back
Top