|
Leider hat das Toolbar-Steuerelement aus den Microsoft Common Controls Version 6 eine kleine Eigenart. Wenn Sie die Symbolschaltflächen links etwas einrücken möchten, sollten Sie das an sich damit erreichen, dass Sie eine Schaltfläche mit dem Stil tbrSeparator in der gewünschten Breite davor setzen. Doch das funktioniert nur beim Toolbar-Stil tbrStandard. Bei einer Toolbar in flachem Stil (tbrFlat) erscheint ein Trennstrich in fester Breite, der nicht zum Verschwinden zu bewegen ist.
Wenn Ihnen eine Einrückung in der festen Breite einer Schaltfläche genügt, reicht es, eine einfache Schaltfläche ohne Text und Symbol davor zu setzen und deren Enabled-Eigenschaft auf False zu stellen.
Wenn Sie allerdings eine frei bestimmbare Einrückung erhalten möchten, geht das nur über einen kleinen Umweg: Sie verzichten auf die Voreinstellung der festen Ausrichtung der Toolbar an der Oberkante des Forms (Align-Eigenschaft vbAlignTop). Setzen Sie diese auf vbAlignNone und positionieren Sie die Toolbar per Code im Form_Resize-Ereignis:
Private Const ToolbarOffsetPixels = 15 'z.B.
Private Sub Form_Resize()
Dim nLeft As Single
Dim nWidth As Single
On Error Resume Next
nLeft = ToolbarOffsetPixels * Screen.TwipsPerPixelX
nWidth = Me.ScaleWidth - nLeft
Toolbar1.Move nLeft, 0, nWidth
End Sub
Sie jedoch können zur Erleichterung beim Entwurf die Align-Eigenschaft in ihrer Voreinstellung belassen und ebenfalls im Form_Resize-Ereignis zur Laufzeit aufheben:
Private Const ToolbarOffsetPixels = 15 'z.B.
Private Sub Form_Resize()
Dim nLeft As Single
Dim nWidth As Single
On Error Resume Next
nLeft = ToolbarOffsetPixels * Screen.TwipsPerPixelX
nWidth = Me.ScaleWidth - nLeft
With Toolbar1
.Align = vbAlignNone
.Move nLeft, 0, nWidth
End With
End Sub
|