VB6 - حافظ على نافذة التطبيق أعلى التطبيقات الأخرى
VB6 - حافظ على نافذة التطبيق أعلى التطبيقات الأخرى
كيفية الحفاظ على نافذة التطبيق على رأس التطبيقات الأخرى؟
في وحدة عامة
Set Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long، ByVal_hWndInsertAfter Long ، ByVal x As Long ، ByVal y As Long ، ByVal cx As _
Long، ByVal cy As Long، ByVal wFlags As Long) As Long
Const العامة HWND_TOPMOST = -1
Const العامة HWND_NOTOPMOST = -2
Const Public SWP_NOACTIVATE = & H10
Const العامة SWP_SHOWWINDOW = & H40
Const العامة SWP_NOMOVE = 2
Const العامة SWP_NOSIZE = 1
في التشكيل
نموذج فرعي خاص (تحميل)خافت R طالما
R = SetWindowPos (SheetName.hwnd ، HWND_TOPMOST ، 0 ، 0 ، 0 ، 0 ، SWP_NOMOVE أو SWP_NOSIZE)
نهاية الفرعية
استدعاء وظيفة
يجب استدعاء الوظيفة عند تنشيط النموذج. سيسمح البرنامج باستئناف الوظيفة إذا تم تحديد النموذج (حيث يمكن استخدام الوظيفة بواسطة تطبيق آخر).
نموذج فرعي خاص - تنشيط ()خافت R طالما
R = SetWindowPos (SheetName.hwnd ، HWND_TOPMOST ، 0 ، 0 ، 0 ، 0 ، SWP_NOMOVE أو SWP_NOSIZE)
نهاية الفرعية
إزالة الأولوية
SuppPriority الخاصة الفرعية ()خافت R طالما
R = SetWindowPos (NomFeuille.hwnd ، HWND_NOTOPMOST ، 0 ، 0 ، 0 ، 0 ، SWP_NOMOVE أو SWP_NOSIZE)
نهاية الفرعية