ش | ی | د | س | چ | پ | ج |
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 |
در رویداد بارگزاری فرم با نام لاگین می توان تابعی نوشت که از تابع ShowWondow ویندوزی و قرار دادن مقدار صفر در آرگومان دوم آن برای مخفی کردن پنجره استفاده کند.
Private Sub Form_Load() On Error GoTo Err_Handler SetAccessWindow (SW_SHOWMINIMIZED) DoCmd.Restore Exit_Handler: Exit Sub Err_Handler: MsgBox "Error " & Err.Number & " in Form_Load procedure : " & Err.description Resume Exit_Handler End Sub
SetAccessWindow یک تابع نوشته شده توسط فرد است مثل
SetAccessWindow(frm As Form)
که درون آن از تابع ShowWindow ویندوزی برای مخفی کردن پنجره چه فرم مربوطه چه خود اپلیکیشن استفاده شده.
یک تابع که جوابش Boolean است ازکتابخانه User32 که اظهار آن در ویندوز ۶۴ بیتی با ۳۲ بیتی فرق میکند
BOOL ShowWindow( [in] HWND hWnd, [in] int nCmdShow );
*اما زمان کلیک کردن روی TaskBar پنجره اصلی نمایان میشود
استفاده از تابع SetWindowalongPtrA و بعد استفاده از SW_HIDE برای اپلیکیشن اکسس و سپس SW_SHOW برای فرم لاگین مورد نظر
استفاده از تابع برای تغییر Attribute پنجره مشخص شده
LONG_PTR SetWindowLongPtrA( [in] HWND hWnd, [in] int nIndex, [in] LONG_PTR dwNewLong );
nIndex :
GWL_EXSTYLE=-20
WS_EX_APPWINDOW=&H40000
زمانیکه پنجره یا Window قابل رویت است یک پنجره top-level را داخل نوار وظیفه یا TaskBar می گنجاند.
LONG_PTR GetWindowLongPtrA( [in] HWND hWnd, [in] int nIndex );
خلاصه باید Style را گرفت و موقتاً تغییر داد
lStyle=GetWindowLongPtrA(Login.hWnd,GWL_EXSTYLE) Or WS_EX_APPWINDOW
lStyle در آرگومان dwNewLong قرار داده می شود
می توان در پکیج نصبی از create-desktop-shortcut استفاده کرد برای معرفی Icon مورد نظر.
ویژگی WindowStyle >>> در Style ، فرضا مقدار ۱ : فعال و نمایش کردن پنجره . اگر پنجره مینیمایز یا ماکزیمایز باشد ، دستگاه آن را به سایز و موقعیت اصلی خودش باز می گرداند.
اگر خواندن متن بالا مفید واقع شد لطفا در نظرسنجی حتی خیلی کم هم شرکت نمائید