[已解决]WindowState属性的效果怎么看不出来？

爱疯

Sub m1()
'    Debug.Print Application.VBE.Windows(9).Caption
    Application.VBE.Windows(9).WindowState = vbext_ws_Minimize
End Sub

我想看它怎么变小，运行后，没发现哪儿变小呀，这是为什么？

谢谢！

03p0VQS4.rar (9.36 KB, 下载次数: 0)

2010-3-19 22:47 上传

点击文件名下载附件
WindowState属性的效果怎么看不出来？

最佳答案

月排行榜 / 总排行榜

不看不看

2010-3-20 00:49

这样看得到 统统小

Sub xx()
For i = 1 To Application.VBE.Windows.Count
Application.VBE.Windows(i).WindowState = 1
Next
End Sub

跳转到最佳答案楼层

不看不看

这样看得到 统统小

Sub xx()
For i = 1 To Application.VBE.Windows.Count
Application.VBE.Windows(i).WindowState = 1
Next
End Sub

开辆小富康

好久没看到不看不看了

爱疯

谢谢不看！

在不越界的情况下，因为最小化的（模块）窗口不是激活的，所以看不到。

Sub test2()
    Dim x

    For Each x In Application.VBE.Windows
        Debug.Print x.Caption
    Next x
End Sub

新增模块后，windows(i)的顺序也乱了，再用去区分某个窗口就不准确了[em06]