vb@rchiv · Tipps & Tricks · Bunte Button mit Alt-Key Schnellwahl

Rubrik: Controls · Sonstiges | VB-Versionen: VB4, VB5, VB6

10.04.07

Bunte Button mit Alt-Key Schnellwahl Dieser Tipp zeigt eine Möglichkeit, wie man eigene grafische Befehlsschaltflächen mit Alt-Key Schnellwahl (Hotkey) erstellen kann.
Autor: Rolf Wahlbrinck	Bewertung:	Views: 10.459
ohne Homepage	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Wie man einen Button mit einem Bild belegt ist bekannt. Man setze die Style-Eigenschaft der Schaltfläche auf "1 - Grafisch" und wählt über die Picture-Eigenschaft die gewünschte Grafik aus. Benötigt man zuästzlich zur Grafik noch eine Schaltflächen-Beschriftung, wird diese leider immer unterhalb der Grafik angezeigt, was dazu führt, dass man die Schaltfläche entsprechend groß darstellen muss bzw. die Grafik den Schaltflächentext überdeckt.

Mit unserem heutigen Tipp zeigen wir eine Möglichkeit auf, wie man eine ansprechende grafische Schaltfläche mit Buttonbeschriftung erstellen kann, wobei die Beschriftung rechts neben der Grafik angezeigt wird.

Hierzu müssen Sie eine Grafik erstellen, die neben dem Symbol auch noch die Beschriftung enthält. Das Ganze wird dann als Bilddatei abgespeichert und der Schaltfläche über die Picture-Eigenschaft zugewiesen. Die "Caption"-Eigenschaft sollte dann logischerweise "leer" sein.

Problem:
Der Anwender soll weiterhin die Möglichkeit haben, die Schaltfläche durch einen HotKey (Alt+Buchstabe) auswählen zu können, was in diesem Fall natürlich nicht mehr funktioniert, da die Caption-Eigenschaft nicht gesetzt ist.

Lösung:
Platzieren Sie auf die Form zusätzlich ein Label-Control mit der erforderlichen Buttonbeschriftung, wobei Sie dem HotKey das &-Zeichen voranstellen (bspw. &Beenden). Damit der HotKey das Click-Ereignis der Schaltfläche auslöst, muss es in der Tab-Reihenfolge (TabIndex-Eigenschaft) exakt vor dem Button liegen. Verstecken Sie das Label-Control unter den Button oder verschieben es aus den sichtbaren Bereich der Form, so dass dieses selbst nicht sichtbar angezeigt wird. Das Ganze kann auch per Programmcode erfolgen, wie nachfolgend beschrieben.

Anwendungsbeispiel:
Erstellen Sie ein neues Projekt und platzieren folgende Controls auf die Form:

Command1(0)
Command1(1)
lblAlt(0)
lblAlt(1)

Downloaden Sie nachfolgende Grafiken und weisen den beiden Command-Buttons die Grafiken "info.gif" und "exit.gif" zu. Setzen Sie die Eigenschaft Style auf "1 - grafisch" und löschen die Caption-Eigenschaft der Buttons.

grafiken.zip (2 KB)

Fügen Sie nachfolgenden Code in den Codeteil der Form ein:

Private Sub Form_Load()
  ' Label-Controls aus den sichtbaren Bereich
  ' verschieben und TabIndex-Eigenschaft setzen
  Dim i As Long
 
  For i = 0 To Command1.UBound
    lblAlt(i).Move -5000
    lblAlt(i).TabIndex = Command1(i).TabIndex
  Next i
 
  ' Labels beschriften (für HotKey-Auswahl)
  lblAlt(0).Caption = "&Info"
  lblAlt(1).Caption = "&Beenden"
End Sub

Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 0
      MsgBox "Info-Box"
    Case 1
      Unload Me
  End Select
End Sub

Starten Sie das Projekt und drücken ALT+I bzw. ALT+B für die Schnellwahl der Schaltflächen.