Rubrik: Oberfläche · Sonstiges | VB-Versionen: VB4, VB5, VB6 | 18.05.04 |
Einfache SplitterBar mit VB-Boardmitteln Dieser Tipp zeigt, wie man mit VB-Boardmitteln sehr einfach eine horizontale SplitterBar zum autom. Anordnen zweier Controls realisieren kann. | ||
Autor: Bernd Theilacker | Bewertung: | Views: 18.511 |
www.oggisoft.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Heute zeigen wir Ihnen, wie die man mit VB-Boardmitteln sehr einfach eine horizontale SplitterBar zum autom. Anordnen zweier Controls zur Laufzeit realisieren kann.
Hierzu benötigen wir eine Form, ein Bezeichnungsfeld (lblSplitter) und zwei Textfelder (Text1 und Text2).
Tipp: Wenn Sie anstatt der Textfelder Listenfelder verwenden, sollten Sie die Eigenschaft "IntegralHeight" auf False festlegen.
Vielleicht ist Ihnen aufgefallen, das MS Outlook und MS Outlook Express unterschiedliche Methoden bei der Größenänderung verwenden. Diese finden Sie im Bespielprogramm zu diesem Tipp erklärt.
Das erstmalige Anordnen der Controls erledigen wie per Code:
Option Explicit ' Konstanten Const nMinHeight = 700 ' Mindestgröße der Controls Const nSBarHeight = 90 ' Größe der SplitterBar Private bScrolling As Boolean
Private Sub Form_Load() ' Eigenschaften festlegen With lblSplitter .Caption = "" .Height = nSBarHeight ' Cursor: Größenänderungspfeil .MousePointer = 7 End With End Sub
Private Sub Form_Resize() ' TextBoxen und SplitterBar ausrichten Dim nHeight As Long Dim nTop As Long If Me.WindowState <> vbMinimized Then With Text1 .Move 0, 0, Me.ScaleWidth nHeight = Me.ScaleHeight - nMinHeight - nSBarHeight If nHeight < 0 Then nHeight = 0 If .Height > nHeight Then .Height = nHeight End With lblSplitter.Move 0, Text1.Height, Me.ScaleWidth With Text2 .Move 0, lblSplitter.Top + lblSplitter.Height, Me.ScaleWidth nHeight = Me.ScaleHeight - .Top If nHeight < 0 Then nHeight = 0 .Height = nHeight End With End If End Sub
Beim Klick auf das Label - also auf unser SplitterBar-Control - müssen die beiden Textboxen in ihrer Größe (Höhe) neu angeordnet werden:
Private Sub lblSplitter_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) ' gescrollt wird nur bei gedrückter maustaste bScrolling = True End Sub
Private Sub lblSplitter_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Dim lblPos As Long If bScrolling Then ' nur Scrollen, wenn die Maustaste gedrückt ist ' Position lblPos = Y + lblSplitter.Top ' oberen und unteren Rand festlegen, über den ' nicht hinaus gescrollt werden soll If lblPos < (Me.ScaleHeight - nMinHeight) And _ lblPos > (Me.ScaleTop + nMinHeight) Then ' Höhe an lblPos angleichen Text1.Height = lblPos - Text1.Top ' Kleinen Spalt zwischen den beiden ' Textfeldern erzeugen Text2.Top = Text1.Height + lblSplitter.Height ' 2. TextBox in der Größe anpassen Text2.Height = Me.ScaleHeight - Text2.Top End If End If End Sub
Private Sub lblSplitter_MouseUp(Button As Integer, _ Shift As Integer, X As Single, Y As Single) ' Label zwischen die beiden Steuerelemente setzen lblSplitter.Top = Text1.Height ' Scrollen beenden bScrolling = False End Sub
Das war's dann auch schon