Hej

Jag håller nu på med en filhanterarae. Jag har en DrivListBox, en TreeView och en ListView.
Hur kopplar man DrivListBox till TreeView så att det kommer upp "Mappar".
Undrar nu vad koden till detta kan vara?

Tack på förhand!!

<code>
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
</code>

Detta gäller dock bara med Drive, Dir och Path kontrollerna från VB.

Vill du ha dem i en lista och slippa skriva kod kan du göra så här:
<code>
For i = 0 To Dir1.ListCount
List1.AddItem Dir1.List(i)
Next
</code>
Du kan ha Dir1 gömd.

Det finns inte färdig kod till allt.

/Andrec

Det är inte helt lätt, men är ett bra sätt att lära sig hur en treeview fungerar.

Vad du får göra är att när formuläret öppnas (samt när drivelistboxen ändras) får du lägga in katalogerna i roten i trädet. När du sen klickar på "plus" så får du lägga in underkatalogerna i trädet.. Vill inte berätta för mycket, för då lär du dig inget.. ;)

Vad du ska göra först:
1. Lägg in en imagelist på formuläret och lägg in ikoner för kataloger, ange "key" på varje ikon, dessa kommer att användas senare.
2. I egenskaper för treeviewn lägga in ovanstående som imagelist
3. Ändra "LineStyle" på treeviewn till "1-tvwRootLines"

Nästa steg är att lägga in roten, förenklat blir det:
<code>
treeview.Nodes.Add , , "c:\", "c:", "key i imagelist för ikonen du vill använda"
</code>
använd sen FSO för att loopa igenom alla kataloger i den enhet som är vald i drivelistboxen, lägg sedan till noder i trädet med:

<code>
treeview.Nodes.Add "c:\", tvwChild, "c:\Mapp\", "Mapp", "key i imagelist för ikonen du vill använda"
</code>

Här får du ju ha en loop som går igenom alla mappar i roten.. Som du ser så är "Key" på varje nod den fulla sökvägen. Detta innebär att det kan användas för att lägga till nya noder, så när du klickar på pluset så får du läsa in de mappar som finns i sökvägen som finns i expanderad nods key, detta anger du sen i "relative" när du kör add..

En liten grej som är lite smårolig är att, för att få ett plustecken så måste du lägga till en "nonsens"-nod för varje nod du lägger in.. T ex, om vi visar ett litet exempel:

<code>
+ c:
+ Mapp1
Nonsens
+ Mapp 2
Nonsens
</code>

Eftersom noderna inte är expanderade så märks ju inte detta.. Låt oss sen säga att du expanderar "Mapp 2", då ser det ut som följer:
<code>
+ c:
+ Mapp1
Nonsens
+ Mapp 2
+ UMapp 1
Nonsens
+UMapp 2
Nonsens
</code>


Hoppas du hänger med.. Det är tidigt på morgonen och kaffet har knappt börjat verka.. :) Men, det är ett bra sätt att lära sig komponenten.. :D

ok.
Har nu laggt in en ImageList1, ListView1 och Drive1.
Vad är det du menar med ikoner??
Den ska påminna lite om utforskarn.
Är välldigt ny på vb..

Tack på förhand!!