能否不用类库。把类庫的内容全部整合在调用它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中。