Come creare un browser in Visual Basic

WebBrowser1.GoForward
Per indietro ci incolliamo:
WebBrowser1.GoBack()
 
 Per Stop:
 
 
WebBowser1.Stop
 
 Per aggiorna:
 
 
WebBrowser1.Refresh()
 
 e infine per Home:
 
 
WebBrowser1.Refresh()
 
 e ora possiamo navigare direttamente col nostro browser. Ma non è assolutamente finita qui,perchè come un normale browser ci deve essere uno spazio dove noi ci inseriamo un link o ce lo mostra,se non avete capito ora ve lo faccio capire io,anzi lo capirete malmano che inserirete il codice e lo proverete. Inseriamo un textbox e un button. Nel bottone scriviamo:
 
 
WebBrowser1.Navigate(TextBox1.Text)
 
 Ora nel nostro web Browser ci sarà la proprietà ProgressChanged,ci clicchiamo e inseriamo:
 
 
TextBox1.Text = (WebBrowser1.Url.ToString)
Me.Text = (WebBrowser1.Url.ToString)
 
 Ora ci posizioniamo sull'evento"KeyDown"della textbox,e ci inseriamo il seguente codice:
 
 
If e.KeyCode = Keys.Enter Then
WebBrowser1.Navigate(TextBox1.Text)
End If
 
 Facendo tutto questo il browser si comporterà come un normale browser!ma ancora ci sono tantissime cose da aggiungere,andiamo con calma!Ogni browser ha una ProgressBar che avanza,la mettiamo nella form e inseriamo un timer. Ora nel timer scriviamo:
 
 
If ProgressBar1.Value = 100 Then
ProgressBar1.Value = 0
End If
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then Timer1.Enabled = False
If ProgressBar1.Value = 100 Then MsgBox("Progressbar completata!", vbInformation, "Informazione")
 
 Ora dovrebbe avanzare la progressbar,ma prima nel timer su "Enabled"mettiamo True e ora funzionerà tutto!Possiamo se c'è spazio inserire delle funzioni utili al nostro browser. Come ad esempio la visualizzazione della sorgente. Per la sorgente c'è bisogno di un textbox e un button,nel button scriviamo:
 
 
TextBox6.Text = WebBrowser1.DocumentText
 
 Invece per visualizzare l'orario in una label bisogna inserire una label e incollarci il codice:
 
 
Label1.Text = DateTime.Now.ToShortTimeString()
 
 
 
 Ora inseriamo un TabControl e facciamo in modo che ricopra tutto il WebBrowser. In "Visible"mettiamo False e creiamo un button e lo rinominiamo"Avvia Browser multi-scheda"ora ci incolliamo il codice:
 
 
TabControl1.Visible = True
Dim Browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
Browser.Name = "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Browser)
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
 
 
 
 Però i codici avanti,indietro ecc non funzionano sul tabcontrol ma soltanto sul WebBrowser.Quindi per accomodarsi creiamo un ToolStrip e ci mettiamo "Avanti,indietro,aggiorna,stop,proprietà,rimuovi scheda,aggiungi pagina,esci da questa funzione"e ci incolliamo per avanti il codice:
 
 
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
 
 Per indietro:
 
 
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
 
 Per aggiorna:
 
 
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
 
 Per stop:
 
 
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
 
 Per proprietà:
 
 
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPropertiesDialog()
 
 Per aggiungi pagina:
 
 
Dim myTabPage As New TabPage()
myTabPage.Text = "TabPage" & (TabControl1.TabPages.Count + 1)
TabControl1.TabPages.Add(myTabPage)
 
 Per rimuovi schede:
 
 
TabControl1.TabPages.Clear()
 
 e infine per "Esci da questa funzione":
 
 
TabControl1.Visible = False
 
 
 
 Ora nella Toolstrip mettiamo oltre alle funzioni per il TabControl,le sezioni "File"e"Modifica"dove in File mettiamo "Imposta Pagina,Proprietà,Stampa,Rete,Anteprima di Stampa,Salva Pagina Web,Esci.
 
 Ora invece nella sezione "Modifica" mettiamo"Annulla,taglia,copia,incolla,seleziona tutto,zoom."
 
 Ora passiamo ai codici.
 
 Imposta Pagina:
 
 
WebBrowser1.ShowPageSetupDialog()
 
 Proprietà:
 
 
WebBrowser1.ShowPropertiesDialog()
 
 Salva pagina web:
 
 
WebBrowser1.ShowSaveAsDialog()
 
 Anteprima di stampa
 
 
WebBrowser1.ShowPrintPreviewDialog()
 
 Stampa
 
 
WebBrowser1.ShowPrintDialog()
 
 Rete.
 
 
Dim rete As Boolean
rete = My.Computer.Network.IsAvailable
If rete = True Then
MsgBox("Rete Disponibile", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
Else
MsgBox("Rete non Disponibile", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
End If
 
 Annulla
 
 
TextBox1.Redo
 
 Taglia
 
 
TextBox1.Cut
 
 Copia
 
 
TextBox1.Copy
 
 Incolla
 
 
TextBox1.Paste
 
 Seleziona tutto
 
 
TextBox1.SelectAll
 
 Zoom(Dichiarazione)
 
 
    Private Enum Exec
        OLECMDID_OPTICAL_ZOOM = 63
    End Enum

    Private Enum ExecOpt
        OLECMDEXECOPT_DODEFAULT = 0
        OLECMDEXECOPT_PROMPTUSER = 1
        OLECMDEXECOPT_DONTPROMPTUSER = 2
        OLECMDEXECOPT_SHOWHELP = 3
 
 Zoom(Codice)
 
 
        Try
            Dim Res As Object = Nothing
            Dim MyWeb As Object
            MyWeb = Me.WebBrowser1.ActiveXInstance
            MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, _
            ExecOpt.OLECMDEXECOPT_PROMPTUSER, 25, IntPtr.Zero)
        Catch ex As Exception
        End Try
 
 
 
 Non ci dimentichiamo che ogni browser vero ha la cronologia e i preferiti. Per la cronologia si inserisce un ComboBox e si ci posiziona sull'evento"Progress Changed"del WebBrowser,inserendo questo codice sull'evento che vi ho detto del WebBrowser:
 
 
ComboBox1.Items.Add(TextBox1.Text)
 
 Invece se vogliamo eliminare la cronologia si inserisce un bottone con il codice: 
 
 
ComboBox1.Items.Clear()
 
 Per i preferiti invece ci vuole la ListBox,Un TextBox e un button. Nel button si scrive:
 
 
ListBox1.Items.Add(TextBox1.Text)
 
 praticamente scrivi un sito sulla Textbox,e poi cliccando sul bottone spunta il sito che hai scritto sulla ListBox.
 
 
 
 Vi piacerebbe fare un programma che noi scriviamo qualcosa e quello che abbiamo scritto lo cerchiamo in internet con il motore di ricerca che sceglierai tu?Se vi piace ora lo facciamo:Mettiamo un WebBrowser,un TextBox e 8 button,in questi otto button ci mettiamo"Cerca con Google,Cerca con Google Immagini,Cerca con Google Video,Cerca con Yahoo,Cerca con Wikipedia,Cerca con Bing,Cerca con Yourself,Cerca con Youtube. Ora nel button per cercare con Google Video scriviamo:
 
 
WebBrowser1.Navigate("http://www.google.it/search?hl=it&q=" & TextBox1.Text)
 
 Cerca con Google Immagini:
 
 
WebBrowser1.Navigate("http://images.google.it/images?q=" & TextBox1.Text)
 
 Cerca con Google Video:
 
 
WebBrowser1.Navigate("http://video.google.it/videosearch?q=" & TextBox1.Text)
 
 Cerca con Yahoo:
 
 
WebBrowser1.Navigate("http://it.search.yahoo.com/search?p=" & TextBox1.Text)
 
 Cerca con Bing
 
 
WebBrowser1.Navigate("http://www.bing.com/search?q=" & TextBox1.Text)
 
 Cerca con Wikipedia
 
 
WebBrowser1.Navigate("http://it.wikipedia.org/wiki/" & TextBox1.Text)
 
 Cerca con Youtube
 
 
WebBrowser1.Navigate("http://www.youtube.com/results?search_query=" & TextBox1.Text)
 
 Cerca con YourSerial
 
 
WebBrowser1.Navigate("http://www.youserials.com/najdem.php?q=" & TextBox8.Text)
 
 
 
 Perfetto,infine dobbiamo dire che per navigare in un sito scelto da te al click di un button si usa il codice WebBrowser1.Navigate("Sito web.it")ok?ma ora qualcosa da soli la sapete fare?  dai provateci non vi fate spiegare tutto da me. Infine ci sono interessanti video su Youtube di come creare Browser in Visual Basic,li potete seguire.
 
 
 
 
[Modificato da tremendino01 21/11/2010 22:34]