Crear un hipervínculo (web o e-mail) desde nuestra aplicación.
En este truco vamos a ver como crear hipervínculos desde un programa Visual Basic. Crearemos un nuevo proyecto y en el formulario añadiremos dos arrays de controles Label. Para hacer esto basta con insertar un control Label, copiarlo, y pegarlo.
Repetir la operacion para crear el segundo array de controles Label, que en este caso hemos llamado lblLink.
En el objeto (General) dentro del procedimiento (Declaraciones) del formulario añadiremos el siguiente código:
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
En el método Click del control lblLink añadiremos las siguientes líneas de código:
Private Sub lblLink_Click(Index As Integer)
Dim sLink As String
If Index = 0 Then
'e-mail
sLink = "
[email protected]"
ShellExecute 0, vbNullString, "mailto:" & sLink, vbNullString, _
vbNullString, vbNormalFocus
Else
'web
sLink = "http://www.enlazando.com/vbworld"
ShellExecute 0, vbNullString, sLink, vbNullString, _
vbNullString, vbNormalFocus
End If
End Sub
;)