[vb6] linkare pagina html

[first register]

mi serve una mano con un programmino in vb che dovrebbe visualizzare un indirizzo web e successivamente rimandare alla pagina web attraverso il browser predefinito. sul pc dovrei avere installato vb 6.0 qualcuno sa come fare ?
che controllo dovrei usare?

Non l'ho mai fatto con VB6.... finchè aspetti che qualcuno ti risponda dai un'occhiata qui:

http://www.planetsourcecode.com/

trovi un sacco di progetti creati con:

Visual Basic
Java/Javascript
C/C++
ASP
SQL
Perl
Delphi
PHP
Cold Fusion
.Net


magari trovi qualcosa che ti aiuta, ciao!

[first register]

grazie ma non ho ancora trovato, in pratica dovrei visualizzare una label con un link html che rimanda al browser... .

[MarcoGG]

Originariamente inviato da first register

mi serve una mano con un programmino in vb che dovrebbe visualizzare un indirizzo web e successivamente rimandare alla pagina web attraverso il browser predefinito. sul pc dovrei avere installato vb 6.0 qualcuno sa come fare ?
che controllo dovrei usare?

Userei una semplice label ( in VB6 non ci sono le link-label di VB Net, ma ci si può arrangiare ). Questo dovrebbe bastare :

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 Sub lbl_link_Click()

        ShellExecute ByVal 0&, "open", "http://www.google.com", _
        vbNullString, vbNullString, 3

End Sub

[first register]

allora ok, con quel codice effettivamente il vb rimanda al browser predefinito, però avrei due domande:

a cosa serve questa parte di codice e se eventualmente posso toglierla:


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

e magari sarebbe possibile passare alla label il valore attraverso una textbox ?

es.

scrivo sulla textbox www.google.it premo un bottone

ed il link viene passato a firefox.

oppure secondo te è possibile visualizzare l'indirizzo scritto in blu, sottolineato in modo da poterci cliccare sopra ???


o ancora meglio, sarebbe possibile fare "tasto destro" sopra la textbox e selezionare "apri con firefox" ?? ?

[MarcoGG]

Originariamente inviato da first register

a cosa serve questa parte di codice e se eventualmente posso toglierla:

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

Eh no. Non puoi toglierla.
Quella è la chiamata che permette l'esecuzione del browser...
Se non vuoi che ti "sporchi il codice", mettila Public in un modulo.

Originariamente inviato da first register

oppure secondo te è possibile visualizzare l'indirizzo scritto in blu, sottolineato in modo da poterci cliccare sopra ???

Direi che possiamo fare anche di meglio.
1. Aggiungi queste dichiarazioni per impostare il puntatore Hand di Windows, quello tipico dei link, insomma :

'Chiamate per gestire il puntatore mouse tipo HAND :
Private Const IDC_HAND = 32649&
Private Const IDC_ARROW = 32512&
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
                         (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long

2. Gestisci il MouseMove sulla label in entrata e uscita, così :

Private Sub lbl_link_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    lbl_link.ForeColor = vbBlue
    lbl_link.FontUnderline = True
    SetCursor LoadCursor(0, IDC_HAND)

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    lbl_link.ForeColor = vbBlack
    lbl_link.FontUnderline = False

End Sub

E abbiamo sopperito a (quasi) tutte le mancanze di VB6 rispetto al fratellone .Net !

Originariamente inviato da first register

o ancora meglio, sarebbe possibile fare "tasto destro" sopra la textbox e selezionare "apri con firefox" ?? ?

Questo magari più avanti...

[first register]

ok inserirò la prima parte del codice in un modulo, ora vedo come va poi ti faccio sapere.