HTML links in VB About screen? 1

[davejazz]

How do you add HTML links (company web site URL, mailto) to a Visual Basic 6 "About" Screen?

 

[johnwm]

Just put a Label on the form, set it's Caption Property to the clickable text and add suitable code to the Label's Click event:

Private Sub Label3_Click()
Dim x
x = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler [URL unfurl="true"]http://www.essexsteam.co.uk",[/URL] vbNormalFocus)
End Sub

That will open the site using the user's default browser. Replace the 'x = ...' line with:

x = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler mailto:jm @ essexsteam.co.uk", vbNormalFocus)

for email. make sure you don't leave the spaces in the real email address!

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller

 

[davejazz]

WOW!

Works GREAT!

Thank you ... and a happy holiday season!

 

[johnwm]

You're welcome. Thanks, and season's greetings to you!

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller