title image


Smiley Re: Listbox Spalten ansprechen
Private Sub Form_Load()



Dim lvwItem As ListItem



   With Me.ListView2



      .View = lvwReport

      '// Spalten erstellen

      .ColumnHeaders.Add , "a", "A"

      .ColumnHeaders.Add , "b", "B"

      .ColumnHeaders.Add , "c", "C"



      '// Füllen



      '// erste Spalte

      Set lvwItem = .ListItems.Add(, , "a 1")

      '// jede weitere Spalte ist ein SubItem

      lvwItem.SubItems(1) = "b 1"

      lvwItem.SubItems(2) = "c 1"



      Set lvwItem = .ListItems.Add(, , "a 2")

      lvwItem.SubItems(1) = "b 2"

      lvwItem.SubItems(2) = "c 2"

   End With



End Sub
Gruß
Gaga

___________________________________________________________________

Profilösungen für VB6
wenn nicht anders angegeben, sind alle Codebeispiele nicht getestet, nur getippt


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: