حرك نموذجك لاي نقطة على الشاشة
السلام عليكم أخي الكريم :

الان نتطرق لشفرة تمكنك من تحريك نموذجك أو نافذة برنامجك الذي لا يحتوي على شريط عنوان ...

التصريح :

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" () Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2

الشفرة :

مثال بسيط على إستخدام هذه الشفرة :

1- إبدأ مشروع جديد .
2- أضف التصريح .
3- الشفرة السابقة الى الحدث MouseMove الخاص بالنموذج .

جرب بريمجك ..

نتمنى لك النجاح و التوفيق دائما أن شاء الله ...