السلام عليكم اخواني االعزاء كنت طالب منكم خدمة كنت عاوز طريقة من خلاللها اقدر اجعل اي كائن مثل زر امر commandاوpicture box اقدر من خلالها اسحب الفورم وذلك عند الضغط المستمر مثلا علي الكوماند او اداة البكتشر بوكس من خلالها اقدر احرك الفورمة كما اريد مثل عمل شريط العنوان عند الضغط عليه وسحب الفورمة الي اي اتجاه علي ما اعتقد انا رايت فكرة زي دي او كود بس من خلاله تقدر تحرك الفورمة عند الضغط عليها في اي مكان وليس علي شريط العنوان فقط فا يا ريت لو حد يعرف طريقة او كود يخليني لما اضغط علي اداة الصور او زر امر واسحب الفورمة تتحرك معي كما يعمل شريط العنوان وشكرا لكم جيمعا
استخدام اداة لتحريك الفورم عن طريقها كما يفعل Title Bar
مغلق
السلام عليكم
أتفضل يأخ Max bayne
ضع هذا الكود فى General Declarations
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd _ As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Sub ReleaseCapture Lib "user32" ()
ثم ضع هذا الكود فى الأداه المطلوبه
فى حدث Mouse Move
Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2 If Button = 1 Then ReleaseCapture SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
وجرب وقولى ايه الأخبار
Never Give Up You Are Programmer
Being Genius Is The Step Before Madness
Artificial Intelligence Is No Match For Natural Stupidity
مشكوووووووووووور اخي علي مجهودك الرائع
هذا الموضوع مغلق.