Creare un browser in vb8

Da MOD-Skock Mer 12 Gen 2011 - 19:28

Download vb8 diretto
http://download.microsoft.com/download/6/8/C/68C69BA8-8176-4DB1-BEDB-69F8A656FEFC/vbsetup.exe

VT
http://www.virustotal.com/url-scan/report.html?id=49d731798f266e8acf337acd7de3b120-1294862236

Ciao ragazzi se avete il vb8 e non sapete come usarlo create un browser con questa guida se volete il download spero di averne il permesso dal founder lo posto comunque..
...Aprite il Visual basic e fate così:
Crea->Applicazione windows form(rinominate il programma)->e fate ok! Primo passo finito.
Ora ingrandite il form e mettete il materiale seguente:
6 Button,1 WebBrowser(estendetela non completamente),1Textbox,1 Menustrip.
Bene ora che avete piazzato le cose dovrebbe venire così
Creare un browser in vb8 Browsero

-Indietro
-Avanti
-Aggiorna
-Ferma
-Home

INDIETRO (cliccare 2 volte sul bottone corrispondente)
CODICE
WebBrowser1.GoBack()

AVANTI
CODICE
WebBrowser1.GoForward()

AGGIORNA
CODICE
WebBrowser1.Refresh()

FERMA
CODICE
WebBrowser1.Stop()

HOME
CODICE
WebBrowser1.GoHome

Ora dobbiamo migliorare la grafica del nostro programma, ad esempio se volete mettere delle immagini al posto dei bottoncini potete selezionare dall'elenco a sinistra "PictureBox".

Se volete migliorare il vostro Browser potete creare un MenuStrip dove potete aggiungere altre funzioni tipo:

-Salva pagina;
-Apri pagina, ecc.

Quando avete creato questo menù, guardate il vostro form e noterete che in alto, sotto la barra celeste, vedrete una specie di pulsantino con su scritto "digitare qui", così facendo potrete aggiungere quanti pulsanti vorrete simili a quelli dei browser che usate quotidianamente.

Ecco il procedimento:

Cliccare sul pulsantino in trasparenza in cui sta scritto "Digitare qui", cliccando nello spazio bianco lo potrete rinominare mentre cliccando sulla freccetta potrete creare altri pulsanti, e lo chiamerete File. Cliccate sulla freccetta e create 2 pulsanti, 1 separatore e 1 altro pulsante.

Nel primo scriverete "Apri File"
Nel secondo "Salva pagina"
Nel terzo "Esci"

Dopo aver creato il menù chiamato "File" create un altro menù chiamato "Modifica" e create 5 pulsanti.

Nel primo scriverete "Annulla"
Nel secondo "Ripeti"
Nel terzo "Taglia"
Nel quarto "Copia"
Nel quinto "Incolla"

Adesso prima di mettere i codici per questi pulsanti dovrete copiare questo sotto la riga "Public Class Form1":

CODICE
Dim open As New OpenFileDialog
Dim mystreamreader As System.IO.StreamReader

Nel menù "File" cliccate 2 volte su "Apri File" e inserite:

CODICE
open.CheckFileExists = True
open.Title = "Open Files"
open.ShowDialog(Me)

Try
open.OpenFile()
mystreamreader = System.IO.File.OpenText(open.FileName)
TextBox1.Text = mystreamreader.ReadToEnd()

Catch ex As Exception

End Try

SALVA PAGINA

CODICE
Dim save As New SaveFileDialog()
Dim mystreamwriter As System.IO.StreamWriter

e questo:

CODICE
save.Filter = "Text |*.txt"
save.CheckPathExists = True
save.Title = "Save Files"
save.ShowDialog(Me)
Try
mystreamwriter = System.IO.File.AppendText(save.FileName)
mystreamwriter.Write(TextBox1.Text)
mystreamwriter.Flush()
Catch ex As Exception

End Try

ESCI

CODICE
End

Ora andate nel menù "Modifica":

ANNULLA (potrebbe darvi Undo come errore sintassi)

CODICE
TextBox1.Undo()

RIPETI

CODICE
TextBox1.Redo()

TAGLIA

CODICE
TextBox1.Cut()

COPIA

CODICE
TextBox1.Copy()

INCOLLA

CODICE
TextBox1.Paste()

Se volete che l'indirizzo sia visualizzato sulla textbox di navigazione dovrete andare sulla finestra con i codici e scrivere (tra l'ultimo End Sub ed End Class):

CODICE
Private Sub WebBrowser1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
TextBox1.Text = (WebBrowser1.Url.ToString)

e se voleste vedere l'indirizzo anche nella barra di stato dovete aggiungere:

CODICE
Me.Text = (WebBrowser1.Url.ToString)

Adesso saprete creare il vostro Browser personalizzato.
Per salvare il vostro progetto in .exe andate su "compila" e cliccate su "compila (nome progetto)"
Fonte mia