IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

[VB6] Ignorer une verification


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 90
    Par défaut [VB6] Ignorer une verification
    Bonjour je voudrais ignorer la verification de k(0) (en rouge) une fois qu'elle a ete vérifié une fois en fait pour que quand je clique sur le Bt(0) une deuxieme fois il ne reverifie pas k(0)


    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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    Private Sub bt_Click(i As Integer)
    
    Msg = MsgBox("Etes-vous sûr?", vbYesNo + vbQuestion, "Avertissement")
    
    If Msg = vbYes Then
        
        k(i) = True 'mémorise action sur bouton i
        
        For i = 0 To 13
        bt(i).Enabled = False
        Next i
        
        If Lancer.Enabled = False Then Lancer.Enabled = True
        Jeu = 0
        If Jeu = 3 Then Lancer.Enabled = False
        
        Check1.Value = 0
        Check1.Enabled = False
        Check2.Value = 0
        Check2.Enabled = False
        Check3.Value = 0
        Check3.Enabled = False
        Check4.Value = 0
        Check4.Enabled = False
        Check5.Value = 0
        Check5.Enabled = False
        
        If k(0) = True Then
            
            If de1 = 1 Then
            x1 = 1
            Else
            x1 = 0
            End If
            If de2 = 1 Then
            x2 = 1
            Else
            x2 = 0
            End If
            If de3 = 1 Then
            x3 = 1
            Else
            x3 = 0
            End If
            If de4 = 1 Then
            x4 = 1
            Else
            x4 = 0
            End If
            If de5 = 1 Then
            x5 = 1
            Else
            x5 = 0
            End If
            Lb(0) = x1 + x2 + x3 + x4 + x5
            k(0) = False
                
        End If
    End If
    End sub

  2. #2
    Rédacteur
    Avatar de jacma
    Profil pro
    Inscrit en
    Juillet 2002
    Messages
    612
    Détails du profil
    Informations personnelles :
    Âge : 81
    Localisation : France

    Informations forums :
    Inscription : Juillet 2002
    Messages : 612
    Par défaut
    Bonjour

    Un "drapeau" déclaré en booléen dans ta section de déclaration.

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 90
    Par défaut
    c koi un drapeau??

  4. #4
    Inactif  
    Avatar de jmfmarques
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    3 784
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 3 784
    Par défaut
    une variable, ou l'utilisation d'une propriété tag, par exemple, que tu utilises pour écrire un état et que tu relis ensuite pour voir quel est l'état !.
    Tu ne vas pas demander maintenant, j'espère, ce qu'est une variable ou la propriété tag d'un controle !
    Je ne veux personnellement plus voir du "c koi" ou n'importe quoi d'autre écrit en SMS (Règles de ce forum également)

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 90
    Par défaut
    je connais la propriete tag mais je ne voit pas comment l'utiliser (je suis debutant)

  6. #6
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 90
    Par défaut
    je connais la propriete tag mais je ne voit pas comment l'utiliser (je suis debutant)

  7. #7
    Rédacteur
    Avatar de jacma
    Profil pro
    Inscrit en
    Juillet 2002
    Messages
    612
    Détails du profil
    Informations personnelles :
    Âge : 81
    Localisation : France

    Informations forums :
    Inscription : Juillet 2002
    Messages : 612
    Par défaut
    Citation Envoyé par jmfmarques
    Tu ne vas pas demander maintenant, j'espère, ce qu'est une variable ou la propriété tag d'un controle !
    Pourquoi pas .

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VB6] Exécuter une macro Access
    Par Nektanebos dans le forum VB 6 et antérieur
    Réponses: 8
    Dernier message: 22/02/2006, 17h32
  2. [VB6] Sauvegarder une collection d'objets
    Par Sayagh dans le forum VB 6 et antérieur
    Réponses: 7
    Dernier message: 19/09/2003, 12h58
  3. [VB6] parcourir une arborescence de repertoire
    Par pecheur dans le forum VB 6 et antérieur
    Réponses: 8
    Dernier message: 30/04/2003, 18h33
  4. [VB6]Créer une Base de données
    Par ThierryAIM dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 07/04/2003, 18h24
  5. [VB6]Fermer une application avec VB
    Par Mylou dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 04/04/2003, 22h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo