同一个表单,多次实例化

来源:互联网 发布:北京网络微信投票公司 编辑:程序博客网 时间:2024/05/19 13:30

local cFormName,oForm as Form

cFormName=sys(2015)

Public &cFormName

&cFormName=CREATEOBJECT("类名","名称",@参数.....)

oForm=Evaluate(cFormName)

oForm.Show()


=====================================关闭表单===============

set library to myfill.fll

=sendmessagebox(oForm.Hwnd,16)

set Library to 

0 0
原创粉丝点击