Option Explicit 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 Const SW_SHOWNORMAL = 1 Private Sub Command1_Click() ShellExecute Me.hwnd, "open", "C:\MaPage.htm", vbNullString, vbNullString, SW_SHOWNORMAL End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question