Visual Basic Forum

Fuka · Coder Anmeldedatum: 01.05.2008 Beiträge: 97

Moin Leute!

In diesem Code werden Ordner aufgelistet. (Das geht! :p )
Visual Basic: [code]Case "LoadDir"
frm_filemanager.lv_dir.ListItems.Clear

Set list = frm_filemanager.lv_dir.ListItems.Add(, , "...")

For i = 2 To splitted(1) + 1

With frm_filemanager.lv_dir.ListItems.Add
.Text = Mid$(splitted(i), InStrRev(splitted(i), "") + 1)
.Tag = splitted(i)
End With

Next i
[/code]

Sooo, jetzt sollen da aber Icons rein!^^

Ich weiß aber jetzt nicht, wie da die Icons reinkommen, weil ich ja kein .add(,,...,,...) habe, sondern .text und .tag in der Withschlaufe!

Wisst ihr, was ich meine?

Ich hab schon das hier getestet:

Visual Basic: [code]For i = 2 To splitted(1) + 1

With frm_filemanager.lv_dir.ListItems
.add.Text = Mid$(splitted(i), InStrRev(splitted(i), "") + 1)
.add.Tag = splitted(i)
.add(,,,,,"Ordner")
End With

Next i[/code]
("Ordner" für das Icon im ImageList!!!)

Geht aber auch nicht.

Bei den Laufwerken geht es!

Der Code ist dafür aber auch anders, weil ich da keine withschlaufe hab.

Visual Basic: [code]Case "LoadDrives"
frm_filemanager.lv_drives.ListItems.Clear
frm_filemanager.lv_drives.SmallIcons = frm_filemanager.ImageList1

For i = 2 To splitted(1) + 1
Set list = frm_filemanager.lv_drives.ListItems.Add(, , splitted(i), , "Laufwerk")
Next i[/code]
Ich hoffe ich wisst was ich meine!^^

MfG

DFJ · Tutorial Leser Anmeldedatum: 01.05.2008 Beiträge: 39

Code:

With frm_filemanager.lv_dir.ListItems (hier icon fest legen)

also oben das icon festlegen das sollte gehen sonst einfach ne extra schleife machen , in der schleife .

Smile

PS: ups total hirnschieß ,

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

http://www.visual-basic-forum.de/viewtopic.php?t=3026
http://www.visual-basic-forum.de/viewtopic.php?t=3027

Fuka · Coder Anmeldedatum: 01.05.2008 Beiträge: 97

Visual Basic: [code]
With frm_filemanager.lv_dir.ListItems.Add(, , , , "Ordner")
.Text = Mid$(splitted(i), InStrRev(splitted(i), "") + 1)
.Tag = splitted(i)
End With
[/code]

So? Geht auf jeden Fall nicht^^

Ich weiß nicht wie du das meinst mit der extra schleife [img]/sad.gif[/img]

MfG

EDIT:

Hab ZiGs beitrag grade erst gesehen! Ich guck mir das mal an!

DFJ · Tutorial Leser Anmeldedatum: 01.05.2008 Beiträge: 39

(Fuka;737)

With frm_filemanager.lv_dir.ListItems.Add(, , , , "Ordner")
.Text = Mid$(splitted(i), InStrRev(splitted(i), "") + 1)
.Tag = splitted(i)
End With

So? Geht auf jeden Fall nicht^^

Ich weiß nicht wie du das meinst mit der extra schleife [img]/sad.gif[/img]

MfG