Visualizzazione dei risultati da 1 a 9 su 9
  1. #1

    [VB6] Lanciare Internet explorer con link specificato

    Ho una form su cui deve comparire un link www.miodominio.it cliccando sul quale deve aprirsi Internet Explore alla pagina www.miodominio.it

    Come si fa a fare in link HTML ad una form?


    Grazie mille

  2. #2
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Process.Start("www.libero.it")
    End Sub

  3. #3
    non voglio che il browser si aprà facendo clic su un pulsante,
    voghio che si apra facendo clic sulla scritta www.miodominio.it

    Grazie x la avermi risposto

  4. #4
    www.miodominio.it è una label, pertanto puoi sfruttare l'evento click della label e usare il codice che ha postato binos1979.
    Tra le proprietà della label c'è la possibilità di cambiare il puntatore del mouse, metti la classica mano in modo da far capire che si tratti di un link.

  5. #5
    Utente di HTML.it L'avatar di Brainjar
    Registrato dal
    Nov 2004
    Messaggi
    1,162
    Al posto del bottone, metti una label.
    La cui caption è "www.miodominio.it"

    Ciao,
    Ciao, Brainjar

  6. #6
    Utente di HTML.it L'avatar di XWolverineX
    Registrato dal
    Aug 2005
    residenza
    Prague
    Messaggi
    2,565
    Originariamente inviato da binos1979
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Process.Start("www.libero.it")
    End Sub
    Questo codice è per Visual Basic.NET...non credo che funzionerà

  7. #7
    infatti non funziona...

    e io ne avevo da provare e riprovare

  8. #8
    Utente di HTML.it L'avatar di Brainjar
    Registrato dal
    Nov 2004
    Messaggi
    1,162
    Seguendo il suggerimento di inserire una label con caption =
    "www.miodominio.it"

    codice:
    ' in testa alla form
    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
    
    ' Il codice del Click sulla label
    Private Sub Label1_Click()
        Dim X As Long
        X = ShellExecute(Me.hwnd, "Open", Label1.Caption, 0&, 0&, 1)
    End Sub
    ciao,
    Ciao, Brainjar

  9. #9
    Funziona alla grande

    Grazie a tutti

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.