注册 登录
编程论坛 VB6论坛

MDIForm1怎么检查窗体的Enabled 属性通过菜单把窗体Enabled = False改为Enabled = true

wxflw 发布于 2012-11-17 21:40, 1515 次点击
MDIForm1窗体打开了N个窗体,Enabled 全部= False怎么把他们的属性通过菜单的
Private Sub 改变_Click()功能
全部改为Enabled = true
3 回复
#2
wxflw2012-11-19 07:22
这个怎么没有人帮我想想办法啊?我是在MDIForm1窗体里的一个单击事件中用到的:
看到这个方法可以关闭所有子窗体,但是测试的时候,发现如果子窗体的Enabled 属性= False就无法关闭了!这个怎么弄的?能在下面的代码中加个判断吗?
如果Enabled = False那么Enabled = true
Screen.MousePointer = vbHourglass '关闭所有子窗体
Do While Not (Me.ActiveForm Is Nothing)
Unload Me.ActiveForm
Loop
Screen.MousePointer = vbDefault
#3
ccwu22012-11-19 11:23
不用MDIForm也能做到MDIForm的事,
用MDIForm只是徒增自己的麻烦而已,
加油,等你研究出来再来分享,
如果愿意的话。
#4
wxflw2012-11-20 11:14
For Each GB In MDIForm1.Controls
   If GB.Enabled = False Then
      GB.Enabled = True
   End If
Next
已解决!
1