当最小化一个窗体时，其他的窗体也随着最小化
编号：QA001547
建立日期: 1999年8月20日 最后修改日期：1999年8月20日
所属类别：
Michael:
VB6
Windows 95
1、我的程序中有几个独立的窗体，我希望当我最小化其中的一个窗体时，其他的窗体也随着最小化。我该如何做？
2、我的程序在WINDOWS的托盘中有图标，但最小化窗体后，在任务栏中有任务条。我希望当最小化窗体时，任务栏中没有任务条，仅有托盘中的图标，用户可以通过点击托盘中的图标显示程序窗体。我该如何做。
回答:
第一个问题可以使用下面的代码：
Private Sub Form_Resize()
Dim i
If WindowState = vbMinimized Then
For i = 0 To Forms.Count - 1
If Forms(i).hwnd <> hwnd Then Forms(i).WindowState = vbMinimized
Next
End If
End Sub
如果你的其它窗口ShowInTaskbar为False，也可以考虑将
Forms(i).WindowState = vbMinimized
改为Forms(i).Hide
当然你还需要在Resize事件中加一段恢复窗口大小的代码。
第二个问题可以：
Private Sub Form_Resize()
Dim i
If WindowState = vbMinimized Then
Hide
End If
End Sub
此问题由李海回答。
| |
|
|
| |
|
|
