Visual FoxPro

Multiple Visual FoxPro samples, taken from https://en.wikipedia.org/wiki/Visual_FoxPro
This commit is contained in:
Eric Cholis 2016-05-20 09:09:47 -04:00
parent 9f63e88962
commit 8bfe0d0eea

17
v/visualfoxpro.prg Normal file
View File

@ -0,0 +1,17 @@
* Message Box:
MESSAGEBOX("Hello World")
* Print to screen:
? "Hello World"
* GUI:
loForm = CREATEOBJECT("HiForm")
loForm.Show(1)
DEFINE CLASS HiForm AS Form
AutoCenter = .T.
Caption = "Hello, World"
ADD OBJECT lblHi as Label ;
WITH Caption = "Hello, World!"
ENDDEFINE