INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

Activex

How to change the background color of a commandbutton by mgagnon
Posted: 5 May 03 (Edited 5 May 03)

If you simply need a colored command button (VFP7.0 and down, since this feature was implemented in VFP8.0), use the Activex called Microsoft Forms2.0 commandbutton that ships with VFP, which has a background color property (If you are using it visually or programmatically, you cannot change the property on the Activex itself but the property need to be changed in the init of the form) . Here is an example how to use it, copy the following in a program and run it to see how it works:

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 = "Click me!"
       Endwith
      Endproc
OleClass = "forms.commandbutton.1"
Visible = .T.
Height =40
Top = 50
Left = 50
AutoSize = .T.
    Procedure Click
          Messagebox("This is a red button")
      Endproc
Enddefine

This idea was inspired by David Frankenbach
Mike Gagnon

Back to Microsoft: Visual FoxPro FAQ Index
Back to Microsoft: Visual FoxPro Forum

My Archive

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close