Code

marwakarim
Messages postés
40
Date d'inscription
samedi 27 mars 2010
Statut
Membre
Dernière intervention
11 juin 2010
- 11 juin 2010 à 16:45
kbalist
Messages postés
36
Date d'inscription
jeudi 28 janvier 2010
Statut
Membre
Dernière intervention
6 février 2011
- 12 juin 2010 à 08:19
salut je veux comprendre ce code pour une form de graphe
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
et



Private Sub Stock_Click()
MyGrafObj.ChartType = xlStockHLC
End Sub


Private Sub TopScale_Change()

End Sub

merci d'avance

3 réponses

evilcoder
Messages postés
25
Date d'inscription
vendredi 28 mai 2010
Statut
Membre
Dernière intervention
29 décembre 2010

11 juin 2010 à 18:29
precise ce que tu veux comprendre
0
marwakarim
Messages postés
40
Date d'inscription
samedi 27 mars 2010
Statut
Membre
Dernière intervention
11 juin 2010

11 juin 2010 à 19:12
salut je veux comprendre
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
merci d'avence
0
kbalist
Messages postés
36
Date d'inscription
jeudi 28 janvier 2010
Statut
Membre
Dernière intervention
6 février 2011

12 juin 2010 à 08:19
salut

A mon avis cela permet de rendre invisibles/visibles tous les contrôles qui ne sont pas affectés à l'impression

appel: PrintVisibility(False) pour les rendre invisibles

Me(i).Tag <> "Print" permet de voir ceux qui ne sont pas affectés à l'impression

Me(i).Visible = visState permet de les rendre visibles/invisibles
0