Discussion :

[bry's]

Bonsoir, j'ai besoin d'aide dans mon application car je ne parviens pas à faire ce que j'aimerais. En fait, quand on clique sur un bouton, un mot se génère dans une textbox et j'aimerais quand cliquant sur un autre bouton, on soit redirigé sur le site du mot généré.
Pour la génération des mots, j'ai utilisé la fonction case

Code :

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

1
2
3
4
5
6
Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "texte 1"
            Case 1
                TextBox1.Text = "texte 2"
...

Donc par exemple, on clic sur le bouton pour généré, le mot "Patate" arrive, j'aimerais que quand on clic sur le 2ème bouton on soit redirigé vers un site sur les patates

[tomlev]

C'est bien gentil ton histoire, mais comment tu le trouves ton site sur les patates ? Tu peux renvoyer vers une recherche Google "j'ai de la chance", pour que ça tombe sur le premier résultat, mais ce sera pas forcément un site sur les patates

[bry's]

Ben on met un lien vers un site de patate ^^ chaque case aura un site prédifini

ex: si on tombe sur patate et qu'on appuye sur le bouton ben on va sur www.patate.com et si on tombe sur "école" ben on tombe sur un site d'école mais choisi du genre www.oxford.com etc

[tomlev]

Tu peux renvoyer vers une recherche Google "j'ai de la chance", pour que ça tombe sur le premier résultat, mais ce sera pas forcément un site sur les patates

Bon bah justement, pour les patates ça renvoie sur le site de Martin Vidberg...

Ben on met un lien vers un site de patate ^^ chaque case aura un site prédifini

OK, et qu'est-ce qui te pose problème alors ? Si tu veux ouvrir une page web dans le navigateur par défaut, il suffit de faire Process.Start(url_du_site)

[bry's]

Ben j'aimerais que chaque case soit associée a un lien différent mais qu'on utilise avec le même bouton

[tomlev]

Ben j'aimerais que chaque case soit associée a un lien différent mais qu'on utilise avec le même bouton

Eh ben tu fais un Select Case sur le mot pour ouvrir telle ou telle URL...

[bry's]

donc ça c'est le début de mon code

Code :

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

1
2
3
4
5
6
7
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Int(Rnd() * 20)
        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "texte1"
            Case 1
                TextBox1.Text = "texte2"

Comment je fais pour qu'en appuyer sur le button2 on soit rediriger vers un site différent pour chaque case ?

[tomlev]

Comment je fais pour qu'en appuyer sur le button2 on soit rediriger vers un site différent pour chaque case ?

Bah c'est exactement le même principe : dans le code du button2, tu fais un Select Case sur le mot qui est dans TextBox1, et selon la valeur tu choisis l'URL. Je vois pas en quoi c'est différent de ce que tu as déjà fais...

[bry's]

Mais je ne comprend pas comment je dois le mettre :s

voila ce que je fais pour le bouton 2

Code :

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

1
2
3
4
5
6
7
8
 
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = Int(Rnd() * 20)
        Select Case TextBox1.Text
            Case 0
                System.Diagnostics.Process.Start("url...")
            Case 1
                System.Diagnostics.Process.Start("url...")

Sauf qu'il ne réfère pas au button1 mais génère lui aussi une case a chaque fois

[tomlev]

Il faut pas changer le texte du TextBox1, tu l'as déjà fait dans l'autre bouton. Il faut juste regarder le mot qui est dedans :

Code :

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

1
2
3
4
5
        Select Case TextBox1.Text
            Case "patate"
                System.Diagnostics.Process.Start("url...")
            Case "globibulga"
                System.Diagnostics.Process.Start("url...")

[bry's]

sauf que quand je fais ça, il me généré un nombre dans la textbox

Code :

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

1
2
3
4
5
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = Int(Rnd() * 20)
        Select Case TextBox1.Text
            Case "patate"
                System.Diagnostics.Process.Start("url...")

[tomlev]

Mais je t'ai dit qu'il fallait pas toucher au texte de TextBox1... enlève ce TextBox1.Text = Int(Rnd() * 20) qui ne sert à rien

[bry's]

Ha oui merci !