[VB6] inserimento link

[affo20]

salve a tutti

ho una label che ha come caption un URL...nel font ho sottolineato il testo e quando il puntatore passa sopra ad essa il cursore assume la forma della solita mano destra che punta con l'indice!!!!l'unico piccolo, insignificante, minimo quasi inesistente problema é che l'evento label_click è vuoto!!!! qualcuno saprebbe dirmi cosa devo inserire per aprire il sito che ho messo nella caption???

[stee]

Originariamente inviato da affo20
l'unico piccolo, insignificante, minimo quasi inesistente problema é che l'evento label_click è vuoto!!!! qualcuno saprebbe dirmi cosa devo inserire per aprire il sito che ho messo nella caption???

Ah ah ah !

Allora, fai così:
Innanzitutto crea un modulo e mettici questo codice:

' API per la navigazione
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 SW_SHOW = 1

Poi metti questo codice (non nel modulo, ovviamente, ma tra il codice del tuo form):

Private Sub label1_Click()
Call Naviga(Me, "http://niente.spam/")
End Sub


Public Sub Naviga(Form As Form, ByVal WebPageURL As String)
Dim hBrowse As Long

On Error Resume Next
hBrowse = ShellExecute(Form.hWnd, "open", WebPageURL, "", "", SW_SHOW)
On Error GoTo 0

End Sub

...e facendo clic sulla tua label1 verrai mandato sul mio sito!
Fammi sapere se è tutto ok!
Ciao!
Stefano

[affo20]

stamattina non riesco ma stasera come arrivo a casa ci provo così do un occhiata al tuo sito!!!!!

ringraziementi anticipati...sempre se...tutto funziona!!!!

[MMarzia]

Originariamente inviato da stee
...e facendo clic sulla tua label1 verrai mandato sul mio sito!

nuova forma di spam?

[stee]

he he, no Marzia, era solo x scherzare!
Il mio sito non ha bisogno di questi mezzucci, è già abbastanza noto
E poi, con quel metodo di spam (se vogliamo così definirlo!) credo guadagnerei pochissime visite...... :rollo:
Ciao Marzia!!
Stefano

[affo20]

grazie ste!!!!funziona!!!!oltre che i ringraziamenti già lasciati in precendenza...per contraccambiare ti darò un ble pò di visite al tuo sito!!!!innanzitutto lo metterò come mia home page personale!!!! VVoVe:

[stee]

Originariamente inviato da affo20
per contraccambiare ti darò un ble pò di visite al tuo sito!!!!innanzitutto lo metterò come mia home page personale!!!! VVoVe:

Grazie, ma non è il caso....per così poco....
Ciaoo!
Stefano