Visual Basic - Poner hipervinculo en el form

Life is soft - evento anual de software empresarial
 
Vista:

Poner hipervinculo en el form

Publicado por Xi0N (64 intervenciones) el 28/01/2005 21:41:22
Hola quería poner en el fondo de un formulario MDI una linea de texto con una página web, por ejemplo: "http://www.lawebdelprogramador.com" y que al pinchar sobre el, me abra el navegador en esta página. Osea, un label o un algo que me sirva de hipervinculo a una web. Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Poner hipervinculo en el form

Publicado por miguel (1042 intervenciones) el 28/01/2005 23:30:58
Prueba con esto:
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_NORMAL = 1
Private Sub Label2_Click()
Dim X
X = ShellExecute(Me.hwnd, "Open", "http://www.nba.com", &O0, &O0, SW_NORMAL)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = vbBlue
Screen.MousePointer = 0
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Screen.MousePointer = 99
Label2.ForeColor = vbRed
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar