-[ مقدمه]-:

 + براي هر عملي که ميخواهيم کاربر در برنامه ما انجام دهد مي بايست در هر رويداد کد خاصي را بنويسيم تا نسبت به رفتار خاصي پاسخگو باشيم اين رويدادها تعيين ميکنند که برنامه ما نسبت به چه اعمالي حساس باشد کليک کردن يا فشردن دکمه اي خاص.

عمل کليک : تو مثالهاي قبلي وقتي رو Command1 کليک ميکرديم يه عملي انجام ميشد چون ما تو رويداد کليک Command1 اون کدمون رو نوشتيم  حالا اگه بخواهيم رويدادهاي ديگه اي هم هستن مثلا KeyDown ويا MouseMove و ... همه اينها بسته به نوعشون در مقابل رفتار کاربر عمل بخصوصي رو انجام ميدن حالا چند تا کد مينويسيم که با رويدادهاي مختلف آشنا بشيم :

MouseMove:زماني که ماوس رو باتن حرکت کنه Caption باتن عوض ميشه.

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Caption = "Mosee Move !" End Sub

MouseDown: اگر دکمه فشار داده شود (هنوز دستمان روي دکمه ماوس است دکمه بالا نيامده)

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Caption = "Mosee Down !" End Sub

MouseUp : دکمه ماوس  فشار داده شده و به سمت بالا رها مي شود بعد از عمل MouseDown

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Caption = "Mosee Up !" End Sub

رويدادهاي KeyDown وKeyPress وKeyUp هم مثل همين ها هستند تنها تفاوت چون نياز به يک دستور شرطي دارند(با يک دستور شرطي مشخص ميکنيم اگر کليد فشرده شده مثلا Ctrl بود چه عملي انجام شود) بعدا که دستورات شرطي رسيديم ميگم .DragDrop و DragOver هم همچنين.+

ولي حالا ميخواهيم يه برنامه ساده بنويسيم که از کنترل Label استفاده مي شه . يه کنترل ليبل از سمت چپ انتخاب کنين و بندازين تو صفحه فرمتون ! برنامه ما اين کار رو ميکنه -[وقتي ماوس رو ليیل ميره رنگ اون عوض ميشه و Bold هم ميشه مثل همين لينک ها و وقتي هم ماوس رو از روش برمي داريم به حالت اول بر ميگرده ]- خب اول براي رويداد MouseMove اينها رو مينويسيم:

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.ForeColor = &HFF& Label1.FontBold = True End Sub

و در رويداد Form_MouseMove هم اينها رو مينويسيم(همين ها رو کپي و پيست کنين)

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.ForeColor = &H80000007 Label1.FontBold = False End Sub

حالا برنامه رو اجرا کنين ماوس رو روي ليبل بذارين و از روش بردارين -[ ...اينه ! ]

+ نوشتن بازيهاي دو بعدي در ويژوال بيسيک کاري ساده است علاوه بر اينکه خودتان از برنامه نويسي لذت ميبريد تکنيک هاي بسياري را فرا ميگيريد قصد ما هنوز نوشتن برنامه هاي سنگين و استفاده از DirectX نيست (بي خيال ! کار يه نفر نيست.) ميتوان با همين دستورات ساده کارهاي جالبي را انجام داد اگر کمي فلش هم بدانيد ميتوانيد از کامپوننت هاي موجود در ويژوال بيسيک استفاده کنيد (فلش+ويژوال بيسيک=هلو !) ترکيپ اکشن اسکريپت و ويژوال بيسيک برنامه نويسي بازي هاي دو بعدي را به شدت جذاب ميکند.

امروز مي خواهيم يه بازي ساده بنويسيم: (چپ چپ چپ راست راست...)

اگه شما هم اين برنامه رنگين کمان همون عروسکه چرا رو ديده باشين ! (: يه مسابقه داره که يه سري شکلهايي از بالا مي اوفتن پايين حالا بايد هر شکلي يه جايي خاصي هداييت بشه مثلا بادکنک بيفته تو قسمت بادکنکها...(چه قدر هم هيجان انگيزه ! اگه ناراحتي قلبي دارين اصلا نگاه نکنين ممکنه يه هو سکته کنيين !)

 + قسمت اول نوشتن بازي :

اولش ما بايد يه شکل رو تو صفحه قرار بديم که بتونييم اون رو با کليدهاي صفحه کليد به  چپ و راست حرکت بديم خب يه PictureBox رو تو صفحتون قرار بدين خصوصيات تغيير داده شده:

.Appearance = 0
.BorderStyle = 0
Picture = "يه عکس دلخواه"

براي حرکت دادن اون هم به اين صورت عمل ميکنيم بهتره رنگ فرممون هم سفيد کنيم تا کاملا با عکسمون بخوره (البته من که نميدونم تصوير شما چيه اصلا يه منظره براي پيش زمينه انتخاب کنين)

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyLeft Then Picture1.Left = Picture1.Left - 100 End If If KeyCode = vbKeyRight Then Picture1.Left = Picture1.Left + 100 End If End Sub

الان تصوير ما به سمت چپ و راست با کليدهاي چپ و راست به راحتي حرکت ميکنه .فهميدين چي شد؟ ما يه دستور شرطي ساده نوشتيم که کليد رو تشخيص بديم .بعدش اين دستور Picture1.Left = Picture1.Left - 100  عکس ما رو با هر بار فشردن کليد Picture1.Left از حالت قبلي اش از 100  کم ميشه و همين طور ... و ما فکر ميکنيم که اون داره حرکت ميکنه ! به همين سادگي حالا اگه بخواهيم بالا و پايين بره چيکار کنيم ؟ خب فقط بجاي Left از Top استفاده ميکنيم. [ براي  تمرين خودتون کدش رو بنويسين ]

ولي هنوز خيلي چيزها کم داره براي اينکه  تصوير خودش  به سمت پايين بياد و ما کنترلش کنيم به اين صورت عمل ميکنيم : يه Timer رو توي صفحه ميذاريم با Interval برابر با  500ودر رويداد Timer اون مينويسيم :( اين کد باعث ميشه تصوير هر 0.5 ثانيه پايين بياد )

100+Picture1.Top =  Picture1.Top

کد کامل به اين صورته :

Private Sub Timer1_Timer() Picture1.Top = Picture1.Top + 100 End Sub

حالا يک بار برنامه رو اجرا کنين ...خب هنوز خيلي کارها مونده کنترل کردن Picture1 که از صفحه خارج نشه و يه چند تا کد نويسي ديگه و.. جلسه بعدي کاملترش ميکنيم ...بازم برين حال کنين که دارين يه Game Programmer حرفه اي ميشين يه چند وقت ديگه هم فيفا 2005 مينويسين !Hitman چطوره ؟ I.G.I چي...؟ اصلا بيايين با هم بريم شرکت Eidos کار کنيم؟