Minimaize

[smderfan]

در صورتی که بخوام کلیه پنجره های فعال ویندوز رو Minimaize بشه از چه کدی باید استفاده کنم.

[صبا9841]

منظورت فرمهاست؟
پنجره ویندوز توی اکسس کجاست؟

[Payam Moradi]

در صورتی که بخوام کلیه پنجره های فعال ویندوز رو Minimaize بشه از چه کدی باید استفاده کنم.
دوست عزیز این کار شما باید با وی بی انجام بشه. بهتره در بخش ویژال بیسک 6 همین سوال رو مطرح کنی زودتر به جواب میرسی. البته منم آرشیو رو میگردم تا بتونم برات پیدا کنم.:چشمک:

بفرما چون شمایید گشتم و پیدا کردم.:چشمک:
یک ماژول جدید (Module) در پروژه اضافه کن و این کدها رو درش قراربده و توابع MinimizeAll و RestoreAll رو از هر کجا که دوست داری صدا بزن. البته قبل از کدی که میخواد فرمی رو باز کنه قرار بده.


Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _
As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long

Private Const WM_COMMAND As Long = &H111
Private Const MIN_ALL As Long = 419
Private Const MIN_ALL_UNDO As Long = 416

Public Sub MinimizeAll()

Dim lngHwnd As Long

lngHwnd = FindWindow("Shell_TrayWnd", vbNullString)
Call PostMessage(lngHwnd, WM_COMMAND, MIN_ALL, 0&)

End Sub

Public Sub RestoreAll()

Dim lngHwnd As Long

lngHwnd = FindWindow("Shell_TrayWnd", vbNullString)
Call PostMessage(lngHwnd, WM_COMMAND, MIN_ALL_UNDO, 0&)

End Sub

اینم کدش در اکسس برای باز کردن فرم:

MinimizeAll
DoCmd.OpenForm "Form2", acNormal, , , , acDialog
به جای Form2 اسم فرم خودت رو بگذار

موفق باشید:چشمک:

[seeker]

برای مینیمایز پنجره فعال
DoCmd.Minimize

[Payam Moradi]

برای مینیمایز پنجره فعال
DoCmd.Minimize
درسته این کد برای مینی کردن پنجره فعال در خود اکسس هست. دوستمون کل پنجره های ویندوز رو میگه!

[Payam Moradi]

MinimizeAll در فرم خطا میده ....
بی خیال آقا.
لطفا بگید چه خطایی.
نمونه رو بردارید و اجرا کنید.

[smderfan]

شرمند پوپا جان ؛
من نام ماژول رو هم MinimizeAll قرار داده بودم که خطا می داد.
با تشکر