DruckversionSchaltflächen mit PopUp-Menü
Das perfekte Schaltflächen-Menü
Der Aufruf in der Schaltfläche ändert sich geringfügig wie im folgenden Code, damit die Koordinaten des Rahmens nun im ShowPopUp-Aufruf berücksichtigt werden:
Private Sub btnMenu_Click() Dim myCoordinates As RECT Dim lngReturn As Long, myHandle As Long Dim myPopUpMenue As CommandBar myHandle = Me.grpMenu.[_GethWnd] lngReturn = GetWindowRect(myHandle, myCoordinates) Set myPopUpMenue = CommandBars(PopUpName) myPopUpMenue.ShowPopup myCoordinates.Left, myCoordinates.Bottom End Sub
Jetzt können Sie tatsächlich die Schaltfläche an einer beliebigen Stelle anklicken und finden das PopUp-Menü trotzdem exakt unterhalb der Schaltfläche:
Diese Seite ist für Mitglieder von akademie.de reserviert.
Möchten Sie die Mitgliedschaft 14 Tage kostenlos testen und den Beitrag komplett lesen?
Oder möchten Sie zunächst mehr über diesen Beitrag erfahren und die Leseproben sehen?
Ich bin bereits Mitglied