[RESOLVED] hyperlink

[engnouna]

Hi
I have a treeview with multiple nodes.When the user clicks on a specific child node,I want to include a hyperlink to "www.yahoo.com".

My first question is what's the event that detect that a child node has been clicked.
My second question is how can I include a hyperlink to a childnode's text

Any help would be appreciated

Thanks

[Static]

you cant include a hyperlink... but what u can do is set the nodes tag property to the real URL. the call that on the NodeClick event... (Using ShellEx API to launch the URL)

Private Declare Function ShellEx Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As Any, _
ByVal lpDirectory As Any, ByVal nShowCmd As Long) As Long
 
 
Private Sub Form_Load()
   Dim tNode As Node
    TreeView1.Nodes.Add , , "Websites", "Websites"
    Set tNode = TreeView1.Nodes.Add("Websites", tvwChild, "www.yahoo.com", "www.yahoo.com")
    tNode.Tag = "http://www.yahoo.com"
End Sub
 
 
 
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    If Node.Tag <> "" Then
        ShellEx Me.hwnd, "open", Node.Tag, "", "", 1
    End If
End Sub

[engnouna]

Hi Static
I want to explain to you my problem:
I have a tree view that looks like:
Author
Books(written by this author)
Date of Publication
Title of the book
When the user clicks on the Title of the book,i want to show the cover of the book which is saved in the local disk(C:\Covers),how can i include a hyperlink into the title of the book(note that I obtain the title of the book from an SQL query

Sql=Select * from Author where Book like'"&sbook &"' and bdate='"&sdate &"'"
rs.open Sql,cn,adopenkeyset,adlockoptimistic
...
Set nodr = TreeView1.Nodes.Add(nodx, tvwChild, , rs!BookTitle)

note that nodx is the node containing the date of publication

Any help?
Thanks

[Al42]

What's the name of the field in the table that has the name of the file that's the picture of the cover?

[engnouna]

Hi
the name of the field is BFile

[Static]

so add this line:

Sql=Select * from Author where Book like'"&sbook &"' and bdate='"&sdate &"'"
rs.open Sql, cn, adopenkeyset, adlockoptimistic
...
Set nodr = TreeView1.Nodes.Add(nodx, tvwChild, , rs!BookTitle)
[B]nodr.tag = rs!Bfile[/B]

now.. how do you want to display the image?

[engnouna]

Thanks Static