View Full Version : Minimize و Restore چند فرم
Abbas Arizi
سه شنبه 25 شهریور 1382, 21:51 عصر
چه جوری میشه چند تا فرم رو که بصورت Modal روی هم قرار دارند با هم Minimize کرد و بعد با هم Restore کرد.
S.Azish
سه شنبه 25 شهریور 1382, 23:39 عصر
??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
چهارشنبه 26 شهریور 1382, 01:09 صبح
با تشکر.
اما مشکل من اینه که این فرمها فقط یکیشون یعنی اون که زیر همه قرار داره ShowInTaskabr داره و وقتی همه رو Minimize میکنم فقط اون توی Taskbar هست و برای Restore نمیتونم روی اون کلیک کنم چون فرمهای دیگه روی اون قرار دارند.
S.Azish
چهارشنبه 26 شهریور 1382, 14:08 عصر
خوب این یک مشکل منطقیه بجای یک مشکل برنامه نویسی!
Abbas Arizi
چهارشنبه 26 شهریور 1382, 14:11 عصر
آخه توی بعضی برنامه ها از این کارا کردن. احتمالا از یه کلک استفاده کردن.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.