[已解决]求助把12个useform 循环关闭，怎么写

CCTV20092009

For i = 1 To 12
UserForm(i).Hide
Next
这个代码运行错误，求代替产品

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-12-21 09:39

类名UFO

1. Private m As Object
   
2. Sub Hu(k As Object)
   
3.     Set m = k
   
4.     m.Hide
   
5. End Sub

复制代码

过程

1. Sub HideAM()
   
2.     Dim i As Byte, T(11) As UFO
   
3.     For i = 0 To 11
   
4.         Set T(i) = New UFO
   
5.         T(i).Hu UserForms(i)
   
6.     Next i
   
7. End Sub

复制代码

'需这12个窗体处于运行

跳转到最佳答案楼层

liuguansky

END
就可以了。

Select

建议上附件，
好让别人全面判断问题，测试，回复

liuguansky

UserForms集合可以直接引用
需有窗体处于运行状态
For i = 0 To 11
UserForms(i).Hide
Next

CCTV20092009

求用类  关闭的，，。。。

liuguansky

类名UFO

1. Private m As Object
   
2. Sub Hu(k As Object)
   
3.     Set m = k
   
4.     m.Hide
   
5. End Sub

复制代码

过程

1. Sub HideAM()
   
2.     Dim i As Byte, T(11) As UFO
   
3.     For i = 0 To 11
   
4.         Set T(i) = New UFO
   
5.         T(i).Hu UserForms(i)
   
6.     Next i
   
7. End Sub

复制代码

'需这12个窗体处于运行