/ Snippet Library - View Code

Snippet details

ID: 367

Viewed: 1317

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

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

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight AllPublic 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 ' '
Code
Highlight AllPublic 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 Reviews to show