Er der nogen der kan fortælle eller komme med program eksemple på hvordan man bruger treeview som menu.
Vh Klaus Knudsen
JT
Hej Klaus
jeg har lavet et lille eksempel som du måske kan bruge, for test skal du bruge en treeview og hvis du ønsker iconer skal du også bruge en imagelist.
hvis du kan bruge den, skulle den ikke være så svær at ændre og bygge videre på.
Private Sub Form_Load()
'TreeView1.ImageList = imagelist1 ' Hvis du Ønsker Iconer
TreeView1.LineStyle = tvwRootLines ' for at man kan se hvis der undermenuer
TreeView1.FullRowSelect = True
TreeView1.HideSelection = False
TreeView1.Nodes.Add , , "M1", "Menu 1" ', "Menu1" ' Hvis du Ønsker Iconer
TreeView1.Nodes.Add , , "M2", "Menu 2" ', "Menu2"
'---------------Hvis du ønsker undermenuer ------------------------------
TreeView1.Nodes.Add "M2", tvwChild, "M2S1", "Sub 1" ', "Sub1" '
TreeView1.Nodes.Add "M2", tvwChild, "M2S2", "Sub 2" ', "Sub2" '
TreeView1.Nodes.Add "M2S1", tvwChild, "M2SS1", "SubSub 1" ', "SubSub1" '
'--------------------------------------------------------------------------
TreeView1.Nodes.Add , , "M3", "Menu 3" ', "Menu3"
TreeView1.Nodes.Add , , "M4", "Menu 4" ', "Menu4"
End Sub
Private Sub TreeView1_Click()
Select Case TreeView1.SelectedItem.Key
Case "M1" ' da vi ved at treeview keyen skal være uniq bruger vi den.
MsgBox "du har valgt menu 1"
Case "M2S2"
MsgBox "du har valgt menu 2 submenu 2"
Case "M2SS1"
MsgBox "du har valgt menu 2 subsubmenu 1"
Case "M3"
MsgBox "du har valgt menu 3"
Case "M4"
MsgBox "du har valgt menu 4"
End Select
End Sub
Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
Node.Selected = True
End Sub
[Redigeret d. 07/08-02 17:04:55 af Jan Toft]