- ' Dans la première boucle vous pouvez ajouter
- ' le code suivant, il permet de voir le
- ' contenu
- ' de la variable j (Ajouter une listBox
- ' dans la fenêtre) : listBox1.Items.Add
- ' (j.current)
- Dim j As System.Collections.IEnumerator
- j = Controls.GetEnumerator
- While j.MoveNext
- If TypeOf j.Current Is GroupBox Then
- ' Pour accéder aux objets contenus
- ' dans un groupBox, il faut
- ' passer par sa propre collection
- ' de contrôle
- ' cf *
- CType(j.Current, GroupBox).FlatStyle _
- = FlatStyle.Standard
- CType(j.Current, GroupBox).Refresh()
- Dim i As System.Collections.IEnumerator
- i = j.Current.Controls.GetEnumerator
- While i.MoveNext
- If TypeOf i.Current Is Button Then
- ' cf *
- CType(i.Current, Button).FlatStyle _
- = FlatStyle.Standard
- CType(i.Current, Button).Refresh()
- End If
- End While
- End If
- If TypeOf j.Current Is Button Then
- ' *
- ' C'est à ce niveau que l'on accède aux propriétés
- ' de l'objet que l'on veut modifier.
- ' Exemple supplémentaire :
- ' CType(i.Current, Button).BackColor = color.Blue
- ' Vous l'aurez évidemment remarqué
- ' que ce code permet,
- ' en quelque ligne, de modifier la couleur
- ' de tous les boutons
- ' de la fenêtre.
- CType(j.Current, Button).FlatStyle _
- = FlatStyle.Standard
- End If
- If TypeOf j.Current Is RadioButton Then
- ' cf *
- CType(j.Current, RadioButton).FlatStyle _
- = FlatStyle.Standard
- End If
- If TypeOf j.Current Is CheckBox Then
- ' cf *
- CType(j.Current, CheckBox).FlatStyle _
- = FlatStyle.Standard
- End If
- End While
' Dans la première boucle vous pouvez ajouter
' le code suivant, il permet de voir le
' contenu
' de la variable j (Ajouter une listBox
' dans la fenêtre) : listBox1.Items.Add
' (j.current)
Dim j As System.Collections.IEnumerator
j = Controls.GetEnumerator
While j.MoveNext
If TypeOf j.Current Is GroupBox Then
' Pour accéder aux objets contenus
' dans un groupBox, il faut
' passer par sa propre collection
' de contrôle
' cf *
CType(j.Current, GroupBox).FlatStyle _
= FlatStyle.Standard
CType(j.Current, GroupBox).Refresh()
Dim i As System.Collections.IEnumerator
i = j.Current.Controls.GetEnumerator
While i.MoveNext
If TypeOf i.Current Is Button Then
' cf *
CType(i.Current, Button).FlatStyle _
= FlatStyle.Standard
CType(i.Current, Button).Refresh()
End If
End While
End If
If TypeOf j.Current Is Button Then
' *
' C'est à ce niveau que l'on accède aux propriétés
' de l'objet que l'on veut modifier.
' Exemple supplémentaire :
' CType(i.Current, Button).BackColor = color.Blue
' Vous l'aurez évidemment remarqué
' que ce code permet,
' en quelque ligne, de modifier la couleur
' de tous les boutons
' de la fenêtre.
CType(j.Current, Button).FlatStyle _
= FlatStyle.Standard
End If
If TypeOf j.Current Is RadioButton Then
' cf *
CType(j.Current, RadioButton).FlatStyle _
= FlatStyle.Standard
End If
If TypeOf j.Current Is CheckBox Then
' cf *
CType(j.Current, CheckBox).FlatStyle _
= FlatStyle.Standard
End If
End While