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

Commandbutton picture in any position by craigsboyd
Posted: 6 Jul 03 (Edited 18 Feb 05)

Slighthaze = NULL

Don't like the commandbutton picture always being centered above the caption?  Place it in any position you want with this ActiveX solution (cut-n-paste the code into a prg and run from within VFP):


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
            .pictureposition = 1 &&Change This
            .PICTURE = LOADPICTURE(HOME() + "graphics\bitmaps\offctlbr\small\color\open.bmp")
            .OBJECT.BACKCOLOR = RGB(255,255,255)
            .CAPTION = "Open me!"
        ENDWITH
    ENDPROC
    OLECLASS = "forms.commandbutton.1"
    VISIBLE = .T.
    HEIGHT =40
    TOP = 100
    LEFT = 125
    AUTOSIZE = .T.
    PROCEDURE CLICK
        =GETDIR("","Locate application:", "Browse for File or Folder",16464)
    ENDPROC
ENDDEFINE

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