کد:
Public Declare Function ShellExecuteA Lib “shell32.dll” (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
اگر بخواهید از این تابع با نام apiShellExecute در برنامه تان استفاده کنید باید به جای الگوی فوق، الگوی زیر را در ماژول استفاده کنید.
Public Declare Function apiShellExecute 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
حال تابعی به نام ShellExecuteA یا apiShellExecute در قسمتهای مختلف برنامه قابل فراخوانی است. در این مرحله باید تابع را با پارامترهای مناسب صدا زد. مثلا به شکل زیر:
Dim Lret As Long, LshowHow As Long
Dim stFile As String
LshowHow = 1
stFile = “C:\WO-Status Count8605.pdf”
Lret = ShellExecuteA (hWndAccessApp, vbNullString, stFile, vbNullString, vbNullString, LshowHow )
یا
Lret = apiShellExecute (hWndAccessApp, vbNullString, stFile, vbNullString, vbNullString, LshowHow )