Discussion :

[catch02]

Bonsoir,

Je suis en train de coder un petit logiciel en vb avec Visual Basic 2010 express
J'aimerai aimer savoir si on peux faire ouvrir le navigateur web avec une donnée
Je m'explique avec un exmple
L'utilisateur dois rentré une chaine de caractere (qui est stocké dans une variable) et quand il clique sur le bouton, j'aimerai que le navagiteur web s'ouvre avec la variable (exemple : http://www.google.fr/MAVARIABLE)
Est ce possible ?

Merci d'avance

[sevyc64]

regarde du coté de la classe Process

[Ehjoe]

...
L'utilisateur dois rentré une chaine de caractere (qui est stocké dans une variable) et quand il clique sur le bouton, j'aimerai que le navagiteur web s'ouvre avec la variable (exemple :
http://www.google.fr/MAVARIABLE
Est ce possible ?
...

Bonjour,

Est-ce ceci que tu veux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Option Explicit On
Public Class Form1
  Dim finAdresse As String ' contenu de la saisie
 
  Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    finAdresse = "/jeux.htm"
  End Sub
 
  Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    WebBrowser1.Navigate("http://irolog.free.fr" & finAdresse)
  End Sub
 
  Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    WebBrowser1.Dispose()
  End Sub
 
End Class

?

[catch02]

Ok, je vais regarder ca

Pour Ehjoe :
Il veux pas compiler voici l'erreur qu'il met

Erreur 1 'WebBrowser1' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Option Explicit On
Public Class navigateur
    Dim V_Guid As String
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        V_Guid = TextBox1.Text
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(V_Guid)
        WebBrowser1.Navigate("http://www.google.fr")
    End Sub
End Class

[Ehjoe]

Ok, je vais regarder ca

Pour Ehjoe :
Il veux pas compiler voici l'erreur qu'il met

"Erreur 1 'WebBrowser1' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Option Explicit On
Public Class navigateur
    Dim V_Guid As String
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        V_Guid = TextBox1.Text
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(V_Guid)
        WebBrowser1.Navigate("http://www.google.fr")
    End Sub
End Class

Suite, normal ! Il faut mettre l'objet WebBrowser1 sur ta form...