PDA

Visualizza la versione completa : [VB6] Inserire un collegamento ipertestuale


nitrodriver
17-11-2002, 11:12
Come si fa ad inserire un collegamento ipertestuale?

Grazie mille!

:ciauz:

Johnny_Depp
17-11-2002, 12:02
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
17-11-2002, 12:50
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
17-11-2002, 13:19
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
17-11-2002, 16:46
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!

:ciauz:

Loading