ב - API shellExecute
הוסף את ההכרזה הבאה לתכנית שלך :
Private 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
|
ועכשיו הוסף כפתור לטופס ואת הקוד הבא:
Private Sub Command1_Click() ShellExecute Me.hwnd, vbNullString, _ "http://www.google.com", vbNullString, _ "C:\", SW_NORMALEnd Sub
|
עדן