MenuRésolu

Question

voila je suis en train de cr&#233;er un menu mais probl&#232;me &#231;a ne marche pas !

c'est je veux que le fait d'appuyer sur Z active une varible ( 1 ) et
lorsque l'on appuie sur S cette variable prend la valeur (0), et
lorsque l'on appuie sur "entree" en fontion de la valeur de la variable
on effectue telle ou telle action.... voil&#224; le code :



Private Sub Form_KeyPress(KeyAscii As Integer)



Dim oki As Variant

oki = 1





'HAUT

If KeyAscii = 122 Then

Set ok.Picture = LoadPicture(App.Path & "\images
ewON.jpg")

Set quitter.Picture = LoadPicture(App.Path & "\images\quitterOFF.jpg")

oki = 1

End If





'BAS

If KeyAscii = 115 Then

Set ok.Picture = LoadPicture(App.Path & "\images
ewOFF.jpg")

Set quitter.Picture = LoadPicture(App.Path & "\images\quitterON.jpg")

oki = 0

End If







If KeyAscii 13 And oki 0 Then

End

End If



If KeyAscii 13 And oki 1 Then

Form1.Hide

Form2.Show

End If





End Sub







Voil&#224;.. en esp&#233;rant une aide ! 

MERCI ! ;) ;)

Kami1357 · Accepted Answer

Merci Madmatt ca marche super !!!!!!

merci a toi aussi le 5e jumeau ton code pourra bien me servir ;)



all&#233; ++++ et encore merci !

MadM@tt · Answer

G trouv&#233; ce qui va pas je crois...
SAche que tout ce code est dans l'&#233;venement Form_KeyPress(KeyAscii As Integer)

Donc ce code s'&#233;xecute quand tu appui sur une touche num&#233;rot&#233;e KeyAscii
Or tu es d'accord que KeyAscii ne peut pas en meme temps etre &#233;gale &#224; 122 ou 115 et en meme temps &#224; 13 (pour appuyer sur entr&#233;e) dans le meme &#233;venement... ou alor il faut que tu appui en meme temps sur les fleches haut ou bas et sur entr&#233;e...
donc d&#233;j&#224; tu peux etre sur ke &#231;a ne marchera pas, exemple :
tu appui sur BAS --> oki se d&#233;clare et se met &#224; 0 puis l'&#233;venement est termin&#233; car tu n'appui pas sur entr&#233;e
ensuite tu appui sur ENTREE --> oki ne va pas garder sa valeur, il va ertre red&#233;clar&#233;e car l'&#233;v&#233;nement pr&#233;c&#233;dent &#224; &#233;t&#233; termin&#233; (dc variables internes effac&#233;es) et le nouveau oki est d&#233;clar&#233; dans le nouvel &#233;venement... donc ta variable oki sera oblig&#233; &#224; 1 car c sa valeur initiale. Et donc tu aura la partie suivante qui va s'&#233;xecuter :If KeyAscii 13 And oki 1 Then
Form1.Hide
Form2.Show
End If

Alors je ne te garantie rien la je n'ai pas trop le temps de t'aider, mais essaye de d&#233;clarer OKI dans la partie g&#233;n&#233;rale de ta form pour qu'elle conserve toujours sa valeur pr&#233;c&#233;dente, et supprime les lignes :
Dim oki As Variant
oki = 1

et oki d'abord d&#233;clare le en type LONG au lieu de VARIANT c'est mieux

voilou, essaye si t'y arrive pas dis le moi
a+


Ciao
MadMatt

le5ejumeau · Answer

essayes ce code je pense que c'est ce que tu chrerchais :
_______________________________________________________________________
 Public Const ToucheHaut = &H26     'Touche Haut en        "
 Public Const ToucheBas = &H28      'Touche bas en         "
 Public Const Entree = &HD          'touche Entree         "
Public Const Echap = &H1B          'touche Echap en      " _______________________________________________________________________
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case Is = ToucheBas
        If L = 1 Then
          Jouer.ForeColor = &HFFFFFF
          Options.ForeColor = &H80FF&
          L = 2
          Else
            If L = 2 Then
              Options.ForeColor = &HFFFFFF
              Classement.ForeColor = &H80FF&
              L = 3
              Else
                If L = 3 Then
                  Classement.ForeColor = &HFFFFFF
                  Quitter.ForeColor = &H80FF&
                  L = 4
                  Else
                    If L = 4 Then
                      Quitter.ForeColor = &HFFFFFF
                      Jouer.ForeColor = &H80FF&
                      L = 1
                    End If
                End If
            End If
        End If
    Case Is = ToucheHaut
        If L = 1 Then
          Jouer.ForeColor = &HFFFFFF
          Quitter.ForeColor = &H80FF&
          L = 4
          Else
            If L = 4 Then
              Quitter.ForeColor = &HFFFFFF
              Classement.ForeColor = &H80FF&
              L = 3
              Else
                If L = 3 Then
                  Classement.ForeColor = &HFFFFFF
                  Options.ForeColor = &H80FF&
                  L = 2
                  Else
                    If L = 2 Then
                      Options.ForeColor = &HFFFFFF
                      Jouer.ForeColor = &H80FF&
                      L = 1
                    End If
                End If
            End If
        End If
    Case Is = Echap
        End    Case Is Entree And L 1
        Unload Me
       mets ce que tu veux faire    Case Is Entree And L 2
        Unload Me
        mets ce que tu veux faire    Case Is Entree And L 3
        Unload Me
        mets ce que tu veux faire    Case Is Entree And L 4
        End
 End Select
        
End Sub
_______________________________________________________________________

Menu

3 réponses

Discussions similaires