用命令创建对象 frmSI=CREATEOBJECT("Clas Test") frms1 Show READ EVENTS&&开始等待事件发生,直到执行了 CLEAREVENTS DEFINE CLASS Clas Test as form ADD OBJECT cmdSHOW AS CommandButton cmdsHOW. Caption=显示信息 cmdsHoW. Fontsize=14 cmdSHOW. Fore Color=RGB(250,0,0) cmdsHOW. Left50 cmdSHOW.Top=40 cmdshoW. Height=40 cmdsHoW.width=180 PROCEDURE cmdsHoW Click WAIT WINDOW"你好!我是狐狸。 CLEAR EVENTS &&结束事件等待状态 Thisform. Release &&释放表单 ENDPROC ENDDEFINE用命令创建对象 语法形式：<对象名> = CREATEOBJECT( <类名> ［，参数1，参数2,．．．］) 例8-６ 编一程序实现以下任务。定义表单类 ClasTest，它包含一个用来显示一条消息命令按 钮。用该类创建一个表单对象frmS1，显示这个 对象。 frmS1=CREATEOBJECT("ClasTest") frmS1.Show READ EVENTS && 开始等待事件发生，直到执行了CLEAR EVENTS DEFINE CLASS ClasTest AS Form ADD OBJECTcmdSHOW AS CommandButton cmdSHOW.Caption="显示信息" cmdSHOW.FontSize=14 cmdSHOW.ForeColor=RGB(250,0,0) cmdSHOW.Left=50 cmdSHOW.Top=40 cmdSHOW.Height=40 cmdSHOW.Width=180 PROCEDUREcmdSHOW.Click WAIT WINDOW"你好！我是狐狸。 " CLEAR EVENTS && 结束事件等待状态 Thisform.Release && 释放表单 ENDPROC ENDDEFINE