[VB6] Inserire un collegamento ipertestuale

[nitrodriver]

Come si fa ad inserire un collegamento ipertestuale?

Grazie mille!

[Johnny_Depp]

Non so se è l'unico modo... cmq io ho risolto così:

Private Sub Label1_Click()
    Label1.Caption = "www.html.it"
    Shell ("C:\Programmi\Internet Explorer\IEXPLORE.EXE http://www.html.it"), vbMaximizedFocus
End Sub

Ora non ti resta che formattare le proprietà della label1
(testo sottolineato e magari di colore azzurro)

[nitrodriver]

Originariamente inviato da Johnny_Depp
Non so se è l'unico modo... cmq io ho risolto così:

Private Sub Label1_Click()
    Label1.Caption = "www.html.it"
    Shell ("C:\Programmi\Internet Explorer\IEXPLORE.EXE http://www.html.it"), vbMaximizedFocus
End Sub

Ora non ti resta che formattare le proprietà della label1
(testo sottolineato e magari di colore azzurro)

grazie mille!

[casino10]

Non mi sembra corretto...
Il percorso di IE può essere diverso da pc a pc, poi potrebbe non esserci affatto IE (opera, netscape...).

Public 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
Public Const W_SHOWNORMAL = 1

Public Function LanciaBrowser(Handle As Long, Indirizzo As String)
Dim retValue As Long
retValue = ShellExecute(Handle, vbNullString, Indirizzo, vbNullString, "c:\", SW_SHOWNORMAL)
End Function

Usi la funzione così:
LanciaBrowser Me.hWnd, "mailto:ivan@database.it"
o
LanciaBrowser Me.hWnd, "http://194.243.42.21/ivan"

Funziona con il browser predefinita del sistema e col client di posta predefinito.

Bye !!

[nitrodriver]

Originariamente inviato da casino10
Non mi sembra corretto...
Il percorso di IE può essere diverso da pc a pc, poi potrebbe non esserci affatto IE (opera, netscape...).

Public 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
Public Const W_SHOWNORMAL = 1

Public Function LanciaBrowser(Handle As Long, Indirizzo As String)
Dim retValue As Long
retValue = ShellExecute(Handle, vbNullString, Indirizzo, vbNullString, "c:\", SW_SHOWNORMAL)
End Function

Usi la funzione così:
LanciaBrowser Me.hWnd, "mailto:ivan@database.it"
o
LanciaBrowser Me.hWnd, "http://194.243.42.21/ivan"

Funziona con il browser predefinita del sistema e col client di posta predefinito.

Bye !!

Grazie mille!