Guida Creare un Browser in Vb8

[tremendino01]

Salve oggi voglio pubblicare dei codici per arricchire il vostro browser,(iniziando dai classici avanti,indietro..ecc...)
AVANTI
WebBrowser1.GoForward()
INDIETRO
WebBrowser1.GoBack()
AGGIORNA
WebBrowser1.Refresh()
HOME
WebBrowser1.GoHome()
STOP
WebBrowser1.Stop()
VISUALIZZA INFORMAZIONI SULLA PAGINA WEB
WebBrowser1.ShowPropertiesDialog()
SALVA PAGINA WEB:
WebBrowser1.ShowSaveAsDialog()
ANTEPRIMA DI STAMPA
WebBrowser1.ShowPrintPreviewDialog()
STAMPA
WebBrowser1.ShowPrintDialog()
CONTROLLARE SE E DISPONIBILE LA 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

Per chi vorrebbe creare un browser utilizzando il TabControl do i codici:
APRI NUOVA SCHEDA(Ricopri tutto il WebBrowser con il TabPage e poi crei un button o qualcosa,Tabcontrol invisibile e poi al click di un button grazie a questo codice apri il tuo browser-multischeda e lo rendi visibile.)
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()
AVANTI COL TABCONTROL
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
INDIETRO
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
STOP
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
AGGIORNA
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
PROPRIETA
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPropertiesDialog()
RIMUOVI SCHEDE
TabControl1.TabPages.Clear()
AGGIUNGI SCHEDA
Dim myTabPage As New TabPage()
myTabPage.Text = "TabPage" & (TabControl1.TabPages.Count + 1)
TabControl1.TabPages.Add(myTabPage)
ESCI DAL TABCONTROL
TabControl1.Visible = False

ora lasciamo stare il tabcontrol e mettiamoci con altri codici (basta..niente piu codici per il tabcontrol)

TAGLIA
TextBox1.Cut()
COPIA
TextBox1.Copy()
INCOLLA
TextBox1.Paste()
SELEZIONA TUTTO
TextBox1.SelectAll()
REINDIRIZZAMENTO
WebBrowser1.Navigate("http://www.google.it/")
ZOOM(Al posto di 70 ci mettete di quante volte devi ringrandire o rimpicciolire)
Try
Dim Res As Object = Nothing
Dim MyWeb As Object
MyWeb = Me.WebBrowser1.ActiveXInstance
MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, _
ExecOpt.OLECMDEXECOPT_PROMPTUSER, 70, IntPtr.Zero)
Catch ex As Exception
End Try
VISUALIZZA SORGENTE(occorrente un textbox e un button,codice da scrivere nel button)
TextBox6.Text = WebBrowser1.DocumentText


Cercare con Google:
WebBrowser1.Navigate("http://www.google.it/search?hl=it&q=" & TextBox2.Text)
Cercare con Google immagini.
WebBrowser1.Navigate("http://images.google.it/images?q=" & TextBox2.Text)
Cercare con Google!Video:
WebBrowser1.Navigate("http://video.google.it/videosearch?q=" & TextBox2.Text)
Cercare con Yahoo!:
WebBrowser1.Navigate("http://it.search.yahoo.com/search?p=" & TextBox2.Text)
Cercare con Bing!:
WebBrowser1.Navigate "http://www.bing.com/search?q=" & TextBox2.Text)
Cercare su YouTube!:
WebBrowser1.Navigate "http://www.youtube.com/results?search_query=" & TextBox2.Text)
Cercare con Wikipedia:
WebBrowser1.Navigate "http://it.wikipedia.org/w/index.php?title=Speciale:Ricerca&search=" & Wikipedia.Text & "&fulltext=Ricerca"
FAR SPUNTARE ORARIO IN UN LABEL
Label2.Text = DateTime.Now.ToShortTimeString()
FAR AUMENTARE LA PROGRESS BAR
Progressbar1.increment(1)

Spero che la guida vi sia piaciuta ..ci sarebbero altri codici ma per il momento pubblico questi che sono tanti e potrebbero servire a tutti..:smile:
ciao:morvo:

 

[-Jan-]

Potresti mettere i codici fra il tag

Perfavore, Entra oppure Registrati per vedere i codici!

 

[Rufy]

Fonte? cmq bravo

 

[tremendino01]

grazie per il consiglio Jan.

 

[zichiki96]

esistono gia molti topic su questo e soprattutto c'è una guida molto simile di carlino -.-

 

[Mirko185]

1) Copiata.
2) Vb.NET, non 8.
3) Metti le source tra i TAG "CODE"
4) Ci sono CENTINAIA di guide UGUALI.
5) Manca la FONTE.
6) Molte frasi sono INCOMPRENSIBILI.
7) Aggiungi qualche SPAZZIETTO.
8) TextBox6.Text = WebBrowser1.DocumentText? Quindi tu vuoi far visualizzare tutto il sorgente in una Textbox?...
9) Copiata da SCHIFO.
10) Spiega le source.



Ps. Segnalo.

 

[tremendino01]

io non l'ho copiata. le guide per creare i browser contengono i soliti avanti,indietro,aggiorna e stop!!ci ho messo qualcosa di nuovo,e non ho copiato da nessuno...TextBox6.Text = WebBrowser1.DocumentText per questo codice io ho detto che si scrive in un button..poi per il resto hai ragione..ma io ho voluto postare soltanto i codici e non fare una descrizione su tutto..grazie per aver letto Mirko.
--------------- AGGIUNTA AL POST ---------------
e poi se qualcuno non capisce qualcosa me lo chiede a me.

 

[XFossaDeiLeoniX]

Aggiungi descrizioni o qualcos'altro altrimenti è un topic inutile date le altre miliardi di guide esistenti.

Hai 24h ;)