您的位置：程序门 -> vb -> 非技术类

activeform 问题，急！！！！！！！

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

activeform 问题，急！！！！！！！

发表于：2007-05-04 17:32:13 楼主

dim child as form
set child = frmlog.activeform
if （not child is nothing) then
unload child
end if
frmlog为主窗体，即mdiform类型．
其它字窗体为普通的form
我想每次只能运行一个子窗口，但程序一运行就会出错，提示＂只允许一个ｍｄｉ窗体．＂现在的情况是子窗体还没调用就出错了．
如何改正此错误呢？？
还有如何调整子窗体的大小呢？？

发表于：2007-05-04 21:12:561楼得分:0

运行子窗体方法:（假设要装入的子窗体的窗体名为frmview, frmview的caption值为: "子窗体 ")
当前frmlog窗体（mdi窗体)上,加入一command控件,在其click事件中加入如下代码:
dim frm as form
for each frm in forms
if frm.caption = "子窗体 " then
unload frm
end if
next frm
frmview.show
若有疑问:qq:398175615

发表于：2007-05-09 11:04:392楼得分:0

路过~~

发表于：2007-05-12 19:31:553楼得分:0

该回复于2007-12-28 17:55:36被管理员或版主删除

下一篇：散分了,新开的论坛,希望大家前去捧场
上一篇：有哪些api函数在windows xp下支持而vista不支持？

其他资讯