D
Deleted170242
Bonjour,
Aujourd'hui nous allons voir comment créer son propre navigateur internet
et donc pouvoir le personnaliser à sa façon
Requis:
- Visual Basic
- Des icones
Dites moi si il fonctionne en dehors de visual basic, car chez moi non
donc peut etre que la recherche en ligne fonctionne depuis visual basic et non en dehors car il faudrais un code le connectant au web ^^
Topic 100% by me environ 3heures de rédaction 
Aujourd'hui nous allons voir comment créer son propre navigateur internet
et donc pouvoir le personnaliser à sa façon Requis:
- Visual Basic
- Des icones
-------------------------------------------------------------
Création du disign
Créer une nouvelle forme et donné lui le nom de votre navigateur, j'ai choisi: DreamSky Web pour ma part ^^
Ensuite, une fois la forme créer, ajouté le nom sur le projet en lui meme, en cliquant dans "text" en bas a droite, comme ci dessous:
Il va maintenant falloir ajusté ce projet par rapport à la taille de votre écran, pour cela faite:
Clique droit -> Personnalisé -> Affichage -> Ajuster la resolution, cette manip vous permet de savoir votre résolution, d'écran.
Donc la mienne: 1600x900 , je vais donc l’attribuer à mon projet.
Pour cela aller en bas a droite, et chercher "Size" il y aura surement "300;300" supprimer et mettre votre résolution comme ci dessous:
Une fois ceci fait, la taille de votre projet est devenu celle que vous lui avez attribué
Maintenant il va vous falloir créer:
- 7 PictureBox de 25x25 px servirons de Boutons
- 1 PictureBox de 20x20 px servira de bouton
- 2 TextBox qui vous servirons de barre URL et Recherche
Les placer à votre guise dans votre projet et les personnalisé leurs icones
Pour ma part je les ai installé comme ceci:
Maintenant, ajouter une WebBrowser qui sera donc la page par default du navigateur. Page principal si vous préférez.
Un fois celle ci ajouté, selectionné la , et en bas à droite cliquer sur "Dock" et modifier le en "bottom"
Ajouté au passage le lien de votre page par default, je conseil
Voila, ajuster ce WebBrowser à la taille que vous souhaité et l'endroit que vous souhaité, pour ma part je l'ai agrandit, du bas jusqu'au blocs du haut comme ceci:
-------------------------------------------------------------
Codages
Voila, une fois le disign fait,nous passerons au codes,
Pour cela, nous allons mettre les codes tel donné ci dessous ( bien sur avec vos images ):
Boutton précédant: webbrowser1.goback
Boutton suivant: webbrowser1.goforward
Page d'accueil: WebBrowser1.GoHome
Recherche (relié à la textbox n°2) : WebBrowser1.Navigate("
Stop recherche: WebBrowser1.Stop
Actualiser: WebBrowser1.Refresh
Recherche (relié à la textbox n°1): WebBrowser1.Navigate(TextBox1.Text)
Voila une fois ceci terminé, vous pouvez cliquer sur testé et admirer votre création
-------------------------------------------------------------
Bonus
Vous pouvez ajouter d'autre options à votre navigateur:
Boutton favori: WebBrowser1.Navigate("lien de la page favori")
ex: WebBrowser1.Navigate("www.reality-gaming.fr")
Message de téléchargement: message.Text = Message.Text + 'Début du téléchargement" + vbCrLf
Code d'un boutton "couper": Me.TextBox1.Cut
-------------------------------------------------------------
Pour les fainéants voici le codage en entier:
Création du disign
Créer une nouvelle forme et donné lui le nom de votre navigateur, j'ai choisi: DreamSky Web pour ma part ^^
Ensuite, une fois la forme créer, ajouté le nom sur le projet en lui meme, en cliquant dans "text" en bas a droite, comme ci dessous:
Il va maintenant falloir ajusté ce projet par rapport à la taille de votre écran, pour cela faite:
Clique droit -> Personnalisé -> Affichage -> Ajuster la resolution, cette manip vous permet de savoir votre résolution, d'écran.
Donc la mienne: 1600x900 , je vais donc l’attribuer à mon projet.
Pour cela aller en bas a droite, et chercher "Size" il y aura surement "300;300" supprimer et mettre votre résolution comme ci dessous:
Une fois ceci fait, la taille de votre projet est devenu celle que vous lui avez attribué
Maintenant il va vous falloir créer:
- 7 PictureBox de 25x25 px servirons de Boutons
- 1 PictureBox de 20x20 px servira de bouton
- 2 TextBox qui vous servirons de barre URL et Recherche
Les placer à votre guise dans votre projet et les personnalisé leurs icones
Pour ma part je les ai installé comme ceci:
Maintenant, ajouter une WebBrowser qui sera donc la page par default du navigateur. Page principal si vous préférez.
Un fois celle ci ajouté, selectionné la , et en bas à droite cliquer sur "Dock" et modifier le en "bottom"
Ajouté au passage le lien de votre page par default, je conseil
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
, pour cela ajouté le dans"URL"
Voila, ajuster ce WebBrowser à la taille que vous souhaité et l'endroit que vous souhaité, pour ma part je l'ai agrandit, du bas jusqu'au blocs du haut comme ceci:
-------------------------------------------------------------
Codages
Voila, une fois le disign fait,nous passerons au codes,
Pour cela, nous allons mettre les codes tel donné ci dessous ( bien sur avec vos images ):
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
" & TextBox2.Text)
Voila une fois ceci terminé, vous pouvez cliquer sur testé et admirer votre création
-------------------------------------------------------------
Bonus
Vous pouvez ajouter d'autre options à votre navigateur:
Boutton favori: WebBrowser1.Navigate("lien de la page favori")
ex: WebBrowser1.Navigate("www.reality-gaming.fr")
Message de téléchargement: message.Text = Message.Text + 'Début du téléchargement" + vbCrLf
Code d'un boutton "couper": Me.TextBox1.Cut
-------------------------------------------------------------
Pour les fainéants voici le codage en entier:
Code:
Public Class Form1
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
End Sub
Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
WebBrowser1.Navigate("http://www.google.com/search?hl=fr&q=" & TextBox2.Text)
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
WebBrowser1.GoBack()
End Sub
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
WebBrowser1.GoForward()
End Sub
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
WebBrowser1.GoHome()
End Sub
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
WebBrowser1.Stop()
End Sub
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
WebBrowser1.Refresh()
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
End Sub
End ClassDites moi si il fonctionne en dehors de visual basic, car chez moi non
donc peut etre que la recherche en ligne fonctionne depuis visual basic et non en dehors car il faudrais un code le connectant au web ^^
Topic 100% by me
environ 3heures de rédaction
Dernière édition par un modérateur:
.
