Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How do i create hyperlinks to my site. or to email me?
- Thread starter 1471
- Start date
>As a quick and easy method to perform this task try the shell object
Public 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
then call this with one of the two following commands.
Dim lng as Long
'email the internet site
lng = ShellExecute (frmMain.hwnd, "Open", "mailto:xxx@yyy.net", "", App.Path, 1)
'open the internet site
lng = ShellExecute(frmMain.hwnd, "Open", " "", App.Path, 1)
I usually just put a couple of labels or picture boxes on the form with these in the click events
chat soon
Michael
Public 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
then call this with one of the two following commands.
Dim lng as Long
'email the internet site
lng = ShellExecute (frmMain.hwnd, "Open", "mailto:xxx@yyy.net", "", App.Path, 1)
'open the internet site
lng = ShellExecute(frmMain.hwnd, "Open", " "", App.Path, 1)
I usually just put a couple of labels or picture boxes on the form with these in the click events
chat soon
Michael
- Status
