private Sub Screen_ControlKeySending ( ByVal sender As Object, _ ByRef key As ControlKeyCode _ ) As Boolean
Parameters
- sender
- key
- This is a ControlKeyCode Enumeration value.
private Sub Screen_ControlKeySending ( ByVal sender As Object, _ ByRef key As ControlKeyCode _ ) As Boolean
To cancel the action, set ControlKeySending to False.
'To run this example, copy it to the ThisScreen code window Public SentKeys As String Private Function Screen_ControlKeySending(ByVal sender As Variant, Key As Attachmate_Reflection_Objects_Emulation_OpenSystems.ControlKeyCode) As Boolean 'Print the keys that are sent and the control key Debug.Print SentKeys & " <Key: " & Key & ">" Screen_ControlKeySending = True 'Clear the SentKeys buffer SentKeys = "" End Function Private Sub Screen_KeysSent(ByVal sender As Variant, ByVal Keys As String) 'Add the sent keys to the buffer SentKeys = SentKeys & Keys End Sub