Minimize و Restore چند فرم

[Abbas Arizi]

چه جوری میشه چند تا فرم رو که بصورت Modal روی هم قرار دارند با هم Minimize کرد و بعد با هم Restore کرد.

[S.Azish]

??VB




Option Explicit

Private Sub Form_Click()

'Minimises all forms
Dim frmTemp As Form

For Each frmTemp In Forms
frmTemp.WindowState = vbMinimized
Next

End Sub

Private Sub Form_Resize()

'Returns them to normal
Dim frmTemp As Form

If Me.WindowState = vbNormal Then
For Each frmTemp In Forms
frmTemp.WindowState = vbNormal
Next
End If

End Sub

[Abbas Arizi]

با تشکر.
اما مشکل من اینه که این فرمها فقط یکیشون یعنی اون که زیر همه قرار داره ShowInTaskabr داره و وقتی همه رو Minimize میکنم فقط اون توی Taskbar هست و برای Restore نمیتونم روی اون کلیک کنم چون فرمهای دیگه روی اون قرار دارند.

[S.Azish]

خوب این یک مشکل منطقیه بجای یک مشکل برنامه نویسی!

[Abbas Arizi]

آخه توی بعضی برنامه ها از این کارا کردن. احتمالا از یه کلک استفاده کردن.