Hipervínculo
Hola amigos deseo saber como puedo realizar un hipervínculo con un botón desde un programa que estoy realizando, es decir, presionar el botón y que me salga el browser internet explorer con el enlace de la página, or favor responden pronto si, si es posible a mi correo
1 Respuesta
Respuesta de amallolm
1
1. Crea un proyecto EXE Estándar.
2. Añade una etiqueta y llámala lblURL
3. Añade el siguiente código a tu formulario
Private Sub lblURL_Click()
Dim nFile as Integer
' Escribir un archivo temporal URL
nFile = FreeFile()
Open App.Path & "\Temp.url" For Output As #nFile
Print #nFile, "[InternetShortcut]"
Print #nFile, "URL=" & lblURL.Caption
Close #nFile
' Arrancar el navegador
Shell "rundll32.exe shdocvw.dll, OpenURL " & App.Path & "\Temp.url", vbNormalFocus
'Eliminar el archivo temporal
Kill App.Path & "\Temp.URL"
End Sub
2. Añade una etiqueta y llámala lblURL
3. Añade el siguiente código a tu formulario
Private Sub lblURL_Click()
Dim nFile as Integer
' Escribir un archivo temporal URL
nFile = FreeFile()
Open App.Path & "\Temp.url" For Output As #nFile
Print #nFile, "[InternetShortcut]"
Print #nFile, "URL=" & lblURL.Caption
Close #nFile
' Arrancar el navegador
Shell "rundll32.exe shdocvw.dll, OpenURL " & App.Path & "\Temp.url", vbNormalFocus
'Eliminar el archivo temporal
Kill App.Path & "\Temp.URL"
End Sub
