How to Add Object button in VFP _Screen Desktop

-
Public oHandler

oHandler = Newobject ("ClickHandler")

WITH _SCREEN
_SCREEN.Caption='SHOW BUTTON IN VFP DESKTOP SCREEN'
.ADDOBJECT("command1","commandbutton")
Bindevent (.COMMAND1, "Click", oHandler, "Build")
WITH .COMMAND1
.Top = 80
.Left = 10
.Height = 48
.Width = 228
.FontBold = .T.
.FontSize = 12
.Caption = "SHOW BUTTON 1"
.SpecialEffect = 0
.BackColor = RGB(255,88,9)
.Themes = .T.
.Name = "Command1"
.VISIBLE=.T.
ENDWITH

.ADDOBJECT("command2","commandbutton")
Bindevent (.COMMAND2, "Click", oHandler, "Build1")
WITH .COMMAND2
.Top = 150
.Left = 10
.Height = 48
.Width = 228
.FontBold = .T.
.FontSize = 12
.Caption = "SHOW BUTTON 2"
.SpecialEffect = 0
.BackColor = RGB(255,88,9)
.Themes = .T.
.Name = "Command2"
.VISIBLE=.T.
ENDWITH
ENDWITH

*----------------------------------------
Define Class ClickHandler As Session
Procedure Build
MESSAGEBOX(1)
Return

Procedure Build1
MESSAGEBOX(2)
Return
Enddefine

Comments

Post a Comment

Popular posts from this blog

(VFP) - Running Visual FoxPro on Linux

-
Running Visual FoxPro on Linux By Paul McNett (FoxTalk, March 2003) While Microsoft publicly refuses to release Visual FoxPro for alternate platforms, there's still hope for a multi-platform VFP. Using an open-source product called Wine, Paul McNett shows how we can take matters into our own hands and put the fox on Linux ourselves. Remember last century, when one of FoxPro's greatest selling points was its ability to run and deploy to not one, not two, not three, but four separate platforms? This was a powerful selling point for me when I was choosing my development environment: Even though I only ever deployed to Windows, it was reassuring to know I wouldn't be painted into a corner should a client ask about a Mac, Unix, or DOS version of my software. Contrast that to today: As new versions of Visual FoxPro emerge with their great features and fixes, I keep finding myself thinking that our situation as VFP developers is pretty dire, being limited to developing and deployi
Read more

(VFP) - How to put calendar on your vfp application

-
DEFINE CLASS form1 AS form Height = 239 Width = 286 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "Calendar" MaxButton = .F. MinButton = .F. Name = "Form1" ADD OBJECT command1 AS commandbutton WITH ; AutoSize = .F., ; Top = 204, ; Left = 82, ; Height = 27, ; Width = 55, ; Caption = "\ Name = "Command1" ADD OBJECT olecontrol1 AS olecontrol WITH ; Top = 0, ; Left = -1, ; Height = 200, ; Width = 289, ; Name = "Olecontrol1" ADD OBJECT command2 AS commandbutton WITH ; AutoSize = .F., ; Top = 204, ; Left = 149, ; Height = 27, ; Width = 54, ; Caption = "\ Name = "Command2" PROCEDURE Init SET DATE BRITISH PUBLIC OCAL AS DATE THISFORM.OleControl1.OBJECT.DAY = DAY(DATETIME()) THISFORM.OleControl1.OBJECT.MONTH = MONTH(DATETIME()) THISFORM.OleControl1.OBJECT.YEAR = YEAR(DATETIME()) ENDPROC PROCEDURE command1.Click OCAL = SUBSTR(DTOC(THISFORM.OLEcontrol1.OBJECT.Va
Read more

(VFP) - How To Run Exe File and include them to your Project

-
******************************* ** Author : Leosan ** ** Date Publish : 29/01/2005 ** ******************************* * Examples how to run Windows Calculator * declare long ShellExecute in "shell32.dll" long hwnd, string lpszOp,string lpszFile, string lpszParams,string lpszDir, long nShowCmd declare long GetDesktopWindow in"win32api" local hDCScreen hDCScreen = GetDesktopWindow() ShellExecute( hDCScreen, "open", "calc.exe", "", "d:\", 1)
Read more