Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0025: Tabulatoren in Listboxen setzen

VB 5/6-Tipp 0025: Tabulatoren in Listboxen setzen

 von ActiveVB

Schwierigkeitsgrad:

Verwendete API-Aufrufe: SendMessageA (SendMessage)

Download: Download des Beispielprojektes [2,27 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias FORM1.FRM  ---------
' Steuerelement: Schaltfläche "Command2"
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Listen-Steuerelement "List1"

Option Explicit

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 Const LB_SETTABSTOPS = &H192

'### Hier die Anzahl der maximal aufretenen Tabs eintragen (hier 3)
Const OGrenze = 3

'### Feld reservieren
Dim Tabulator(1 To OGrenze) As Long

Private Sub Form_Load()
  '### Die einzelnen Tabs mit konkreten Werten belegen
  Tabulator(1) = 50
  Tabulator(2) = 100
  Tabulator(3) = 150
 'Tabulator(4) = 200
 'Tabulator(5) = 250
 '          ...
 
  Call MakeList
End Sub

Private Sub MakeList()
  '### Liste leeren, neue Tabs via API senden & Liste neu füllen
  List1.Clear
  
  SendMessage List1.hwnd, LB_SETTABSTOPS, OGrenze, Tabulator(1)
  
  List1.AddItem "Heinrich" & vbTab & "Gumpertisch" & vbTab & "12345" _
                & vbTab & "Otzlingen"
  List1.AddItem "Gundi" & vbTab & "Gumpertisch" & vbTab & vbTab _
                & "Futzkirchen"
  List1.AddItem "Fritz" & vbTab & vbTab & "12345" & vbTab _
                & "Rotzbach"
  List1.AddItem "Lisel" & vbTab & "Krauter" & vbTab & "12345"
End Sub

Private Sub Command1_Click()
  '### Tabs aufwärts schieben
  Tabulator(1) = Tabulator(1) + 1
  Tabulator(2) = Tabulator(2) + 2
  Tabulator(3) = Tabulator(3) + 3
 'Tabulator(4) = Tabulator(4) + 4
 'Tabulator(5) = Tabulator(5) + 5
 '          ...

  Call MakeList
End Sub

Private Sub Command2_Click()
  '### Tabs abwärts schieben
  If Tabulator(1) < 0 Then Exit Sub
  
  Tabulator(1) = Tabulator(1) - 1
  Tabulator(2) = Tabulator(2) - 2
  Tabulator(3) = Tabulator(3) - 3
 'Tabulator(4) = Tabulator(4) - 4
 'Tabulator(5) = Tabulator(5) - 5
 '          ...
 
  Call MakeList
End Sub
'---------- Ende Formular "Form1" alias FORM1.FRM  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 7 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.