code

Question

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

evilcoder · Answer

precise ce que tu veux comprendre

marwakarim · Answer

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

kbalist · Answer

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

Code

3 réponses

Votre réponse

Discussions similaires