| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 772 人关注过本帖
标题:能否不用类库。把类庫的内容全部整合在调用它xx.prg中。
取消只看楼主 加入收藏
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
结帖率:79.38%
收藏
已结贴  问题点数:20 回复次数:3 
能否不用类库。把类庫的内容全部整合在调用它xx.prg中。
下面有一个例子它用找开类库的方法来调用自定义类(内有类的自定义属性,方法)我想不用类库,把自定义中的全部内容放在.prg中,不知如何写法?请指教。具件体内容及运行结果见附件。
类的创建.rar (18.59 KB)

1。xx.prg内容
public oform
set classlib to d:\51ls\mylibrary.vcx  &&打开类库
oform=createobject("form1")
oform.visible=.t.
define class form1 as form
caption="类示例"
height=100
name="form1"
add object command1 as commandbutton with;
top=10,;
left=10,;
height=25,;
width=100,;
caption="显示“取消”",;
naem="command1"
add object command2 as commandbutton with;
top=50,;
left=10,;
height=25,;
width=100,;
caption="显示“关闭”",;
naem="command2"
add object cancel1 as cancel with ;
top=10,;
left=150,;
height=60,;
width=170,;
iscancelclose=1,;
naem="cancel1"
proc command1.click     &&单击command1按钮,将执行cancel1的showcancelclose方法并传递参数0
thisform.cancel1.showcancelclose(0)&&cancel1中按钮的标题将显示为"取消"
endproc
proc command2.click
thisform.cancel1.showcancelclose(1)
endproc
enddefin
2。cancel类的内容
cacel的showcancelclose方法中的代码  &&showcancelclose方法在设计器中设置
lpara niscancelclose
if vartype(niscancelclose)#"N"
messagebox("参数类型错误!",0+48,"提示")
return
endif
do case
case  niscancelclose=0
取消"
case  niscancelclose=1
关闭"
othe
messagebox("参数类型错误!可以传递的参数为0,1",0+48,"提示")
endcase
3.cacel的init事件
if this.iscancelclose=0
    取消"
   else
   this.iscancelclose=1
    关闭"
 endif
4。iscancelclose为自定义属性&&在设计器中设置、
5类中对象command1的click 代码
release thisform
我想把2,3,4,5 这三块内容全部定义在xx.prg中,不用类库。把类庫的内容全部整合在xx.prg中。
搜索更多相关主题的帖子: 如何 public class 
2011-10-27 10:42
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
TonyDeng:
麻烦您,有便时能否把我的上述VCX的一些东西贴到prg中去好吗?简单的会弄,复杂的没有头绪。有了上述的一个样本,新旧对照,理介得了,照样画图我慢慢体会。好吗?先谢了。
2011-10-27 17:55
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
cnfarer:
按你的办法真行,原来类浏览器里面都有代码,只要把它复制到PRG中即可。多谢了。还真不知道还有此法,学习真是不够深入。
2011-10-27 18:11
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
TonyDeng楼兄:
不要劳神了,谢谢。我按照cnfarer兄的指教用类游览器把里面的代码放入PRG中即可,成功了。
2011-10-27 18:17
快速回复:能否不用类库。把类庫的内容全部整合在调用它xx.prg中。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017384 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved