Discussion :

[Hydex]

Je voudrais reinitialiser la propriété backcolor de tous les controles de mon formulaire en une fois, c'est possible? Me.Controls ne me donne pas accès à Backcolor...
Ca m'eviterait de taper 60 lignes de code juste pour ça...

[Invité]

Bonjour c'est possible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim oCtrl as Control
For each oCtrl in me.Controls
     oCtrl.Backcolor = rgb(200,180,200)
Next oCtrl

Backcolor n'apparait pas dans la liste, mais cela fonctionne

Starec

[Hydex]

Ben...
Erreur d'exécution 438, Propriété ou méthode non gérée par cet objet sur la ligne octrl.backcolor :/

[Invité]

Heu

Je viens de coller le code tel quel dans un formulaire que j'ai en cours de création, et tous mes contrôles étaient violets.

As-tu des contrôles autres que les contrôles standarts ? Si oui, il se peut qu'il y'en ait un qui n'accepte pas le backcolor.

essaye cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim oCtrl as Control
For each oCtrl in me.Controls
     If TypeOf oCtrl is TextBox then
          oCtrl.Backcolor = rgb(200,180,200)
     End If
Next oCtrl

Ne devrait colorier que les textbox

Starec

[Hydex]

Ah oui ça marche mieux, merci! Ce devait être mes cases à cocher qui n'acceptaient pas le backcolor.
Bon du coup ça ne me colorie pas non plus mes etiquettes ni mes listes déroulantes.
Pas moyen de faire un truc genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If TypeOf oCtrl Not CheckBox

(pas exactement comme ça, c'est pas la bonne syntaxe)?

[Invité]

Tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim oCtrl as Control
For each oCtrl in me.Controls
    If TypeOf oCtrl is ChekBox then
    Else
        oCtrl.Backcolor = rgb(200,180,200)
  End If
Next oCtrl

Pas testé

Starec

[Hydex]

Ah ben c'était tout con, sigh..
merci