
| |||
Hola No se si lo que quieres es abrir una página web o abrir un documento que tengas en tu disco duro. De todos modos si es una de estas dos cosas lo mejor es utilizar la API ShellExecute, lo declaras en el General de un módulo:
Código:
Y luego en el botón, si quieres abrir una página web: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
Código:
Si quieres abrir un documento de tu disco duro:Dim resul As Long resul = ShellExecute(Me.hwnd, "open", "http://www.google.es", "", "", 1)
Código:
--Saludos-- Dim resul As Long resul = ShellExecute(Me.hwnd, "open", "d:\MisDoc\prueba.htm", "", "", 1) |