منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الأخوة الكرام
السلام عليكم ورحمة وبركاته
ريد كود يجعل واجهة برنامجي فوف نوافذ البرامج عند التشغيل البرنامج ؟؟


وجزكم الله خيرا

وعليكم السلام ورحمة الله وبركاته

أفتح (Module)  وضع فيه هذا الكود :

ثم اذهب لنافذة البرنامج وضع هذا الكود تحت زر التفعيل الذي تريد :

وضع هذا الكود تحت زر الالغاء الذي تريد :

(03-10-22, 01:15 PM)Alexander Max2 كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته

أفتح (Module)  وضع فيه هذا الكود :

كود :

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
       ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
       
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1

ثم اذهب لنافذة البرنامج وضع هذا الكود تحت زر التفعيل الذي تريد :

كود :

Call SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)

وضع هذا الكود تحت زر الالغاء الذي تريد :

كود :

Call SetWindowPos(Form1.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)

اخي العزيز 
السلام عليكم ورحمة وبركاته
الف شكر على تقديم المساعدة ولكم مني جزيل الشكر والتقدير