首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

ActiveForm 有关问题,

2012-01-15 
ActiveForm 问题,急!!!!!!!DimchildAsFormSetchildFrmLog.ActiveFormIf(NotchildIsNothing)ThenUnloadchi

ActiveForm 问题,急!!!!!!!
Dim   child   As   Form
Set   child   =   FrmLog.ActiveForm
If   (Not   child   Is   Nothing)   Then
Unload   child
End   If
FrmLog为主窗体,即MDIForm类型.
其它字窗体为普通的Form
我想每次只能运行一个子窗口,但程序一运行就会出错,提示"只允许一个MDI窗体."现在的情况是子窗体还没调用就出错了.
如何改正此错误呢??
还有如何调整子窗体的大小呢??


[解决办法]
运行子窗体方法:(假设要装入的子窗体的窗体名为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
[解决办法]
路过~~

热点排行