+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] سؤال حول تحريك الصور VB6 (/showthread.php?tid=25340)
سؤال حول تحريك الصور VB6 - Immortal73 - 11-06-18
السلام عليكم اخوتي في الله كل عام وانتم بخير
من فضلكم اخوتي الكرام اريد ان اعرف كيفية التحريك من نقطة الي اخري ولكن ليس بشكل عمودي او راسي ولكن النقطة الأولي باستخدام صورة في أعلي الشاشة والصورة الثانية في أي مكان آخر ولكن ليس في نفس الإحداثيات
علي سبيل المثال
الصورة الأولي بالخاصيه left تساوي ١
بالخاصيه top تساوي ١
الصورة الثانية left تساوي ١٠٠٠ مثلا
الصورة الثانية top تساوي ١٠٠٠ مثلا
الصورتين ليسوا على خط واحد
االهدف هو التحريك في أي نقطة على الشاشه وليس في نفس الصف او العمود
وجزاكم الله كل خير يا اهل الخبرة
هل من مجيب
RE: افيدوني يرحمكم الله - Immortal73 - 11-06-18
يا اخواني انا مبتدا لما لا يوجد رد
RE: افيدوني يرحمكم الله - elgokr - 11-06-18
اخى الحبيب
انت فى قسم المقالات
وليس قسم أسئلة
يمكنك الاطلاع عليه من الرابط التالى
ثانياً انت قمت بوضع السؤال فى ما يقارب وقت الافطار عن البعض وما شبه
ولم يمر ساعة واحد وقت بعمل رد مرتين
الرجاء الانتباه حتى لا تتحول العضوية الى الحظر
ثالثاً لا يوجد مثال او تفاصيل اكثر لما تريده
فمن الصعب احد يعلم ماذا تريد ان تفعل بضبط
حتى يفيدك الاخرون بالاكواد
لكن ما يمكن افادتك فى الوقت الحالى لما فهمته
يمكنك الاستفادة من هذا الموضوع
كما يمكنك الاطلاع على هذا القسم
تحياتى لك
وتمنياتى لك التوفيق
RE: سؤال حول تحريك الصور VB6 - Immortal73 - 20-06-18
مشكورين جدا اخواني الاعزاء على الرد
وببساطة انا اريد وضع صورتين على الفورم وكلما غيرت مكان احد الصورتين ذهبت الأخرى وراءها ببطء وليس بسرعه وفي أي مكان على الفورم
مشكورين اخواني الاحباء جهودكم رائع
RE: سؤال حول تحريك الصور VB6 - Najy Ibraheem - 20-06-18
السلام عليكم...
إذا افترضنا أن الصورة الأولى هي Image1 و أن الصورة الثانية هي Image2.
1. في القسم العام (General Declarations) الخاص بالـ Form قم بتعريف المتغيرين التاليين:
كود :
Private StartX As Single
Private StartY As Single2. في إجراء الحدث 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 Sub3. في إجراء الحدث 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.
* عند تحريك إحدى الصورتين - بالفأرة - تتحرك الصورة ا×رى بنفس المقدار و في نفس الاتجاه.
أرجو الاستفادة و السلام.
RE: سؤال حول تحريك الصور VB6 - Immortal73 - 12-07-18
اخواني الاعزاء الكرماء جدا انا احاولا فهم تحريك الصورة مثل لعبة بسيطة اسمها المزرعه
في اللعبة يضغط اللاعب على المكان المختار فتذهب شخصية اللعبة الي اي مكان تختاره سيرا على الاقدام
فانا فشلت في عمل مثل هذا
ولهذا طرحت سؤالي
اتمني سعة الصدر من اخواني الفضلاء
RE: سؤال حول تحريك الصور VB6 - Immortal73 - 14-07-18
اخواني الفضلاء هل من مجيب
RE: سؤال حول تحريك الصور VB6 - Ahmed_Mansoor - 15-07-18
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , هذا مثال وضعت فيه كود إستاذنا القدير ناجي إبراهيم مع بعض الإضافات , أرجوا أن يكون ماتريد .
RE: سؤال حول تحريك الصور VB6 - Immortal73 - 17-07-18
(15-07-18, 06:39 PM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , هذا مثال وضعت فيه كود إستاذنا القدير ناجي إبراهيم مع بعض الإضافات , أرجوا أن يكون ماتريد .
اشكركم جزيل الشكر أيها العمالقة في لغة vb6
اخوكم في الله خالد
RE: سؤال حول تحريك الصور VB6 - alipro - 02-08-18
Picturebox1.right=+1
يكتب في حدث الtick للتايمر