1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Code

Signaler
Messages postés
40
Date d'inscription
samedi 27 mars 2010
Statut
Membre
Dernière intervention
11 juin 2010
 -
Messages postés
36
Date d'inscription
jeudi 28 janvier 2010
Statut
Membre
Dernière intervention
6 février 2011
 -
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

Réponse 1 / 3
Messages postés
25
Date d'inscription
vendredi 28 mai 2010
Statut
Membre
Dernière intervention
29 décembre 2010
precise ce que tu veux comprendre
Réponse 2 / 3
Messages postés
40
Date d'inscription
samedi 27 mars 2010
Statut
Membre
Dernière intervention
11 juin 2010
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
Réponse 3 / 3
Messages postés
36
Date d'inscription
jeudi 28 janvier 2010
Statut
Membre
Dernière intervention
6 février 2011
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
Répondre Posez votre question