هل تعلم كيف تحرك كائن ( ليبل - صورة الخ ) في فورم ليس اثناء التصميم وانما بعد فتحه

[عبدالله باقشير]

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

نقول لمن اعتمر
تقبل الله منا ومنكم صالح الاعمال

ونقول لمن ترقى الف مبروك

وعفوا انها جاءت متاخرة

وبعد

هل تعلم كيف تحرك كائن ( ليبل - صورة الخ )
في فورم ليس اثناء التصميم وانما بعد فتحه

نستخدم حدثين لزر الماوس

الاول : اثناء الضغط عليه
لتخزين موقع الضغط طولا وعرضا


 

Private Sub LabelStart_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Xd = X
Yd = Y
End Sub

الثاني : حدث حركة الماوس

بشرط اثناء الضغط على الزر اليسار
Button = 1

الزر اليمين ياخذ القيمة 2
 

Private Sub LabelStart_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then
    With Me.LabelStart
        .Move .Left + (X - Xd), .Top + (Y - Yd)
    End With
End If
End Sub

شاهد المرفق 2003
move.rar

[أبو أنس حاجب]

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

أستاذي الفاضل حفظك الله

وأنا أعلم أنك أنسان مبدع وخلوق ونبيل

أدام الله عليك العافية ورزقك من حيث لا تحتسب وثبتك على طريق الحق والأيمان.

أبو أنس ناصر حاجب

[cat101]

أدام الله عليك العافية ورزقك من حيث لا تحتسب وثبتك على طريق الحق والأيمان.

[طارق محمود]

السلام عليكم

أستاذنا الجليل

دائما جميل - جميل -جميل

ماشاء الله

تبارك الله

زادك الله من فضله وعلمه ورزقك وبارك لك في وقتك وجهدك وأهلك ومن تحب جميعا

تلميذكم

طارق محمود

[الجزيرة]

كم أنت رائع أخي عبد الله

لله درك يا رجل

-----------

هل بإلامكان تثبيت العنصر بعد نقله لموقع آخر وذلك بعد أغلاق الفورم وفتحه من جديد ، بارك الله فيك وفي علمك

[mhrrd]

زادك الله من فضله وعلمه ورزقك وبارك لك في وقتك وجهدك وأهلك ومن تحب جميعا

[محمد مصطفى ابو حمزة]

اشهد الله العظيم انى احبك فيه

[عبدالله المجرب]

السلام عليكم

أستاذنا الجليل

دائما جميل - جميل -جميل

ماشاء الله

تبارك الله

زادك الله من فضله وعلمه ورزقك وبارك لك في وقتك وجهدك وأهلك ومن تحب جميعا

تلميذكم

عبدالله المجرب

[رجب جاويش]

بسم الله ماء شاء الله

ربنا يبارك فيك

ويزيدك من العلم النافع

[احمد فضيله]

استاذي و اخي في الله الاستاذ الكبير العلامه / عبد الله باقشير

بسم الله ما شاء الله

عبقري و علامه بكل ما تحمل الكلمات من معاني

جزاك الله عنا كل خير

[الشهابي]

أستاذنا الكبير/ عبد الله باقشير

جمعة مباركة

الله يحفظكم ويبارك فيكم

منتظرين المزيد من عطائكم الذي لا ينضب

تلميذكم / الشهابي

[muhammadey1]

ماشاء الله

زادك الله من العلم والحلم أكثره

[الـعيدروس]

السلام عليكم

الاستاذ الكبير عبدالله باقشير ( خبور خير ) حفظك الله ورعاك

جزاك الله خير على هذا العمل الجميل المتقن

زادك الله علما ورفعه

تقبل مروري

[عبدالله باقشير]

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

الاخ الفاضل / ابو انس__________ حفظه الله

الاخ الفاضل / cat101__________ حفظه الله

الاخ الفاضل / طارق محمود__________ حفظه الله

الاخ الفاضل / الجزيرة__________ حفظه الله

الاخ الفاضل / mhrrd__________ حفظه الله

الاخ الفاضل / محمد مصطفى ابوحمزة__________ حفظه الله

الاخ الفاضل / عبدالله المجرب__________ حفظه الله

الاخ الفاضل / رجب جاويش__________ حفظه الله

الاخ الفاضل / احمد فضيلة__________ حفظه الله

الاخ الفاضل / الشهابي__________ حفظه الله

الاخ الفاضل / محمدي__________ حفظه الله

الاخ الفاضل / ابو انصار__________ حفظه الله

جزاكم الله خيرا واثابكم بدعائكم واعطاكم بمثلة اضعاف مضاعفة

تقبلوا تحياتي وشكري

[عبدالله باقشير]

كم أنت رائع أخي عبد الله

لله درك يا رجل

-----------

هل بإلامكان تثبيت العنصر بعد نقله لموقع آخر وذلك بعد أغلاق الفورم وفتحه من جديد ، بارك الله فيك وفي علمك

نعم بالامكان

بتخزين موقع الكائن عرضا وطولا اثناء الخروج

واستخدامها اثناء الدخول

ممكن التخزين في متغيرات او خلايا او اسماء .....الخ

حسب ما تريد

شاهد المرفق 2003

move1.rar

[أبو ردينة]

ما شاء الله يا أستاذنا

بارك الله فيك و نفع بعلمك

[عبدالله باقشير]

السلام عليكم

هذا مثال عملي

http://www.officena.net/ib/index.php?showtopic=41620

[Messo09]

بارك الله فيك أخي على ما تبذل و تعطي دمت لنا

[أبو حنــــين]

استاذنا عبدالله باقشير

إبداع لا يأتي إلا من مبدع

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

[محمد الورفلي1]

تميز

[خزاني]

 

سلمت يداك الاستاذ : عبد الله باقشير

[عبدالله باقشير]

السلام عليكم

 

اخي خزاني ....الله يسلمك