[RaggiTech]

تحريك الصورة: أفقي ,عامودي , قطري


الشكل التالي يوضح المطلوب :

ستتجه الصورة باتجاه الزر المضغوط .

كود :

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'لليمين
PictureBox1.Left = PictureBox1.Left + 5
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'لليسار
PictureBox1.Left = PictureBox1.Left - 5
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'للاعلى
PictureBox1.Top = PictureBox1.Top - 5
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'للاسفل
PictureBox1.Top = PictureBox1.Top + 5
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'قطري
'اسفل لليسار
PictureBox1.Top = PictureBox1.Top + 5
PictureBox1.Left = PictureBox1.Left - 5
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
'قطري
'اعلى لليسار
PictureBox1.Top = PictureBox1.Top - 5
PictureBox1.Left = PictureBox1.Left - 5
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
'قطري
'اعلى لليمين
PictureBox1.Top = PictureBox1.Top - 5
PictureBox1.Left = PictureBox1.Left + 5
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
'قطري
'اسفل لليمين
PictureBox1.Top = PictureBox1.Top + 5
PictureBox1.Left = PictureBox1.Left + 5
End Sub
End Class

حمل المشروع الثالث
نتابع إن شاء الله