[RESOLVED] url link question

[mnporter2001]

Hi all

Im new to this and am building a little tool and at the botom i want to put a copyright notice and a link that when clicked will open there browser and take them to my website?

But i have no clue how to make this happen

Any and all help would be really appreciated

Thanks
Mark

[longwolf]

Welcome to the forum!

not to hard

'Put this in the Declaration/top section of the form:

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 Const SW_SHOWNORMAL = 1

Now add a label named lblLink, put your copyright in it's Caption and add this code to the form:

 
Private Sub lblLink_Click()
    Dim iReturn As Long
    Dim sURL As String

    'change this url to your own
    sURL = "http://www.MySite.com"
    iReturn = ShellExecute(Me.hwnd, "Open", sURL, vbNullString, App.Path, SW_SHOWNORMAL)
End Sub

Edit, added the constant

[danecook21]

I decided to put together a quick sample showing how I make a link out of a label. It is attached.

[mnporter2001]

Thats great !!!!!


Thanks very much for both your help ( i can sleep easy now )

Thanks
Mark

[Hack]

Welcome to the forums.

As a newer member I ask that if you consider your question to be resolved please help us out by pulling down the Thread Tools menu and clicking the Mark Thread Resolved menu item. That will let everyone know that you have your answer.

Thank you.

[longwolf]

( i can sleep easy now )

Thanks
Mark

lol, well, I wouldn't lose sleep over a thing like that