Hyperlink in VB Form

[Adept Developer]

How can I easily add a simple HyperLink to a form? Can I put something in the Click() event?

-Steve

[Andreex]

You could put this in the onclick event of something....



Set x = CreateObject("InternetExplorer.Application")
x.Visible = True
x.navigate url



maybe there is an easier way.....

[hellswraith]

"Give a man a fish, he will eat for a day. Show the man HOW to fish, he will eat for a lifetime."

This is a pretty common question, I think I asked before myself. Click the search button, and type in "hyperlink label" and you will get about 15 different threads on the issue.

[Matthew Gates]

Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As _
Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
 
 
Private Sub Label1_Click()
    ShellExecute Me.hwnd, "Open", "http://www.vb-world.net", _
    vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

[HeSaidJoe]

Click Me

[Adept Developer]

Thanks guys.

I used the code that Mathew posted. The only thing I had to do is declare a constant SW_SHOWNORMAL with a value of 1.

-Steve

[eiSecure]

To make the look more "real", you could make the label change color on mousemove and mouseout. And you can also set the font to underlined, Arial

[Adept Developer]

I'm doing this on an Image control and there is no mouseout event. How else can I accomplish changing the mousepointer?

-Steve

[anoop007]

changing mousepointer is easy.
There is a mouseicon property which you can set to your cursor and change the mousepointer property to 99(custom).

There isn't mousout for any control in VB.
Easy way..

Private Sub Form_MouseMove()
      Label1.Color = vbBlue
End Sub

Private Sub Image1_MouseMove()
     Label1.color = vbRed
End Sub

For the tough and more reliable way look in www.vbaccelerator.com

[HeSaidJoe]

the thread I posted has code to change the cursor....