action avec menu "checked"Résolu

Question

Bonjour a tous et désole pour le titre (j'ai du mal a traduit mon action )

donc j'ai mon prog qui ce charge dans la barre de tache (avec menu sur clic gauche et droit) et quand je clic dessus cela correspond a une action

maintenant je voudrais qu'il se passe une action quand dans le menu un checked a été effectue avant mon action

exemple dans le menu il y a    Form bleu /  Form rouge / Form verte

quand je sélection "Form verte" dans le menu et que je click sur l'icône de la barre de tache de mon programme la Form Verte se charge (et ainsi de suite pour les 3 autres checked )

pouvez vous m'aidez

Merci

qtek2020 · Accepted Answer

ca marche avec le code suivant
encore merci
a+

If rec = False Then
    atrib= True
    Select Case msg
        Case BOUTON_GAUCHE_POUSSE: 
 If menubleu.Checked Then



// mon code



ElseIf menublanc.Checked Then



//mon code



 
ElseIf menurouge.Checked Then



//mon code


End If

Case BOUTON_DROIT_POUSSE:
       PopupMenu menu
    
    End Select
    atrib = False
End If
End Sub

cs_Jack · Answer

Salut
Pas très claire ton histoire.
Chez moi, j'ai créé un menu avec Check et entré ce petit code :
Private Sub mnuTest1_Click()
    mnuTest1.Checked = Not mnuTest1.Checked
    If mnuTest1.Checked Then Debug.Print "Menu coché"
End Sub
Donc, je sais quand le bouton est coché ou pas ...

Où est ton problème ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on

cs_Jack · Answer

Ah, je crois comprendre :
Tes menus servent à sélectionner une couleur, et lorsque tu veux faire une autre action, tu as besoin de savoir quelle couleur est sélectionnée ?
Donc, au moment de charger ta forme, suffit de lire l'état .Checked de chaque menu :
If monMenuVert.Checked 
   Then maFormeVerte.Show
ElseIf monMenuRouge.Checked
   Then maFormeRouge.Show
ElseIf monMenuJauneApoisBleus.Checked
   Then maFormeJauneApoisBleus.Show
End If

qtek2020 · Answer

Salut Jack
desole si je suis pas tres clair 

et merci pour ton code sauf que je n'arrive pas a le mettre dans mon code 
a tu une idee

Merci
__________________________________________________________________
If rec = False Then
    atrib = True
    Select Case msg
        Case BOUTON_GAUCHE_POUSSE: 


If menubleu.Checked Then
       Form2.Show
ElseIf menublanc.Checked Then
       Form3.Show
ElseIf menurouge.Checked Then
       Form4.Show
       
  \ du  code       
    
        Select Case BOUTON_DROIT_POUSSE:
       PopupMenu menu
           
    End Select
    atrib = False
End If
End Sub
__________________________________________________________________________________________

qtek2020 · Answer

desole le code sans le 2 em Select
________________________________________________
If rec = False Then
    atrib = True
    Select Case msg
        Case BOUTON_GAUCHE_POUSSE: 
If menubleu.Checked Then
       Form2.Show
ElseIf menublanc.Checked Then
       Form3.Show
ElseIf menurouge.Checked Then
       Form4.Show
       
  \ du  code       
    
       Case BOUTON_DROIT_POUSSE:
       PopupMenu menu
           
    End Select
    atrib = False
End If
End Sub
__________________________________________________________________________________________

cs_Jack · Answer

Oui, bien sûr, il faut faire attention à l'ordre dans lequel du places tes "Select / If / ... / End If / End Select"
C'est pour cela qu'il est important de bien indenter son code, c'est à dire rajouter une tabulation en tête d'un ligne de code qui va devoir être refermée plus tard, genre Do-Loop, For-Next, If-Then-Else, Select, ...

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on

Action avec menu "checked"

6 réponses

Votre réponse

Discussions similaires