|
Sie haben sich vielleicht auch schon einmal gefragt, wie man wohl
Symbol-Schaltflächen in einer Toolbar (aus den Microsoft Common
Controls) dazu bewegen könnte, sich nach rechts auszurichten? Weder
die Buttons noch die Toolbar selbst bieten eine entsprechende
Eigenschaft an. Und auch das API der Toolbar lässt uns hier
offensichtlich im Stich.
Tatsächlich ist dies auf direktem Wege nicht möglich. Aber wie
immer haben wir einen kleinen Trick parat, der Sie dennoch zum Ziel
führt: Bringen Sie einfach eine zweite Toolbar ins Spiel und sorgen
Sie dafür, dass sie immer in der rechten oberen Ecke des Containers
(Form, UserControl) und im Vordergrund "kleben" bleibt.
Setzen Sie zuerst die Align-Eigenschaft dieser zweiten Toolbar auf
0, damit Sie sie frei positionieren können. Die notwendige
Breite der Toolbar ermitteln Sie aus der Position des letzten
Buttons in dieser Toolbar. Damit bleibt die Berechnung universell
verwendbar, ohne dass Sie jeweils die genaue Anzahl der Buttons
wissen müssten. Sicherheitshalber sollten Sie für diese Toolbar
deren Eigenschaft Wrappable auf False setzen. Nun brauchen Sie nur
noch... nein, nichts mehr, das war wirklich schon alles.
Private Sub Form_Resize()
Dim nWidth As Single
With Toolbar2
With .Buttons(Toolbar2.Buttons.Count)
nWidth = .Left + .Width + Screen.TwipsPerPixelX
End With
.Move Me.ScaleWidth - nWidth, 0, nWidth
.ZOrder 0
End With
End Sub
|