Jeg har lavet et lille eksempel til dig, hvis du er interessret så giv mig din mail adresse, men her er koden, på din form du skal lave tre knapper et listview og et treeview samt to imagelists de ligger alle i den component der hedder Microsoft Windows Common Controls 5.0:
Private Sub Command1_Click() Unload Me End Sub
Private Sub Command2_Click() Select Case ListView1.View Case 0 ListView1.View = 1 Case 1 ListView1.View = 2 Case 2 ListView1.View = 0 End Select End Sub
Private Sub Command3_Click() Select Case ListView1.SortOrder Case 0 ListView1.SortOrder = 1 Case 1 ListView1.SortOrder = 0 End Select End Sub
\'Tilføj Node objects. Dim nodX As Node \'Første node Set nodX = TreeView1.Nodes.Add(, , \"r\", \"Root 1\", \"cd\")
\'Children til root 1 Set nodX = TreeView1.Nodes.Add(\"r\", tvwChild, \"child1\", \"Child 1\", \"info\") Set nodX = TreeView1.Nodes.Add(\"r\", tvwChild, \"child2\", \"Child 2\", \"info\")
Set nodX = TreeView1.Nodes.Add(, , \"r1\", \"Root 2\", \"cd\") \'Children til root 2 Set nodX = TreeView1.Nodes.Add(\"r1\", tvwChild, \"child3\", \"Child 1\", \"info\") Set nodX = TreeView1.Nodes.Add(\"r1\", tvwChild, \"child4\", \"Child 2\", \"info\")
Set nodX = TreeView1.Nodes.Add(\"child4\", tvwChild, \"childchild1\", \"Child 2.1\", \"gul\") Set nodX = TreeView1.Nodes.Add(\"child4\", tvwChild, \"childchild2\", \"Child 2.2\", \"gul\")
Set nodX = Nothing Dim colDrev As Drives Dim Drev As Drive Dim list As ListItem Dim fso As FileSystemObject Set fso = New FileSystemObject Set colDrev = fso.Drives
\'loop gennem alle drev For Each Drev In colDrev If Drev.IsReady Then If Drev.DriveType = CDRom Then Set list = ListView1.ListItems.Add(, Drev.VolumeName, Drev.DriveLetter & \":\\ \" & Drev.VolumeName, \"cd\", \"cd\") Else Set list = ListView1.ListItems.Add(, Drev.VolumeName, Drev.DriveLetter & \":\\ \" & Drev.VolumeName, \"gul\", \"gul\") End If ElseIf Drev.DriveType = CDRom Then Set list = ListView1.ListItems.Add(, Drev.DriveLetter, Drev.DriveLetter & \":\\ \" & \"Ikke klar\", \"cd\", \"cd\") Else Set list = ListView1.ListItems.Add(, Drev.DriveLetter, Drev.DriveLetter & \":\\ \" & \"Ikke klar\", \"info\", \"info\") End If Next End Sub
Jeg har kigget på koden og hvis du tager koden fra mit eksempel så er det hurtigt at rette det til så der kommer ikoner på dit listview, men ellers må du poste en kommentar her, så kigger jeg på det.
jper: Tak for hjælpen nu har jeg fået det til at virke. :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.