|
Die Höhe einer Zeile bzw. eines Knotens in einem
TreeView-Steuerelement wird normalerweise automatisch anhand der
Schriftgröße und/oder der Höhe der Bilder einer zugewiesenen
Image-Liste festgelegt.
Über die API-Funktion  SendMessage
und die Nachricht TVM_SETITEMHEIGHT
können Sie die Höhe einer Knoteneile selbst beliebig festlegen.
Ebenso können Sie über die Nachricht TVM_GETITEMHEIGHT
die aktuelle Höhe einer Knotenzeile in Pixels ermitteln.
Die Hilfsprozedur SetNodeHeight vereinfacht den Aufruf. Sie
übergeben ihr eine Referenz auf das betreffende
TreeView-Steuerelement und optional die gewünschte Höhe in Pixels.
Als kleinsten Wert können Sie 2 Pixel festlegen. Geben
Sie einen kleineren Wert an oder lassen Sie die Angebe weg, wird als
Voreinstellung der Wert -1 angenommen und die
automatisch festgelegte Höhe wird wieder hergestellt.
Die Hilfsfunktion GetNodeHeight liefert Ihnen umgekehrt die
aktuelle Höhe in Pixels. Auch hier übergeben Sie als Parameter
eine Referenz auf das betreffende TreeView-Steuerelement.
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Sub SetNodeHeight(tvw As TreeView, ;
Optional ByVal NewNodeHeight As Long = -1)
Const TVM_SETITEMHEIGHT = &H111B
If NewNodeHeight < 2 Then
NewNodeHeight = -1
End If
SendMessage tvw.hWnd, TVM_SETITEMHEIGHT, NewNodeHeight, _
ByVal 0&
End Sub
Public Function GetNodeHeight(tvw As TreeView) As Long
Const TVM_GETITEMHEIGHT = &H111C
GetNodeHeight = SendMessage(tvw.hWnd, TVM_GETITEMHEIGHT, 0, _
ByVal 0&)
End Function
|