Tema: Hipervinculo
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 22/06/2008, 20:41
Avatar de seba123neo
seba123neo
 
Fecha de Ingreso: febrero-2007
Ubicación: Esperanza, Santa Fe
Mensajes: 1.046
Antigüedad: 18 años, 2 meses
Puntos: 19
Respuesta: Hipervinculo

Hola,un ejemplo simple con un label...

Código:
Private Sub Form_Load()
With Label1
.Caption = "www.google.com.ar"
.AutoSize = True
.ForeColor = vbBlue
End With
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontBold = False
End Sub

Private Sub Label1_Click()
Shell "explorer.exe http://" & Label1.Caption, vbMaximizedFocus
Label1.ForeColor = &HC11EA5
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontBold = True
End Sub
yo use shell para abrir la pagina ,pero podes usar mejor la api llamada ShellExecute,que te abre la pagina de internet con el navegador predeterminado,o sea si tenes el firefox como predeterminado,te lo abre con este....

saludos.
__________________
" Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein