![]() | Type | Description | ||
| Group as Group | A Group object where user clicks a hyper link cell. | |||
| Item as HITEM | A long expression that indicates the item's handle. | |||
| ColIndex as Long | A long expression that indicates the column's index. |
The following sample displays the caption of the clicked cell:
Private Sub ExplorerTree1_AddItem(ByVal Group As EXPLORERTREELibCtl.IGroup, ByVal Item As EXPLORERTREELibCtl.HITEM)
Group.Items.CellHyperLink(Item, 0) = True
End Sub
Private Sub ExplorerTree1_HyperLinkClick(ByVal Group As EXPLORERTREELibCtl.IGroup, ByVal Item As EXPLORERTREELibCtl.HITEM, ByVal ColIndex As Long)
Debug.Print Group.Items.CellCaption(Item, ColIndex)
End Sub
Private Sub Form_Load()
With ExplorerTree1
With .Groups.Add("Group 1")
.SelForeColor = .HyperLinkColor
.SelBackColor = .BackColorList
.PutItems Array("http://www.exontrol.com", "http://www.exontrol.net")
End With
End With
End Sub