[Solved] Detect if Ctrl key is pressed in a macro

[luiz_antoniosp]

I need to detect the pressing of the ctrl key, or it can also be combined with the mouse click Ctrl+click , I want to be able to know when to click on a Shape only if the ctrl key is press

[Zizi64]

Is it a Macro related question?

Which application are you using? Draw, Impress,Writer, Calc?

[Hagar Delest]

I guess it's about Calc since posted in the Calc forum. But does it mean you have to handle shapes that are in a spreadsheet too?

[luiz_antoniosp]

Is it a Macro related question?

Which application are you using? Draw, Impress,Writer, Calc?

what I want:: I want when I click on the shape and simultaneously press the CRTL key and receive a msgbox,
however I am not able to detect only the ctrl , because I can only get it if I combine it with another key and I don't want that
so I ask for help on how to get just the capture of the ctrl or ctrl+click key, to test the code below, run the Sub StartXKeyHandler and assign a shape to the ShapeClickHandler macro

Code: Select all

Global oXKeyHandler As Object
Global bCtrlPressed As Boolean
Global sKeyPressed As String

Sub StartXKeyHandler()
    If IsNull(oXKeyHandler) Then
        oXKeyHandler = CreateUnoListener("XKeyHandler_", "com.sun.star.awt.XKeyHandler")
        ThisComponent.GetCurrentController.AddKeyHandler(oXKeyHandler)
    End If
End Sub

Sub StopXKeyHandler()
    If Not IsNull(oXKeyHandler) Then
        ThisComponent.GetCurrentController.removeKeyHandler(oXKeyHandler)
        oXKeyHandler = Nothing
    End If
End Sub

Sub XKeyHandler_disposing(oEvent)
    Call StopXKeyHandler
End Sub

Function XKeyHandler_keyPressed(oEvent) As Boolean
    XKeyHandler_keyPressed = False  'Não cancele este evento‼

    vCode = oEvent.KeyCode
    Select Case vCode
        ' ... Códigos das teclas ...

        Case Else: vName = "???"
    End Select

    vFunc = Choose(oEvent.KeyFunc + 1, "", "NEW", "OPEN", "SAVE", "SAVEAS", "PRINT", "CLOSE", "QUIT", "CUT", "COPY", "PASTE" _
     , "UNDO", "REDO", "DELETE", "REPEAT", "FIND", "FINDBACKWARD", "PROPERTIES", "FRONT")
    oMod = oEvent.Modifiers  '1=Shift, 2=Ctrl, 4=Alt
    vMod = ""

    If oMod And 1 Then vMod = vMod & "+SHIFT"
    If oMod And 2 Then vMod = vMod & "+CTRL"
    If oMod And 4 Then vMod = vMod & "+ALT"

    vChar = oEvent.KeyChar
    If vChar = "" Then
        vOut = vName
    ElseIf Asc(vChar) > 32 And Asc(vChar) < 176 Then
        vOut = vChar
    Else
        vOut = vName
    End If

    sKeyPressed = vOut & vMod
    MsgBox "Key " & Chr$(34) & sKeyPressed & Chr$(34)
End Function


Function XKeyHandler_keyReleased(oEvent) As Boolean
    XKeyHandler_keyReleased = False  'Don't cancel this‼
End Function

Sub ShapeClickHandler()
    If bCtrlPressed Then
        Dim oShape As Object
        oShape = ThisComponent.CurrentController.getSelection().getByIndex(0)

        If Not IsNull(oShape) Then
            MsgBox "Você clicou na shape: " & oShape.Name
        End If
    Else
        ' Simula a tecla "Space" pressionada
        Dim oKeyEvent As New com.sun.star.awt.KeyEvent
        oKeyEvent.KeyCode = com.sun.star.awt.Key.SPACE
        oKeyEvent.KeyChar = " "
        oKeyEvent.Modifiers = 0  ' Não precisa definir nenhum modificador

        ' Chama o evento XKeyHandler_keyPressed passando o evento personalizado
        XKeyHandler_keyPressed(oKeyEvent)
    End If
End Sub

[luiz_antoniosp]

I guess it's about Calc since posted in the Calc forum. But does it mean you have to handle shapes that are in a spreadsheet too?

Yes I'm doing this but I want to receive the msgbox if when I click if the ctrl is pressed or not pressed >>

Code: Select all

Sub ShapeClickHandler()
    If bCtrlPressed Then
        Dim oShape As Object
        oShape = ThisComponent.CurrentController.getSelection().getByIndex(0)

        If Not IsNull(oShape) Then
            MsgBox "Você clicou na shape: " & oShape.Name
        End If
    Else
        ' Simula a tecla "Space" pressionada
        Dim oKeyEvent As New com.sun.star.awt.KeyEvent
        oKeyEvent.KeyCode = com.sun.star.awt.Key.SPACE
        oKeyEvent.KeyChar = " "
        oKeyEvent.Modifiers = 0  ' Não precisa definir nenhum modificador

        ' Chama o evento XKeyHandler_keyPressed passando o evento personalizado
        XKeyHandler_keyPressed(oKeyEvent)
    End If
End Sub

[luiz_antoniosp]

Thank you all, I managed to solve it with the tips offered, thank you very much

[Lupp]

Thank you all, I managed to solve it with the tips offered, thank you very much

You now surely want to demonstrate your solution running in an example (sheet?) document.
Don't hesitate.
Other users are eager to learn from you.

[JeJe]

Lupp - I assume it was the Handler's oEvent.modifiers and com.sun.star.awt.KeyModifier.MOD1 (and 2)

https://www.openoffice.org/api/docs/com ... ifier.html