Consulting

Results 1 to 5 of 5

Thread: Onkey method to call Label click event

  1. #1

    Onkey method to call Label click event

    I am using a userform where only labels are there.
    Labels will be clicked and the even is fired.
    I have also assigned Shortcut key to labels, but Pressing with ALT key, the code doesnot fire. So I have used Onkey method.
    Even this is not firing label caption.
    The codes are:

    [vba]
    Private Sub Label5_Click()
    MsgBox "You Clicked " & Label5.Caption
    End Sub
    [/vba]
    [vba]
    Private Sub UserForm_Activate()
    Application.OnKey "%s", "Label5_Click()"
    End Sub
    [/vba]

    [vba]
    Private Sub UserForm_Deactivate()
    Application.OnKey "%s", ""
    End Sub
    [/vba]


    Label 5 caption is Select Company and accelerator is “S”

    What’s the wrong going on? How can I use keyboard shortcut to fire label5 click event?

    Note:
    Also posted here

  2. #2
    Knowledge Base Approver VBAX Guru GTO's Avatar
    Joined
    Sep 2008
    Posts
    3,368
    Location
    Hi there,

    Quickly checked, but I made the userform modeless and it appears that the form cannot have the focus. If the sheet (or naybe more at the window) has the focus, OnKey calls the procedure. If the form has the focus, you just hear faint laughing...

    Hope that helps,

    Mark

  3. #3
    VBAX Guru Kenneth Hobs's Avatar
    Joined
    Nov 2005
    Location
    Tecumseh, OK
    Posts
    4,956
    Location
    If you are doing it in a userform, set a commandbutton's height to 0, accelerator to "s" and put "s" in the caption name for the button.

    [VBA]Private Sub CommandButton1_Click()
    Label1_Click
    End Sub

    Private Sub Label1_Click()
    MsgBox "Label1"
    End Sub[/VBA]

  4. #4
    Mac Moderator VBAX Guru mikerickson's Avatar
    Joined
    May 2007
    Location
    Davis CA
    Posts
    2,778
    Perhaps
    [VBA]Application.OnKey "%s", "UserForm1.Label5_Click()"[/VBA]

  5. #5
    Thanks Kenneth,for providing a workaround.

    mikerickson, its not working.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •