Simular un hipervínculo con un Label

Trucos y tretas

Simular un hipervínculo con un Label


	Regresar al menú "Trucos"
	Principal

Autor:	Daniel Quintero
Fecha:	13 de agosto del 2001
Descripción:	Saber si estamos ejecutando un programa dentro del IDE de Visual Basic o dentro de un ejecutable (EXE)

Esta simulación es excelente para implementar en la forma "Acerca de" de tu programa, para que un hipotético usuario pueda visitar tu página o enviarte un mail.

Inicia un proyecto nuevo y en la forma creada por default (Form1) inserta un label (Label1) y asignale las siguientes propiedades:

Propiedad	Valor
AutoSize	True
Caption	mailto:dqrsoftware@gmx.net
ForeColor	&H00FF0000&
Font	... Subrayado
MousePointer	99 - Custom
MouseIcon	Bájate el cursor "HAND.CUR"

Agrega el siguiente código a la forma e inicia el programa con F5 y prueba el hipervínculo:

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
Private Const SW_SHOWNORMAL = 1

Private Sub Label1_Click()
   ShellExecute Me.hwnd, vbNullString, Label1.Caption, vbNullString, "C:\", SW_SHOWNORMAL
End Sub


	Arriba
	Regresar al menú "Trucos"
	Principal

Propiedad

Valor