Not a Member Yet,
Click here to Register
How do you like the new design?






ID: 367
Viewed: 2963
Added: Aug 19, 2002
Version:
Snippet uploaded by: snippet
Written By: Unknown
Demo: Sorry, no demo



User Rated at: 0 Stars
Rate This:

Thank you for your vote. Please wait...

It appears you already voted for this snippet

It appears your vote value was empty

Place this declare in a BAS / CLS / FRM module as appropriate not forgetting to change public to private where required !

Highlight all by clicking in box
<!---Declaration--->
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
'
'

Highlight All
<!---Code--->

Public Sub ExecuteLink(ByVal sLinkTo As String)
'
' Execute the passed Link
'
On Error Resume Next
'
Dim lRet As Long
Dim lOldCursor As Long
'
lOldCursor = Screen.MousePointer
'
Screen.MousePointer = vbHourglass
'
lRet = ShellExecute(0, "open", sLinkTo, "", vbNull, SW_SHOWNORMAL)
'
If lRet >= 0 And lRet <= 0 Then
Screen.MousePointer = vbDefault
MsgBox "error Opening Link to " & sLinkTo & vbCrLf & _
vbCrLf & Err.LastDllError, , "ExecuteLink"
End If
Screen.MousePointer = vbDefault
'
End Sub;


No Comments to show

Please completely fill out the form below if you want to review this snippet. All reviews are subject to validation.


Replying to a Comment...


Adding your comment. Please wait...

Thanks for adding your comment!. After further review it will be added.

There was a problem adding your comment. Please try again.

Please complete all the fields in the form before sending.

© 2002 - 2017 snippetlibrary.com All Rights Reserved. Conditions