Primer odradjen pomocu VBA posto nije preciziran nacin kako se vrsi prozivanje vrednosti da bi se pokrenuo proces otvaranja podrazumevane aplikacije koja otvara web adrese.
Ovaj primer isto moze da posluzi i za otvaranja drugih vrsta file-ova.
Umesto vrednosti '
www.elitesecurity.org' bi isla vrednost iz baze kao i poziv f-je bi se odradio na odredjeni dogadjaj tj. event, na click ili kako vec...
Code:
#If VBA7 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long
#Else
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long
#End If
Public Function DoShellOpen(ByVal ThisFile As String) As Long
DoShellOpen = ShellExecute(0, "Open", ThisFile, "", "C:\", SW_SHOWNORMAL)
End Function
' Primer pozivanja f-je
Sub TestMe()
DoShellOpen "www.elitesecurity.org"
End Sub