Iran Developers Network

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

عمل کلیک : تو مثالهای قبلی وقتی رو 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

حالا برنامه رو اجرا کنین ماوس رو روی لیبل بذارین و از روش بردارین