什么可以呀?能详细说说吗?比如有一DLL名为ObjdllObjdll有一类为APP,类中有方法CreaInstance 用于打开窗体在主程序中一菜单的代码如下:
Private Sub mnu_Click() Set objApp = New ObjDll.cApp
With objApp
Set .MDIForm = Me
.CreaInstance
End With
end sub这时,我每点击菜单就打开了一个窗体。
我的想法是,能不能在一次打开窗体的操作中,当操作完成就释放objApp对象。然后,在用户重复点击菜单项时,避免打开多个窗体。
Private Sub mnu_Click() Set objApp = New ObjDll.cApp
With objApp
Set .MDIForm = Me
.CreaInstance
End With
end sub这时,我每点击菜单就打开了一个窗体。
我的想法是,能不能在一次打开窗体的操作中,当操作完成就释放objApp对象。然后,在用户重复点击菜单项时,避免打开多个窗体。
解决方案 »
- 求连连看路径算法,拒绝灌水和蹭分的!
- DBGRID如何在CLICK事件中获取当前行对应列的值? 菜鸟在线等
- win98中VB能做出XP风格的界面吗?
- 监视目录,并取得新建的新文件的文件名??!!!!!!!----急!!!!!
- 关于command这个控件的问题
- 怎样控制picturebox里的print出来的字体变大,而不是默认的??
- 在 join 表中如何设置 Unique Table、Unique Schema、Unique Catalog
- 50分请教:如何知道access数据库中表的个数(ado)?
- 我记得SQL语句里有个好象ServerMessage的语句,即返回一个消息,但好象不是这么拼的?
- 如何把一张PIC(格式为.jpg)存入表Categories的picture( 类型为OLE对象)字段中.谢谢!
- 请问一个sql语句读取数据不完整的问题,急!!!
- 请问哪位大哥有cell32.ocx报表控件的id和password,小弟急需,非常感谢!
主程序可以接收此事件
你好,你的方法我试过了,好象不行。我在主程序中定义如下
Private WithEvents objAPP As DictAuto.cAppPrivate Sub objAPP_Over()
Set objApp=Nothingend Sub
DLL中定义事件 Event Over()DLL中有一过程用于关闭窗口如:
Unload frmMain
RaiseEvent Over
但主程序不响应。To csdncb(csdncai) :
你好, 或 [email protected] ,谢谢!
set Obja=Nothing
来释放的
就相当于c++中的失够函数
我的问题解决了,你的思路对我帮助很大,谢谢了!