VB6 de Changer les couleurs pour chaque contrôle sur un formulaire

Je suis en train de changer le thème de couleur d'une vieille application VB6 (le rendre un peu plus moderne!).

Quelqu'un peut me dire comment je pourrais changer la propriété backcolor de chaque contrôle sur un formulaire sans le faire pour chaque contrôle (étiquette, bouton, une image, etc!).

J'ai environ 50 formes, tous contenant de tels contrôles et de le faire manuellement pour chaque forme dans le code serait prendre un âge!

Je suis aussi ouverte à de meilleures suggestions et d'idées sur comment je peux la peau /thème d'une application VB6?

Merci d'avance

InformationsquelleAutor Belliez | 2009-03-06
  1. 5

    Vous pouvez faire un pour chacun et pour éliminer les contrôles que vous ne voulez pas.

    Dim frmThing as Form    
Dim ctlThing as Control

For Each frmThing In Forms
  frmThing.BackColor = vbYellow
  For Each ctlThing In frmThing.Controls
    If (TypeOf ctlThing Is TextBox) Or _
    (TypeOf ctlThing Is CheckBox) Or _
    (TypeOf ctlThing Is ComboBox) Then
      ctlThing.BackColor = vbYellow
    End If
  Next
Next
    • oui Typeof x Est y (où y est un identificateur de type) est valide dans VB6, mais vous êtes trop jeune pour savoir ça 😉
    • Je me souviens à l'époque (dans la journée) toujours avoir ce genre de fonction sur mes projets visual basic. Au lieu de SI OU de déclarations, je voudrais de CAS d'utilisation.
    • J'imagine que ça doit être l'âge. 😉 J'ai en effet pas au courant de la TypeOf... eh bien, appelons cela une "extension de l'instruction if". Ce n'est pas un opérateur dans son propre droit, mais c'est bon à savoir.
    • Ce n'est pas une extension de l'instruction if. La TypeOf .. Est .. de construire peut être utilisé partout où vous pouvez utiliser une expression booléenne. TypeOf x serait une erreur de syntaxe, tu ne peux TypeOf .. Est ..
    • Je vois... dommage que je n'ai rien, mais VBA documentation ici - il est mentionné que dans l'instruction if-il. Ce qui impliquerait que de l'utiliser dans une instruction Select case (comme Ferds semble se rappeler) ne fonctionnerait pas très bien.
    • Il pourrait fonctionner si vous utilisez "Select case True" alors chaque cas, l'expression "Affaire TypeOf ctlThing Est Case à cocher" etc.
    • merci, j'ai utilisé votre code et il fonctionne à merveille pour les formes, ne peut pas sembler obtenir des Contrôles Utilisateur de changer les formes!
    • avez-vous accès à l'utilisateur le contrôle de code source ? si oui pourriez-vous aussi ajouter le code ? ou serait-ce une pénible tâche ?
    • Cela ne concerne que les formes de chargement. Il ne sera efficace que si vous chargez toutes les formes à l'application de démarrage & garder chargé. Sinon, vous aurez besoin pour déclencher la boucle sur les Contrôles de l'événement Form_Load. Watch out pour charger dynamiquement des contrôles trop

    InformationsquelleAutor Ferdeen
  2. 6

    L' .fichiers frm sont tout simplement norme ANSI fichiers texte. Une couleur d'arrière-plan de la propriété d'un contrôle devrait ressembler à ceci:-

    BackColor       =   &H80000005&

    (Note ci-dessus est un système de couleur, mais vous pouvez spécifier la couleur RVB à l'aide de la baisse de 3 octets et en laissant l'octet 0).

    Un contrôle de ce Label devrait ressembler à ceci:-

    Begin VB.Label Label1 
  Caption         =   "Hello:"
  Height          =   285
  Left            =   90
  TabIndex        =   3
  Top             =   480
  Width           =   1305
End

    De sorte que la tâche peut être fait sur le plan lexical par l'analyse de la .les fichiers frm et de l'insertion (ou de remplacement) le BackColor d'attribut ligne.

    Edit:

    Lien utile posté dans les commentaires par MarkJ : Formulaire De Description Des Propriétés

    • +1, ça aurait été mon "pas de changement de code requis"l'idée de bien. Je ne pense pas que le développement d'un dépouillement mécanisme est ce que l'OP est après.
    • +1 . C'est ce que nous avons fait dans une situation similaire. Peut-être utile de mentionner que la FRM format est documenté en ligne. msdn.microsoft.com/en-us/library/aa716301(SV.60).aspx
    InformationsquelleAutor AnthonyWJones
  3. 1

    vous pouvez le faire au moment de l'exécution par le bouclage de la collection de Contrôles et de définir l'arrière-plan de chaque. Ce serait vous donner la possibilité de changer le thème de votre.

    Vous pouvez également travailler à travers les fichiers source, analyser les commandes et entrer/modifier les couleurs d'arrière-plan que vous voulez. Cette approche est sans doute plus de travail, moins de récompense.

    • Je veux être en mesure de le faire au moment de l'exécution, de sorte que je peux mettre une valeur unique pour les couleurs dans un seul endroit. merci
    • Dans ce cas, créez un Thème de classe, passer chaque formulaire lorsqu'il est chargé, et de mettre tout votre couleur/thématique logique là-dedans. Si vous en construire une autre DLL COM possibilité de ré-utilisation et/ou de la pousser hors de la communauté
    • J'ai fait juste que, à l'aide du code à partir de la réponse ci-dessous. Cependant, je n'arrive pas à faire des Commandes de l'Utilisateur de travailler de cette façon!
    InformationsquelleAutor MrTelly
  4. 1

    Juste pour être complet,...

    ssCheck n'ont pas de propriété BackColor et produira une erreur en utilisant les méthodes ci-dessus

    ~Mike~

    InformationsquelleAutor MikeRG
  5. 0

    Il remonte à quelques années maintenant, mais n'était-il un "Transparent" couleur d'arrière-plan?

    Ensemble de toutes les étiquettes d'avoir un fond transparent, et vous avez seulement besoin de définir la couleur de forme une fois.

    InformationsquelleAutor James L