تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال حول تحريك الصور VB6
#1
السلام عليكم اخوتي في الله كل عام وانتم بخير
من فضلكم اخوتي الكرام اريد ان اعرف كيفية التحريك من نقطة الي اخري ولكن ليس بشكل عمودي او راسي ولكن النقطة الأولي باستخدام صورة في أعلي الشاشة والصورة الثانية في أي مكان آخر ولكن ليس في نفس الإحداثيات 
علي سبيل المثال 
الصورة الأولي بالخاصيه left تساوي ١ 
بالخاصيه top تساوي ١
الصورة الثانية left تساوي ١٠٠٠ مثلا
الصورة الثانية top تساوي ١٠٠٠ مثلا
الصورتين ليسوا على خط واحد 
االهدف هو التحريك في أي نقطة على الشاشه وليس في نفس الصف او العمود
وجزاكم الله كل خير يا اهل الخبرة

هل من مجيب
الرد }}}
تم الشكر بواسطة:
#2
يا اخواني انا مبتدا لما لا يوجد رد
الرد }}}
تم الشكر بواسطة:
#3
اخى الحبيب
انت فى قسم المقالات
وليس قسم أسئلة
يمكنك الاطلاع عليه من الرابط التالى

ثانياً انت قمت بوضع السؤال فى ما يقارب وقت الافطار عن البعض وما شبه
ولم يمر ساعة واحد وقت بعمل رد مرتين

الرجاء الانتباه حتى لا تتحول العضوية الى الحظر

ثالثاً لا يوجد مثال او تفاصيل اكثر لما تريده
فمن الصعب احد يعلم ماذا تريد ان تفعل بضبط
حتى يفيدك الاخرون بالاكواد

لكن ما يمكن افادتك فى الوقت الحالى لما فهمته
يمكنك الاستفادة من هذا الموضوع

كما يمكنك الاطلاع على هذا القسم

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: sendbad100 , Ahmed_Mansoor
#4
السلام عليكم و رحمة الله 
تم نقل السؤال من قسم المقالات الى قسم الاسئلة .
اضافة الى ما تفضل به الاخ الكريم elgoker  هذا مثال بسيط حول كيفية تحريك الادوات على الفورم
علماً بأن الطريقة هي بالسحب و الافلات 
اتمنى الاستفادة منه : 

.rar   Image.move.rar (الحجم : 5.13 ك ب / التحميلات : 34)
الرد }}}
تم الشكر بواسطة: elgokr , sendbad100 , عبدالله الصافي , Ahmed_Mansoor
#5
مشكورين جدا اخواني الاعزاء على الرد 
وببساطة انا اريد وضع صورتين على الفورم وكلما غيرت مكان احد الصورتين ذهبت الأخرى وراءها ببطء وليس بسرعه وفي أي مكان على الفورم 
مشكورين اخواني الاحباء جهودكم رائع
الرد }}}
تم الشكر بواسطة: elgokr , elgokr , Ahmed_Mansoor , Amir_Alzubidy
#6
السلام عليكم...

إذا افترضنا أن الصورة الأولى هي 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.

* عند تحريك إحدى الصورتين - بالفأرة - تتحرك الصورة ا×رى بنفس المقدار و في نفس الاتجاه.

أرجو الاستفادة و السلام.
الرد }}}
تم الشكر بواسطة: elgokr , Ahmed_Mansoor , Ahmed_Mansoor , Amir_Alzubidy
#7
اخواني الاعزاء الكرماء جدا انا احاولا فهم تحريك الصورة مثل لعبة بسيطة اسمها المزرعه
في اللعبة يضغط اللاعب على المكان المختار فتذهب شخصية اللعبة الي اي مكان تختاره سيرا على الاقدام 
فانا فشلت في عمل مثل هذا
ولهذا طرحت سؤالي
اتمني سعة الصدر من اخواني الفضلاء
الرد }}}
تم الشكر بواسطة: elgokr , Ahmed_Mansoor , Ahmed_Mansoor , Amir_Alzubidy
#8
اخواني الفضلاء هل من مجيب
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy , Amir_Alzubidy
#9
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , هذا مثال وضعت فيه كود إستاذنا القدير ناجي إبراهيم مع بعض الإضافات , أرجوا أن يكون ماتريد .


الملفات المرفقة
.rar   MovingPictures.rar (الحجم : 4.48 ك ب / التحميلات : 10)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: elgokr , Immortal73 , Immortal73 , Amir_Alzubidy
#10
(15-07-18, 06:39 PM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , هذا مثال وضعت فيه كود إستاذنا القدير ناجي إبراهيم مع بعض الإضافات , أرجوا أن يكون ماتريد .

اشكركم جزيل الشكر أيها العمالقة في لغة vb6
اخوكم في الله خالد
الرد }}}
تم الشكر بواسطة: elgokr , elgokr , Amir_Alzubidy , Ahmed_Mansoor , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 417 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  إعادة تحجيم الصور أبو خالد الشكري 2 172 21-01-24, 09:12 AM
آخر رد: أبو خالد الشكري
  سؤال بخصوص الحلقات التكرارية / اضافة درجة بشروط haiderkh 14 4,068 19-01-24, 02:39 PM
آخر رد: cls
  [vb6.0] سؤال كيف يتم تحديد عدد مرات تنصيب الملف التنفيذي لبرنامج Hassan.syria 2 193 02-01-24, 10:07 AM
آخر رد: Hassan.syria
  سؤال بخصوص الكتيف ربورت abde6726 2 324 20-11-23, 10:54 AM
آخر رد: abde6726
  [vb6.0] سؤال حول كيفية عمل زر كوماند داخل عمود Msflexgrid جلال اليمني 5 551 14-09-23, 05:12 AM
آخر رد: جلال اليمني
  [vb6.0] سؤال حول تحويل الرقم لعملة في Msflexgrid جلال اليمني 3 408 28-08-23, 07:19 PM
آخر رد: جلال اليمني
  سؤال عن البحث بجدولين مختلفين ziadshhab 1 346 03-06-23, 10:35 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] اكثر من سؤال حول كريستال ريبورت ؟؟ Microformt 0 477 20-05-23, 09:54 PM
آخر رد: Microformt
  [vb6.0] سؤال في فليكس جريد tighrmte 3 566 18-02-23, 10:46 PM
آخر رد: tighrmte

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم