COMO CREAR HIPERVINCULOS EN VISUAL BASIC

JUAN RAMON
25 de Marzo del 2006
QUISIERA SABER DE QUE FORMA PUEDO PONERHIPERVINCULOS EN VISUAL BASIC 6.0

LLE
25 de Marzo del 2006
Una forma con el Api: poné un Label1:

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


Private Sub Form_Load()
With Label1
.Caption = "www.google.com"
.AutoSize = True
.MousePointer = 99
.ForeColor = vbBlue
\'.MouseIcon = \'acá poner el icono para la mano
End With

End Sub

Saludos

www.recursosvisualbasic.com.ar