title image


Smiley Re: ListBox mit mehreren Spalten befüllen
Mache es so:







      

Private Const LB_SETTABSTOPS As Long = &H192

Private Const LB_SETHORIZONTALEXTENT As Long = &H194



Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _

     ByVal hwnd As Long, _

     ByVal wMsg As Long, _

     ByVal wParam As Long, _

     ByRef lParam As Any) As Long



Private Sub Form_Load()

   Dim nTabs(3) As Long

   nTabs(0) = 0   'Spaltenbreiten definieren ....

   nTabs(1) = 200

   nTabs(3) = 300

   SendMessage List1.hwnd, LB_SETHORIZONTALEXTENT, 500, 0

   SendMessage List1.hwnd, LB_SETTABSTOPS, 4, ByVal VarPtr(nTabs(0))

End Sub 



Code eingefügt mit Syntaxhighlighter 3.0







Dann kannst Du:



iKanalNr = FreeFile()

Open sProgrammpfad & sDateiname For Input As iKanalNr

Do While Not EOF(iKanalNr)

Line Input #iKanalNr, sZeile

sZeile = Replace(sZeile,",",vbTab)

List1.AddItem sZeile

Loop

Close iKanalNr


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: