عندما تحرك الصوره الى اليمين تخرج من حدود النافذه 😒
 
المطلوب منكم (الواجب)  😲
 
ان تجعل الصوره لا تخرج من حدود النافذه اريد ان ارى الأفكار
 
اشوفكم غداً

السلام عليكم

هناك مشكلتان عند أولا لم أفهم ماذا تقصد بهذه العبارة



ثانيا قمت بتطبيق ماقلته لكن ظهرت لي أخطات وهذه صورة توضحها





أما بالنسبة للواجب فأرجو مساعدتي أولا في هذه المشكلة لأستطيع حله

السلام عليكم
حدث الضغط على المفاتيح (الكيورد) لوحة المفاتيح


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

selectcase

ضع مسافه بين select  و  caseوهذا الكود مره اخرى اكتبه كما هو

 Select Case e.KeyCode 
        Case Keys.Right  
              PictureBox1.Left += 10 
        Case Keys.Left  
              PictureBox1.Left -= 10  
        Case Keys.Up         
              PictureBox1.Top -= 10   
        Case Keys.Down
              PictureBox1.Top += 10
  End Select

تم التنفيذ...
بس هنال شي لم افهمه في الكود هو

e.KeyCode

بالنسبه للواجب😄

علي ما اعتقد انه يمكن تحديد مكان التحرك مثلا النافذه 600*800

تقوم بكتابه شرط if لكي يمنع الخروج خارج هذه الاحداثيات

تمام بس المهم التنفيذ

هسهل الواجب شويه
بعد جملة

PictureBox1.Left += 10

 
اكتب

If PictureBox1.Left > 750 Then
   PictureBox1.Left = 750

EndIf

المطلوب فعل نفس الشئ شمال وفوق وتحت يعنى منع الصوره من الخروج خارج الإطار. 
واشوفكم بعد يومين

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

وهذا هو الكود بعد التنفيذ

Class Form1



    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        Select Case e.KeyCode

            Case Keys.Up
                PictureBox1.Top -= 10
                If PictureBox1.Top < 50 Then PictureBox1.Top = 50
            Case Keys.Down
                PictureBox1.Top += 10
                If PictureBox1.Top > 200 Then PictureBox1.Top = 200
            Case Keys.Left
                PictureBox1.Left -= 10
                If PictureBox1.Left < 50 Then PictureBox1.Left = 50
            Case Keys.Right
                PictureBox1.Left += 10
                If PictureBox1.Left > 200 Then PictureBox1.Left = 200
        End Select
    End Sub

عفوا اخي الكريم

بالنسبة لكتابة الكود أنا لم أفهم شيء كل اللي فعلته نسخ ولصق

هل ستقوم بشرح الكود لنا؟ أم في مرحلة أخرى؟

السلام عليكم



تمام,
  استنتجت من الكود اللى انت كاتبه انك لم تعدل حجم النافذه الى 800*600 عدلها كى نوحد المشروع ثم عدل الكود ليناسب الأبعاد الجديده

الفكره بسيطه ان الدب له موقع على النافذه وكل ما تحرك الدب يتغير الموقع فنحن هنا قلنا للبرنامج عندما يصل الموقع الى حدود النافذه (وهذا تعرفة من  الأبعاد التى حددتها للنافذه اى لو ان النافذه عرضها 800 كما فى مثالنا سيكون الموقع 800 - عرض صندوق الصور= 750)  فعندما يصل الدب الى النقطه 750 فتكون النقطه الجديده 750 فلا يتحرك وان اردت ان يبدأ من الجها الأخرى  تجعل النقطه الجديده = 0 اى اول النافذه