Gruppo di Label, semplificare il codice...

[vuott]

http://89.234.156.109/sujet-4928-groupe-de-label-simplifier-le-code-page-1.html

[Gianluigi]

Mi dispiace per kicco ma questa volta non ho effetti speciali, ma una cosina semplice semplice:

Codice: [Seleziona]

Private mytable As Boolean[] = [True, False, True, False, False, True]

Public Sub form_open()

  Dim i As Integer
  Dim c As Control

  For i = 0 To mytable.Max
    For Each c In Me.Controls
      If c.Name = "Label" & i Then c.Visible = mytable[i]
      Continue
    Next
  Next

End

Varianti sul tema in questo topic

 

P.S. Mi ero scordato Continue

[kicco]

Mi dispiace per kicco ma questa volta non ho effetti speciali...