Comment changer la couleur de fond d'un bouton de commande (vfp5.0,vfp6.0,vfp7.0)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 786 fois - Téléchargée 31 fois

Contenu du snippet

Avant l'arrivée de la version 8.0 il semblait impossible de changer la couleur de fonds d'un bouton de commande. Voici un exemple.

Source / Exemple :


Public oform1
oform1=createobject("form1")
oform1.AddObject("cmdbutton","cmdbutton")
oform1.Show
Return
Define Class form1 As Form
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"
Enddefine
Define Class cmdButton As OleControl
    Procedure Init
       With This
        .Object.BackColor = 255
        .Caption = "Cliquer!"
       Endwith
      Endproc
OleClass = "forms.commandbutton.1"
Visible = .T.
Height =40
Top = 50
Left = 50
AutoSize = .T.
    Procedure Click
          Messagebox("La couleur de fond est rouge")
      Endproc
Enddefine

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.