خارج نشدن عکس از کادر پنل راهنمایی ؟

[mohsen.fk]

با سلام خدمت اساتید محترم
راهنمایی برای برنامه یک کادر عکس در برنامه می باشد و یک پنل که کادر عکس در داخل پنل است و پایین فرم 4 کلید جهت دار بالا ,پایین,چپ,راست است که وقتی ما کلید های روی صفحه کلید را فشار میدهیم کادر عکس در داخل پنل حرکت میکند حالا در این راهنمایی میخام بدونم با کمک چه فرمانی میشه که کادر عکس از داخل کادر پنا خارج نشه ؟
ممنون میشم راهنمایی کنید !
95507


Public 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.Right
PictureBox1.Left = PictureBox1.Left + 10
Case Keys.Left
PictureBox1.Left = PictureBox1.Left - 10
Case Keys.Up
PictureBox1.Top = PictureBox1.Top - 10
Case Keys.Down
PictureBox1.Top = PictureBox1.Top + 10
End Select
End Sub
End Class

[SHD.NET]

باید قبل هر Case یه دستور ایف بزاری به این صورت . مثلا برای Case اول باید اینو بنویسی :

if pixturebox1.left =< panel1.left then exit sub

بقیه case ها هم به این صورت

[SHD.NET]

الان حال ندارم دستور کاملشو بنویسم ام فکر کنم با این سرنخی که دادم خودت بتونی بقیشو در بیاری

\\\موفق یاشید/// :چشمک:

[mohsen.fk]

الان حال ندارم دستور کاملشو بنویسم ام فکر کنم با این سرنخی که دادم خودت بتونی بقیشو در بیاری

\\\موفق یاشید/// :چشمک:

با سلام خدمت شما دوست عزیز
ممنون از اینکه به سوالم جواب دادین این قطعه کد بالا که گزاشتین فکر میکنم اشتباه است چون توی برنامه قرار دادم برای و اشتباه گرفت کار نکرد میشه کامل توضیح بدین روی کد برنامه توضیح بدین اگه توضیح کامل بدین متشکرم از شما .

[SHD.NET]

بفرما دادش . برنامه رو واست نوشتم و سورسشو گذاشتم اینجا

اگ بازم مشکلی بود همینجا مطرح کن

:چشمک:\\\موفق باشید///:چشمک:

[SHD.NET]

اینم تکه کد :
این کد رو باید جایگزین اون چیزی که خودت نوشتی بکنی :

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.Right
If PictureBox1.Location.X + (PictureBox1.Width * 2) >= Panel1.Location.X + Panel1.Width Then Exit Sub
PictureBox1.Left = PictureBox1.Left + 5
Case Keys.Left
If PictureBox1.Location.X <= Panel1.Location.X Then Exit Sub
PictureBox1.Left = PictureBox1.Left - 5
Case Keys.Up
If PictureBox1.Location.Y <= Panel1.Location.Y Then Exit Sub
PictureBox1.Top = PictureBox1.Top - 5
Case Keys.Down
If PictureBox1.Location.Y + (PictureBox1.Height * 2) >= Panel1.Location.Y + Panel1.Height Then Exit Sub
PictureBox1.Top = PictureBox1.Top + 5
End Select
End Sub

[mohsen.fk]

با تشکر از شما دوست عزیز ممنون هستم از اینکه راهنمایی کردین .