السلام عليكم اخوتي في الله كل عام وانتم بخير
من فضلكم اخوتي الكرام اريد ان اعرف كيفية التحريك من نقطة الي اخري ولكن ليس بشكل عمودي او راسي ولكن النقطة الأولي باستخدام صورة في أعلي الشاشة والصورة الثانية في أي مكان آخر ولكن ليس في نفس الإحداثيات
علي سبيل المثال
الصورة الأولي بالخاصيه left تساوي ١
بالخاصيه top تساوي ١
الصورة الثانية left تساوي ١٠٠٠ مثلا
الصورة الثانية top تساوي ١٠٠٠ مثلا
الصورتين ليسوا على خط واحد
االهدف هو التحريك في أي نقطة على الشاشه وليس في نفس الصف او العمود
وجزاكم الله كل خير يا اهل الخبرة
هل من مجيب
يا اخواني انا مبتدا لما لا يوجد رد
اخى الحبيب
انت فى قسم المقالات
وليس قسم أسئلة
يمكنك الاطلاع عليه من الرابط التالى
ثانياً انت قمت بوضع السؤال فى ما يقارب وقت الافطار عن البعض وما شبه
ولم يمر ساعة واحد وقت بعمل رد مرتين
الرجاء الانتباه حتى لا تتحول العضوية الى الحظر
ثالثاً لا يوجد مثال او تفاصيل اكثر لما تريده
فمن الصعب احد يعلم ماذا تريد ان تفعل بضبط
حتى يفيدك الاخرون بالاكواد
لكن ما يمكن افادتك فى الوقت الحالى لما فهمته
يمكنك الاستفادة من هذا الموضوع
كما يمكنك الاطلاع على هذا القسم
تحياتى لك
وتمنياتى لك التوفيق
السلام عليكم و رحمة الله
تم نقل السؤال من قسم المقالات الى قسم الاسئلة .
اضافة الى ما تفضل به الاخ الكريم elgoker هذا مثال بسيط حول كيفية تحريك الادوات على الفورم
علماً بأن الطريقة هي بالسحب و الافلات
اتمنى الاستفادة منه :
مشكورين جدا اخواني الاعزاء على الرد
وببساطة انا اريد وضع صورتين على الفورم وكلما غيرت مكان احد الصورتين ذهبت الأخرى وراءها ببطء وليس بسرعه وفي أي مكان على الفورم
مشكورين اخواني الاحباء جهودكم رائع
السلام عليكم...
إذا افترضنا أن الصورة الأولى هي Image1 و أن الصورة الثانية هي Image2.
1. في القسم العام (General Declarations) الخاص بالـ Form قم بتعريف المتغيرين التاليين:
كود :
Private StartX As Single
Private StartY As Single
2. في إجراء الحدث MouseDown للـ Image1 اكتب الكود التالي:
كود :
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
StartX = X
StartY = Y
End If
End Sub
3. في إجراء الحدث MouseMove للـ Image1 اكتب الكود التالي:
كود :
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
List1.Left = List1.Left + X - StartX
List1.Top = List1.Top + Y - StartY
List2.Left = List2.Left + X - StartX
List2.Top = List2.Top + Y - StartY
End If
End Sub
* كرر نفس الأكواد للحدثين MouseDown و MouseMove لل Image2.
* عند تحريك إحدى الصورتين - بالفأرة - تتحرك الصورة ا×رى بنفس المقدار و في نفس الاتجاه.
أرجو الاستفادة و السلام.
اخواني الاعزاء الكرماء جدا انا احاولا فهم تحريك الصورة مثل لعبة بسيطة اسمها المزرعه
في اللعبة يضغط اللاعب على المكان المختار فتذهب شخصية اللعبة الي اي مكان تختاره سيرا على الاقدام
فانا فشلت في عمل مثل هذا
ولهذا طرحت سؤالي
اتمني سعة الصدر من اخواني الفضلاء
اخواني الفضلاء هل من مجيب
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , هذا مثال وضعت فيه كود إستاذنا القدير ناجي إبراهيم مع بعض الإضافات , أرجوا أن يكون ماتريد .
(15-07-18, 06:39 PM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , هذا مثال وضعت فيه كود إستاذنا القدير ناجي إبراهيم مع بعض الإضافات , أرجوا أن يكون ماتريد .
اشكركم جزيل الشكر أيها العمالقة في لغة vb6
اخوكم في الله خالد