آیا میتوان برای کد اسکی دو عدد را در یک لحظه تعریف کرد؟؟

[sagggad]

سلام دوستان.من یه پیکچرباکس دارم ومیخوام بازدن دکمه جلوحرکت کنه و اینکار رو باکد زیر انجام میدم:
If e.KeyValue = 38 Then
( PictureBox2.Location = New Point(PictureBox2.Location.X, PictureBox2.Location.Y - 5
End If
وهمینطور دکمه های راست وچپ وعقب روهم تعریف کردم.حالا میخوام وقتی کاربر دو دکمه ی جلو وراست رو نگه میداره پیکچرباکس هم به جلو وهم به راست حرکت کنه .(یعنی همX اون کم شه وهم Y اون)
لطفا راهنماییم کنین.

[Hossis]

( PictureBox2.Location = New Point(PictureBox2.Location.X-5, PictureBox2.Location.Y - 5

این که خیلی ساده بود

[sagggad]

( PictureBox2.Location = New Point(PictureBox2.Location.X-5, PictureBox2.Location.Y - 5

این که خیلی ساده بود

نه دوست من منظورم این نبود من میخوام اگه هم دکمه جلو و هم چپ گرفته شد اینکار انجام شه.اونقدر هم ساده نیست!!!!!!

[habibb]

namespace moraba{public partial class Form1 : Form

    {

        enum Direction { Up, Down, Right, Left, UpRight,UpLeft, DownLeft, DownRight};

        Direction Dir;

        Graphics G;

        Point Po;

        Size Si;

        Rectangle Re;

        Pen Pen_Draw;

        Pen Pen_Clear;

        public Form1()

        {InitializeComponent();}

        private void Form1_Load(object sender, EventArgs e)

        {

            Dir = Direction.Right;

            G = CreateGraphics();

            Po = new Point(300, 300);

            Si = new Size(10, 10);

            Re = new Rectangle(Po, Si);

            Pen_Draw = new Pen(Color.Red,10);

            Pen_Clear = new Pen(BackColor,10);

        }

        private void timer1_Tick(object sender, EventArgs e)

        {

            if (Dir == Direction.Right)

            {

                G.DrawRectangle(Pen_Clear, Re);

                Po.X += 2;                

                Re.Location = Po;

                G.DrawRectangle(Pen_Draw, Re);

            }

            if (Dir == Direction.Left)

            {

                G.DrawRectangle(Pen_Clear, Re);

                Po.X -= 2;

                Re.Location = Po;

                G.DrawRectangle(Pen_Draw, Re);

            }

            if (Dir == Direction.Up)

            {

                G.DrawRectangle(Pen_Clear, Re);

                Po.Y -= 2;

                Re.Location = Po;

                G.DrawRectangle(Pen_Draw, Re);

            }

            if (Dir == Direction.Down)

            {

                G.DrawRectangle(Pen_Clear, Re);

                Po.Y += 2;

                Re.Location = Po;

                G.DrawRectangle(Pen_Draw, Re);

            }

            if (Dir == Direction.UpRight)

            {

                G.DrawRectangle(Pen_Clear, Re);

                Po.Y -= 2;

                Po.X += 2;

                Re.Location = Po;

                G.DrawRectangle(Pen_Draw, Re);

            }

            if (Dir == Direction.UpLeft)

            {

                G.DrawRectangle(Pen_Clear, Re);

                Po.Y -= 2;

                Po.X -= 2;

                Re.Location = Po;

                G.DrawRectangle(Pen_Draw, Re);

            }

            if (Dir == Direction.DownLeft)

            {

                G.DrawRectangle(Pen_Clear, Re);

                Po.Y += 2;

                Po.X -= 2;

                Re.Location = Po;

                G.DrawRectangle(Pen_Draw, Re);

            }

            if (Dir == Direction.DownRight)

            {

                G.DrawRectangle(Pen_Clear, Re);

                Po.Y += 2;

                Po.X += 2;

                Re.Location = Po;

                G.DrawRectangle(Pen_Draw, Re);}}

        private void Form1_KeyDown(object sender, KeyEventArgs e)

        {

            if (e.KeyCode == Keys.Right)

            {

                if (e.Shift)

                    Dir = Direction.UpRight;

                else

                    Dir = Direction.Right;

            }

            if (e.KeyCode == Keys.Left)

            {

                if (e.Shift)

                    Dir = Direction.DownLeft;

                else

                    Dir = Direction.Left;

            }

            if (e.KeyCode == Keys.Up)

            {

                if (e.Shift)

                    Dir = Direction.UpLeft;

                else

                    Dir = Direction.Up;

            }

            if (e.KeyCode == Keys.Down)

            {

                if (e.Shift)

                    Dir = Direction.DownRight;

                else

                    Dir = Direction.Down;}}}}

[rahnema1]

ابتدا به دو اسمبلی یا dll به نام PresetationCore و WindowsBase رفرنس بدهید
سپس در بالای کد این را بگذارید:

Imports System.Windows.Input

بعد یک رویداد KeyDown برای فرم ایجاد کنید به این صورت:

Sub MainFormKeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs)

If Keyboard.IsKeyDown(Key.Up) And Keyboard.IsKeyDown(Key.Right) Then

PictureBox2.Location = New Point(PictureBox2.Location.X+5, PictureBox2.Location.Y - 5 )

ElseIf Keyboard.IsKeyDown(Key.Down) And Keyboard.IsKeyDown(Key.Right) Then

PictureBox2.Location = New Point(PictureBox2.Location.X+5, PictureBox2.Location.Y + 5 )

ElseIf Keyboard.IsKeyDown(Key.Down) And Keyboard.IsKeyDown(Key.Left) Then

PictureBox2.Location = New Point(PictureBox2.Location.X-5, PictureBox2.Location.Y + 5 )

ElseIf Keyboard.IsKeyDown(Key.Up) And Keyboard.IsKeyDown(Key.Left) Then

PictureBox2.Location = New Point(PictureBox2.Location.X-5, PictureBox2.Location.Y - 5 )

ElseIf Keyboard.IsKeyDown(Key.Up) Then

PictureBox2.Location = New Point(PictureBox2.Location.X, PictureBox2.Location.Y - 5 )

ElseIf Keyboard.IsKeyDown(Key.Right) Then

PictureBox2.Location = New Point(PictureBox2.Location.X+5, PictureBox2.Location.Y )

ElseIf Keyboard.IsKeyDown(Key.Down) Then

PictureBox2.Location = New Point(PictureBox2.Location.X, PictureBox2.Location.Y + 5 )

ElseIf Keyboard.IsKeyDown(Key.Left) Then

PictureBox2.Location = New Point(PictureBox2.Location.X-5, PictureBox2.Location.Y )

End If

End Sub