Announcement

Collapse
No announcement yet.

Hotkey realisierung

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Hotkey realisierung

    Code:
    Hallo Community,
    Ich bin gerade dabei zu lernen wie man Hotkeys in VB realisiert. Dazu hab ich im Galileo Openbook folgenden Code aufgeschnappt:
    
    [vb]Private Sub frmMain_KeyDown(ByVal sender As Object, _
        ByVal e As KeyEventArgs) Handles MyBase.KeyDown
            If e.KeyData = (Keys.Alt Or Keys.F9) Then
                Me.Close()
            End If
        End Sub[/vb]
    
    Normalerweise müsste ja bei betätigen der Tasten Alt+F9 die Anwendung geschlossen werden.
    Mein Programm ruft leider nicht diese Sub auf. Woran könnte das liegen?

  • #2
    Hallo,

    im Formular muss die Eigenschaft KeyPreview auf true gesetz werden.

    Sonst werden die Tastaturereignisse direkt an die Steuerelement geleitet - sozusagen an der Form vorbei.

    mfG Gü
    "Any fool can write code that a computer can understand. Good programmers write code that humans can understand". - Martin Fowler

    Comment


    • #3
      Mach ich das in dem Load Ereigniss der Anwendung ?
      Also KeyPreview= true ?
      Weil im Designer ist unter Form1 kein Eintrag mit dem Anfangsbuchstaben K enthalten.

      Edit:
      Bissle rumprobiert und klappt me.KeyPreview=true im Load Ereigniss

      Comment


      • #4
        Hi,

        im Designer. Siehe Anhang.

        mfG Gü

        PS: Ist vertaxx ein Klon von dir?
        Attached Files
        "Any fool can write code that a computer can understand. Good programmers write code that humans can understand". - Martin Fowler

        Comment


        • #5
          Originally posted by gfoidl View Post
          Hi,
          PS: Ist vertaxx ein Klon von dir?
          Ja mein zweites böses ich aus einem Parallel Universum

          Ne hab anscheinend vor nem Jahr mich schonmal angemeldet und das verraft und hat mich letzte Woche neu angemeldet daher das doppel x

          Comment

          Working...
          X