comprendre ce code

Question

Salut je veux comprendre ce code  je suis débutante et je comprend pas ce code est situé dans une form de graphe qui permet d'afficher deux  MSCHART convenable a des statistiques merci d'avance  
Private Sub PrintVisibility(visState As Boolean)
  Dim i As Integer

' First turn off the other controls

  For i = 0 To Me.Count - 1
    If Me(i).Tag <> "Print" Then
      Me(i).Visible = visState
    End If
  Next

End Sub


Private Sub Stock_Click()
 MyGrafObj.ChartType = xlStockHLC
End Sub

Private Sub TopScale_Change()

End Sub

cs_GG29 · Answer

Private Sub PrintVisibility(visState As Boolean) 
    Dim i As Integer 

    ' First turn off the other controls 

    For i = 0 To Me.Count - 1  
    If Me(i).Tag <> "Print" Then 
        Me(i).Visible = visState 
    End If 
Next 

End Sub


Tu changes la visibilité de tous les controles ayant leur tag différent de "Print"

---
mon blog
Généralement le bug se situe entre le clavier et la chaise.
Le temps est une "chose" introuvable dont l'existence ne fait aucun doute.

PCPT · Answer

salut, en effet il y a de quoi se perdre, c'est pour çà qu'il faut se forcer à NOMMER. je m'explique : une zone de texte, on mettra text1.text = "blabla" seulement TEXT est la propriété par défaut donc text1 = "blala" va AUSSI fonctionner on doit néanmoins se forcer, question de lisibilité dans ton code ici, c'est pareil la propriété par défaut de ME (la form), c'est pas TEXT mais CONTROLS du coup quand tu lis : If Me(i).Tag <> "Print" Then en fait c'est If Me.CONTROLS(i).Tag <> "Print" Then on va boucler sur tous les controls de la collection (donc ceux physiquement sur la form) pour les rendre visibles ou invisibles (à noter que tu auras une erreur si tu poses un TIMER par exemple, qui n'a pas cette propriété) c'est plus clair? ++ [hr]

Comprendre ce code

2 réponses

Votre réponse

Discussions similaires