Problème de compréhension .... (Me.Count + On error go to O)

Question

Bonjour &#224; tous, 

Voil&#224; j'ai un petit probl&#232;me avec un programme en Vb, je ne comprend pas ce que signifie deux phrases, merci de bien vouloir m'indiquer sur la signification de celles-ci.

1&#232;re phrase :     On Error GoTo 0
Alors dans son contexte : 

Private Sub cmdAnnule_Click()


    ' Configuration de la commande annul&#233;
    If Not cmdAnnule.Enabled Then Exit Sub    ' D'o&#249; lors d'un ajout
    voirtexte                                 ' Configuration de d&#233;part
    AfficheEnregistrementActuel (num_fiche)
    
On Error GoTo 0

    DefinirEtatBouton                         ' Met en service les boutons enregistrer et annuler
    cmdOktexte.Visible = True
    cmdOkcombo.Visible = False

End Sub

2 &#232;me phrase :         If TypeOf Me(X) Is CommandButton Then et le reste aussi : 
Alors dans son contexte : 

Private Sub DefinirEtatBouton()


    Dim X%
    For X = 0 To Me.Count - 1
        If TypeOf Me(X) Is CommandButton Then
            Me(X).Enabled = Not Me(X).Enabled
        End If
    Next
    cmdProducteur.Enabled = True
    
End Sub

Le Me.Count n'est m&#234;me pas d&#233;fini ?

Je vous remercie pour l'aide que vous nous donn&#233;....

Amicalement. Luca62.

cs_Jack · Answer

Salut
Tout &#231;a est expliqu&#233; dans l'aide de VB6

- "On Error Goto 0" annule toute gestion d'erreur en cours
- "If TypeOf" permet de tester si le type d'objet pass&#233; en r&#233;f&#233;rence est de type ...

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_CanisLupus · Answer

Salut,

Comme dit jack mais en plus, tes 2 exemples sont incomplets ou faux.
On error goto 0 est inutile si tu n'as pas On error resume next ou On error goto ...

et For X = 0 To Me.Count  ?????

je verrais &#231;a plut&#244;t comme &#231;a :

   dim x as control
    For each X in Me.controls
        If TypeOf X Is CommandButton Then
            X.Enabled = Not X.Enabled
        End If
    Next

L&#224;, &#231;a veut dire que, pour tous les commandbutton de ton form, tu inverses leur propri&#233;t&#233; enabled.

Cordialement, CanisLupus

Problème de compréhension .... (Me.Count + On error go to O)

2 réponses

Discussions similaires