vb@rchiv · Tipps & Tricks · ListView Column-Headers flach darstellen

Rubrik: Controls · ListView | VB-Versionen: VB4, VB5, VB6

28.09.01

ListView Column-Headers flach darstellen Eine Routine, welche die Darstellung der ListView Spaltenüberschriften entweder flach oder normal darstellt.
Autor: Thomas Bannert	Bewertung:	Views: 16.447
ohne Homepage	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Leider verfügt das ansonsten doch so moderne ListView-Control nicht über die Möglichkeit, die Spaltenbezeichner (Columns-Headers) im modernen "Flatlook" darzustellen.

Unter Einsatz des Windows-APIs lässt sich aber auch das realisieren. Hierzu muss zunächst das Handle der Column-Headers ermittelt werden. Dann wird über die API-Funktion GetWindowLong der aktuelle Stil ermittelt und per SetWindowLong der neue Stil zugewiesen.

Fügen Sie nun nachfolgenden Code in ein Modul ein, und rufen dann die Prozedur FlatColumnHeaders in Verbindung mit Ihrem ListView-Control auf. Die Spaltenbezeichner werden dann sofort "flach" dargestellt. Ein nochmaliger Aufruf stellt die Standard-Darstellung wieder her.

' zunächst die benötigten API-Deklarationen
Private Const HDS_BUTTONS As Long = &H2
Private Const GWL_STYLE As Long = (-16)
Private Const LVM_GETHEADER As Long = (LVM_FIRST + 31)
Private Const LVM_FIRST = &H1000
 
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
 
Private Declare Function GetWindowLong Lib "user32" _
  Alias "GetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long) As Long
 
Private Declare Function SetWindowLong Lib "user32" _
  Alias "SetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long

Und jetzt die Prozedur selbst:

' ColumnHeaders eines ListView-Controls flach
' darstellen
Private Sub FlatColumnHeader(oLSV As ListView)
  Dim lStyle       As Long
  Dim lHeader      As Long
 
  ' Bei Auftreten eines Fehlers, Sub verlassen
  On Local Error GoTo ExitSub
 
  ' Handle des ColumnHeaders
  lHeader = SendMessage(oLSV.hwnd, LVM_GETHEADER, 0, _
    ByVal 0&)
 
  ' Aktuelles Aussehen des Headers lesen
  lStyle = GetWindowLong(lHeader, GWL_STYLE)
 
  ' Style ändern
  lStyle = lStyle Xor HDS_BUTTONS
 
  If lStyle Then
    ' neuen Style zuweisen
    Call SetWindowLong(lHeader, GWL_STYLE, lStyle)
  End If
 
ExitSub:
End Sub

Beispiel:

Private Sub Form_Load()
  ' ListView-Headers "flach" darstellen
  FlatColumnHeaders ListView1
End Sub