- 15 Novembre 2010
- 60
- 0
- Miglior risposta
- 0
Salve,
in qeusta guida,vogio spiegarvi come creare un semplice Web Browser usando il VB
1) Aprire un nuovo progetto windows form
2) Mettere nella form le seguenti cose:
5 Bottoni
1 Textbox
1 Web Browser
1 Statusstrip
3) Rinominare il primo bottone con "Vai", il secondo con "Stop", il terzo con "Home", il quarto con "Indietro" e l'ultimo con "Avanti"
4)Andate in basso, e sulla statusstrip e aggiungete una progressbar.
5)Cliccate sul WebBrowser1 e nelle proprietà cercate url e scrivete l'indirizzo della pagina iniziale(esempio Google,Bing o quello che volete)
6)Aggiungete questi codici :
Al bottone Vai fare doppio clic e aggiungere:
CODICE
WebBrowser1.Navigate(TextBox1.Text)
Al bottone stop fare doppio clic e aggiungere:
CODICE
WebBrowser1.stop()
Al bottone home fare doppio clic e aggiungere:
CODICE
WebBrowser1.GoHome()
Al bottone indietro fare doppio clic e aggiungere:
CODICE
WebBrowser1.GoBack
Al bottone avanti fare doppio clic e aggiungere:
CODICE
WebBrowser1.GoForward
Alla Progress bar fare doppio clic e aggiungere:
CODICE
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
Dim CurProg As Single
Dim MaxProg As Single
CurProg = e.CurrentProgress
MaxProg = e.MaximumProgress
ToolStripProgressBar1.Value = (CurProg / MaxProg) * 100
Avviate il debug per provarlo e fine!
Fonte = Italianhack
in qeusta guida,vogio spiegarvi come creare un semplice Web Browser usando il VB
1) Aprire un nuovo progetto windows form
2) Mettere nella form le seguenti cose:
5 Bottoni
1 Textbox
1 Web Browser
1 Statusstrip
3) Rinominare il primo bottone con "Vai", il secondo con "Stop", il terzo con "Home", il quarto con "Indietro" e l'ultimo con "Avanti"
4)Andate in basso, e sulla statusstrip e aggiungete una progressbar.
5)Cliccate sul WebBrowser1 e nelle proprietà cercate url e scrivete l'indirizzo della pagina iniziale(esempio Google,Bing o quello che volete)
6)Aggiungete questi codici :
Al bottone Vai fare doppio clic e aggiungere:
CODICE
WebBrowser1.Navigate(TextBox1.Text)
Al bottone stop fare doppio clic e aggiungere:
CODICE
WebBrowser1.stop()
Al bottone home fare doppio clic e aggiungere:
CODICE
WebBrowser1.GoHome()
Al bottone indietro fare doppio clic e aggiungere:
CODICE
WebBrowser1.GoBack
Al bottone avanti fare doppio clic e aggiungere:
CODICE
WebBrowser1.GoForward
Alla Progress bar fare doppio clic e aggiungere:
CODICE
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
Dim CurProg As Single
Dim MaxProg As Single
CurProg = e.CurrentProgress
MaxProg = e.MaximumProgress
ToolStripProgressBar1.Value = (CurProg / MaxProg) * 100
Avviate il debug per provarlo e fine!
Fonte = Italianhack
Ultima modifica: