[VB2005] Comment créer un bouton double fonction

**crashdown31** · 15/09/2006, 15h39

Bonjour,

je programme actuellement une application web et je n'arrive pas à attribuer deux fonctions au bouton.
il s'agit d'un bouton pour effectuer une recherche

exemple : mon bouton sapelle "Rechercher", je clic dessus, le programme effectue la recherche et le bouton.text renomme celui-ci en "Arrêter".

seulement quand je clic sur le même bouton "arrêter",la recherche continue.

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub RechercherToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RechercherToolStripMenuItem.Click
 
webbrowser3.navigate("url.d'un.formulaire.de.recherche.sur.un.site")
RechercherToolStripMenuItem.text = "Arrêter"
 
timerstop.start()
 
Endsub

Code :

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

1
2
3
4
5
6
7
8
Private Sub Timerstop_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerstop.Tick
 
        if RechercherToolStripMenuItem.pressed = true then
           webbrowser3.stop()
           RechercherToolStripMenuItem.text = "rechercher"
           Timerstop.stop()
 
    End Sub

merci d'avance pour votre aide !

**sovo** · 15/09/2006, 16h34

Deja tu n'es pas dans le bon forum, prierre dele faire la prochaine fois, forum consacre a VB2005.

Pour ton probleme. Il te suffit just de jouer avec les noms du boutton

exemple

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub RechercherToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
 Handles RechercherToolStripMenuItem.Click
 
 If RechercherToolStripMenuItem.text = "rechercher"  then 
      'metre le code pour la recherche
 Else 'RechercherToolStripMenuItem.text = "Arrêter"
      'mettre le code pour aretter
 End if
End sub

**crashdown31** · 15/09/2006, 17h22

ok merci sovo !

C'est vrai que c'est tout bête !
Pour le forum désolé, dès mon entrée sur le site je suis aller sur visual basic puis sur forum VB ! je n'ai pas trouver le forum VB2005 je vais le chercher tout de suite et enregistrer l'url !

Si un admin ou modo pouvait déplacer mon post ce serait cool !

merci encore

**sovo** · 15/09/2006, 17h40

Envoyé par crashdown31

C'est vrai que c'est tout bête !

Si ca te va, alors n'oubli pas le tag [RESOLU]

Envoyé par crashdown31

Pour le forum désolé, dès mon entrée sur le site je suis aller sur visual basic puis sur forum VB ! je n'ai pas trouver le forum VB2005

je crois que ici ca poura aller http://www.developpez.net/forums/forumdisplay.php?f=110.

**crashdown31** · 15/09/2006, 17h45

J'ai essayer ta technique mais sa ne marche pas...
voila le bloc entier qui t'aidera à mieux comprendre.

Peut être est-ce moi qui n'est pas bien saisie la procedure ?

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
19
20
21
Private Sub RechercherToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RechercherToolStripMenuItem.Click
 
        Dim Text1 As String
        Text1 = TextBox1.Text
 
        If TextBox1.Text = "" Then
            MsgBox("Veuillez saisir une valeur", MsgBoxStyle.Information, "Recherche")
        End If
 
        If Form3.CheckBox1.Checked = True And RechercherToolStripMenuItem.Text = "rechercher" Then
            TimerProgress.Enabled = True
            WebBrowser3.Visible = False
            WebBrowser3.Navigate("http://www.urlsite.com/Result.php?nbrows=7&motsclefs=" & Text1 & "&cat=&type=Fiches&operateur=AND")
            TimerReadyState.Enabled = True
            ProgressBar1.Show()
        Else : RechercherToolStripMenuItem.Text = "Arrêter"
            WebBrowser3.Stop()
            ProgressBar1.Hide()
        End If
 
    End Sub

la recherche ne fonctionne pas quand je clik ; de plus quand je clik sur le bouton rechercher il se renomme bien en "arrêter" mais quand je clik à nouveau il ne se renomme pas en "rechercher" même en rajoutant

Code :

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

RechercherToolStripMenuItem.Text = "Rechercher"

dans le bloc pour l'arrêt

**sovo** · 15/09/2006, 17h51

Pour le forum de VS2005 voir mon post plus haut.

Oups pas ceci

Code :

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

Else : RechercherToolStripMenuItem.Text = "Arrêter"

mais plutot

Code :

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

Else

**crashdown31** · 15/09/2006, 17h58

ok j'ai bien noté ta précédente réponse !

hélas ça ne fonctionne pas non plus !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    If Form3.CheckBox1.Checked = True And RechercherToolStripMenuItem.Text = "rechercher" Then
            TimerProgress.Enabled = True
            WebBrowser3.Visible = False
            WebBrowser3.Navigate("http://www.divxovore.com/Result.php?nbrows=7&motsclefs=" & Text1 & "&cat=&type=Fiches&operateur=AND")
            TimerReadyState.Enabled = True
            ProgressBar1.Show()
        Else
            RechercherToolStripMenuItem.Text = "Arrêter"
            WebBrowser3.Stop()
            ProgressBar1.Hide()
        End If

Peut fayt t'il songer à une autre technique ?

**sovo** · 15/09/2006, 18h11

C'est la methode que j'utilise (et elle marche a tous les coups).

Maintenant dit moi, comman ca "ca ne marche pas" ?? Quant est que l'on devrais faire la recherche ??

Lorsque les deux sont vrai ou alors l'un des deux ?? as tu bien verifier que tes condition (pour que ca marche) sont remplies ??

**crashdown31** · 15/09/2006, 18h28

oui les deux conditions doivent être vrai pour que la recherche fonctionne.

quand j'analyse cette technique, le programme se dit :

si la chekbox 1 est coché et que le bouton recherchertool..... se nomme bien rechercher alors

-jactive le timer de la progressbar
-je ne rend pas visible le webbrowser3
-je demande au controle webbrowser3 d'effectuer la requete vers la base de donnée du site en question
-je lance le timer readystate pour savoir quand le controle webbrowser a fini de charger la page
-je rend la progressbar visible

sinon

-je nomme le bouton RechercherTool en "arrêter"
-je stop le webbrowser
-je masque la bar de progression.

en refléchissant cela ne correspond pas à la condition que je voudrai.
Ce que j'aimerai c'est : (je raccourci)

Private Sub RechercherToolStripMenuItem_Click....

webbrowser3.navigate("urlsite")
RechercherToolStripMenuItem.text = "arrêter"

if l'utilisateur a cliké sur le bouton renommé "arrêter" then
webbrowser3.stop()
RechercherToolStripMenuItem.text = "rechercher"
end if

end sub

c'est un peu cru comme exemple mais bon !

en fait avant de poster ce message j'avais essayer cette solution mais je n'arrivai pas à trouver la fonction evaluer si l'utilisateur à cliqué sur le bouton recemment renommé "arrêter" !

merci pour ta patience

**crashdown31** · 15/09/2006, 19h06

aurai tu une idée a propos de la syntaxe de la fonction que je recherche ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub RechercherToolStripMenuItem_Click....

webbrowser3.navigate("urlsite")
RechercherToolStripMenuItem.text = "arrêter"

if l'utilisateur a cliké sur le bouton renommé "arrêter" then
webbrowser3.stop()
RechercherToolStripMenuItem.text = "rechercher"
end if

end sub

**sovo** · 15/09/2006, 19h11

Envoyé par crashdown31

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub RechercherToolStripMenuItem_Click....

    webbrowser3.navigate("urlsite")
    RechercherToolStripMenuItem.text = "arrêter"
    if l'utilisateur a cliké sur le bouton renommé "arrêter" then
       webbrowser3.stop()
       RechercherToolStripMenuItem.text = "rechercher"
    end if

end sub

Comme ca tu n'aura jamais de recherche, car l'arret va toujours etre executer.

Par contre ceci devrais aller

1er solution (decoule de la tienne)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub RechercherToolStripMenuItem_Click....
 
     if RechercherToolStripMenuItem.text = "arrêter" then
          webbrowser3.stop()
          RechercherToolStripMenuItem.text = "rechercher"
          exit sub
     end if
 
     webbrowser3.navigate("urlsite")
     RechercherToolStripMenuItem.text = "arrêter"
end sub

2eme Solution (plus propre)

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub RechercherToolStripMenuItem_Click....
 
   select case RechercherToolStripMenuItem.text
        case "rechercher" :webbrowser3.navigate("urlsite") 
                                  RechercherToolStripMenuItem.text = "arrêter"
 
        case "arrêter":webbrowser3.stop()
                           RechercherToolStripMenuItem.text = "rechercher"
   end select
end sub

**crashdown31** · 15/09/2006, 19h37

la première solution fonctionne ! je te remercie

néamoins je t'informe que j'ai testé la deuxième et seul la recherche fonctionne.
lorsqu'on appuie sur arret il ne se passe rien, la recherche continue.

merci encore

**sovo** · 15/09/2006, 19h52

Envoyé par crashdown31

la première solution fonctionne ! je te remercie

de rien. N'oublie pas le tag [RESOLU]

Envoyé par crashdown31

néamoins je t'informe que j'ai testé la deuxième et seul la recherche fonctionne.

esssai de revoir le copier/coller (si tu l'as fait. Bref verifie les codes) car c'est exactement le meme preincipe et code dans les deux solutions

Envoyé par crashdown31

lorsqu'on appuie sur arret il ne se passe rien, la recherche continue.

Est qu'il change aumoins (de "recherche" en "arrêter").

**PM_calou** · 18/09/2006, 08h14

Bonjour

Pourquoi ne pas utiliser le .Tag du contrôle en lui donnant une valeur boolean (true ou false) celà évite les problèmes de case ou autre pour controler la valeur.
Il suffit de basculer la valeur à False lorsqu'elle est à True et inversement.
On teste avec un If (ou bien Select case).

Pascal

[VB2005] Comment créer un bouton double fonction

Windows Forms

Discussions similaires

Partager

Partager