[Tuto Vb.net #5][FR]Créer un Navigateur

bonsoir a toute & a tous

pour se tuto je vais vous montrer comment Creer un Navigateur
grace a visual basic 2008

pour commencer ouvre visual basic 2008
creer un nouveaux projet ( windows form application)
renommer le comme vous le souhaitez.

- 1 WebBrowser
- 1 MenuStrip
- 3 Bouton
- 1 TextBox
- 1 ProgressBar

renommons la MenuStrip

et y inscire se code :


Public Class Form1 Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted ProgressBar1.Value = ProgressBar1.Minimum TextBox1.Text = WebBrowser1.Url.ToString ProgressBar1.Value = ProgressBar1.Maximum End Sub Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click Application.Exit() End Sub Private Sub CouperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CouperToolStripMenuItem.Click WebBrowser1.Document.ExecCommand("Cut", False, DBNull.Value) End Sub Private Sub CopierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopierToolStripMenuItem.Click WebBrowser1.Document.ExecCommand("Copy", False, DBNull.Value) End Sub Private Sub CollerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CollerToolStripMenuItem.Click WebBrowser1.Document.ExecCommand("Paste", False, DBNull.Value) End Sub Private Sub PrécédentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrécédentToolStripMenuItem.Click WebBrowser1.GoBack() End Sub Private Sub SuivantToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SuivantToolStripMenuItem.Click WebBrowser1.GoForward() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.GoBack() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click WebBrowser1.GoForward() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click WebBrowser1.Navigate(TextBox1.Text) End Sub
End Class



testons le.

Fonctionne Parfaitement !!!
d'autres video prochainement !!!
By MeSriNe :)

Category:

Entertainment

Tags:

• visual
• basic
• 2008
• vb.net
• Visual Basic
• navigateur

[whiteteamOFFICIEL]

Merci du partage, je vais me mettre au vb. Je me suis abonner à ta chaine pour suivre tes tutoriels.

[TheVnr2mesrine]

@whiteteamOFFICIEL de rien ! visual basic et une belle langue mais un peut simple !

[hackermandu63]

merci j ai tout reussit grace a ton tuto et est ce que tu peux faire une video a mettre par exemple avec un bouton : google et sa te mette sous forme de url?

merci d avance! =)

[hackermandu63]

merci je vais suivre ton tuto =)

car je vais creer un bot pour un jeux;)