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
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.