程序1.prg

来自「VF程序设计电子课件 VF程序设计电子课件」· PRG 代码 · 共 28 行

* Ex_CForm 程序
PUBLIC MyForm
MyForm = CREATEOBJECT ("Form1")				&& 根据定义表单类建立对象
MyForm.Show
MyForm.Circle(60,100,100,1)					&& 在表单上画圆
READ EVENTS

DEFINE CLASS Form1 AS Form					&& 定义表单类
	ADD OBJECT TEXT1 AS TextBox;			&& 定义表单中的文本框
	  WITH Top=160,Left=40,Value="测试数据"
	ADD OBJECT COMM1 AS CommandButton;		&& 定义表单中的命令按钮
	  WITH Caption='确定',BackColor=2,Left=40,Top=200,Left=40
	ADD OBJECT COMM2 AS CommandButton;		&& 定义表单中的命令按钮
	  WITH Caption='终止',BackColor=2,Left=40,Top=200,Left=140
	
	PROCEDURE Click							&& 表单的Click事件代码
	    =MESSAGEBOX("Form的Click!")  
	ENDPROC
	PROCEDURE Comm1.Click					&& 命令按钮的Click事件代码
	    =MESSAGEBOX("文本框的值为"+THISFORM.TEXT1.VALUE)
    ENDPROC
	PROCEDURE Comm2.Click					&& 命令按钮的Click事件代码
	    =MESSAGEBOX("终止的Click!")
	    THISFORM.Release
	    CLEAR EVENTS
    ENDPROC
ENDDEFINE