تحريك النافذة عند النقر والسحب فوق الفورم أو أي عنصر

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تحريك النافذة عند النقر والسحب فوق الفورم أو أي عنصر

مُساهمة من طرف Coptic_Programmer في الجمعة يوليو 03, 2009 10:06 am

1- أنشيء فورم وضع فيه أداة CommandButton .
2- أعلن عن المتغيرات التاليه في قسم General :

Dim vX, vY
Dim vM As Boolean

3- إكتب الشفره التاليه في حدث MouseDown للأداة Command1

vX = X
vY = Y
vM = True

4- ثم أضف التالي في الحدث MouseMove للأداة Command1

Dim frmX, frmY
frmX = Form1.Left + (X - vX)
frmY = Form1.Top + (Y - vY)
If vM = True Then
Form1.Move frmX, frmY
End If

- أخيراً أضف الكود التالي للحدث MouseUp التابع للأداة Command1

Vm = False

لاحظ أنه يمكنك تغيير موقع زر أوصورة بنفس الطريقة ولاكن أكتب إسم العنصر الذي تريد تحريكه بدلاً من Form1

Coptic_Programmer
مشرف برامج
مشرف برامج

المساهمات : 43
تاريخ التسجيل : 29/10/2008

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى