استفاده از توابع ویندوز API
در اکسس تابعی برای این موضوع در نظر گرفته نشده ولی میشود با این توابع و هندل کردن ویندو پنجره ای را بست کامند باتن هایی که در Title Bar هست را برداشت مثل خاصیت MinMax Button =No در پراپرتی شیت فرم اکسس ، یا تغییر پوزیشن نمایش Msgbox سیستمی و یا Icon را در Title Bar فرم انداخت ویا پوزیشن پنجره را تغییر داد و خیلی کارهای دیگر یا حتی گرفتن تکست در Title Bar که همان Caption هست و یا تغییر
Declare Function ShowWindow Lib "User32" ( Byval Hwnd As Long , Byval ncmdShow As Long ) As Long
نحوه ی نگارش تابع در ( Win64 و Win32 ) فرق میکند و باید در Win64 قبل از فانکشن Ptrsafe را قرار داد و کل دیتا تایپ Long در تابع به LongPtr تبدیل شوند اگر باید در هر دو 32 بیت و 64 کار کند باید از if Win64 Then # و Else End If استفاده کرد که قبل از Else با PtrSafe و LongPtr طبق روش بالا و برای بعد از Else همان تابع بدون PtrSafe و Long قرار می گیرد
Hwnd نام کنترل مثلا فرم یا اپلیکیشن اکسس ؛ مثلا در اکسس
نکته : قبل از گذاشتن تابع زیر جهت مخفی شدن پنجره ی اصلی اکسس حواستان باشد در رویداد کلوز فرم حتما دستور خروج از اپلیکیشن که Quit هست با Docmd را بدهید وگرنه برای بستن باید از Task Manager ویندوز استفاده کنید چون برنامه ی شما هنوز باز است و ویندوز تنها با دریافت مسیج حاصل از زدن دکمه ی کلوز پنجره ی اصلی اپلیکیشن اکسس را خواهد بست !!!
ShowWindow Application.hWndaccessApp , 0
Hide 0
Normal 1
Minimized 2
Maximized 3
درباره این سایت