کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

چک کردن باز بودن فرم بصورت Form Dialog و شفافیت یا کدورت پنجره



استفاده از تابع ویندوزی GetwindowLongA


win32/api/winuser/getwindowlonga

win32/winmsg/extended-window-styles  


GWL_EXSTYLE=-20

WS_EX_DLGMODALFRAME =&H1


GetWindowLongA hWnd,nIndex(GWL_EXSTYLE)


LIB "USER32"


برای TransParent یا شفاف کردن دیالوگ باکس می توانید از مطلب در لینک زیر که کاملا گویا است بهره ببرید.



using-layered-windows

کدر شدن یا شفاف شدن یک پنجره لایه ای را تنظیم میکند. 

winuser-setlayeredwindowattributes

یک آرگومان بنام alpha دارد اگر صفر باشد پنجره کاملا شفاف است زمانیکه مقدار آن 255 شود پنجره کدراست.

When bAlpha is 0, the window is completely transparent. When bAlpha is 255, the window is opaque.


البته پیشنهاد نمیشه اینکار چون  ممکن است خطا بدهد و هک کردن پنجره بسیار آسان است.



در ویندور 8 استایل Extended Layered برای پنجره های بالایی و زیر پنجره ها پشتیبانی می شود ولی در نسخه های قبل تر فقط به پنجره های بالاتر اعمال می شود.کسانیکه پنجره ویندوزی می سازندبا این مفاهیم آشنا هستند.

Windows 8:  The WS_EX_LAYERED style is supported for top-level windows and child windows. Previous Windows versions support WS_EX_LAYERED only for top-level windows.




دوستان لطفا در نظرسنجی شرکت فرمائید و در صورت لزوم نظر بدهید.











نظرات 0 + ارسال نظر
برای نمایش آواتار خود در این وبلاگ در سایت Gravatar.com ثبت نام کنید. (راهنما)
ایمیل شما بعد از ثبت نمایش داده نخواهد شد