类的小问题

yuanzhang 2004-10-19 09:35:07
DEFINE CLASS zhangsan2 AS FORM
Visible=.t.
Backcolor=rgb(0,0,128)
Caption='我的表单'
Left=20
Top=10
Height=255
Width=443
Fontname='楷体'
Fonsize=16
Forecolor=rgb(255,0,0)
ADD OBJECT comm1 AS COMMANDBUTTON
WITH Caption='关闭',visible=.t.,;
Backcolor=rgb(0,128,0),Left=220,;
Top=110,Height=40,;
Width=60, Fontname='宋体',;
Fontsize=20,Forecolor=rgb(0,255,0),;
PROCEDURE comm1.click
st=Messagebox('您的确要关闭这个表单',4+16+0,'对话窗口')
if st=6
Release thisform
endif
endproc
endproc
enddefine
这是我用程序定义的一个类,请问在程序中怎么用呢,如何看到它的运行结果?我对类的使用情况不大清楚,各位大侠给讲讲吧
...全文
53 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
LAIYANGPJ 2004-10-19
  • 打赏
  • 举报
回复
这个自定义类的调用与调用过程的方法类似.(这里假定你的类名为LVCX.PRG)
SET PROCEDURE TO LVCX.PRG
OLVCX=CREATEOBJECT('ZHANGSAN2') &&创建对象
.
.
.
xclzteb 2004-10-19
  • 打赏
  • 举报
回复
楼上对的。然后加上表单的show事件就可以看到效果了。
发帖
VFP

2574

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
帖子事件
创建了帖子
2004-10-19 09:35
社区公告
暂无公告