۱۶
اسفند

جلسه ۲۶ : مدیریت رویدادها یا Event در VB.NET

دسته‌بندی‌ها :

جزئیات
نوع محتواآموزشی

فهرست

مقدمه

وقت بخیر دوستان، با آموزش برنامه نویسی (Visual Basic.‌NET (VB.NET از وب سایت پی وی لرن همراه هستیم. مدیریت رویدادها یا Event در VB.NET را مورد بررسی قرار خواهیم داد.

مدیریت رویدادها یا Event در VB.NET

رویدادها اساساً یک اقدام کاربر مانند فشردن کلید ، کلیک ، حرکت ماوس و غیره یا مواردی مانند اعلان های تولید شده توسط سیستم می باشند. برنامه ها باید هنگام رخداد به رویدادها پاسخ دهند.

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

VB.Net یک زبان رویداد محور است. عمدتا دو نوع رویداد وجود دارد.

رویداد های ماوس
رویدادهای صفحه کلید

مدیریت رویدادهای ماوس

رویدادهای ماوس با حرکات ماوس در فرم ها و کنترل ها اتفاق می افتد. در زیر رویدادهای مختلف ماوس مربوط به کلاس کنترل آمده است.

MouseDown – وقتی فشردن یک دکمه ماوس رخ می دهد.
MouseEnter – هنگامی که نشانگر ماوس وارد کنترل می شود ، رخ می دهد.
MouseHover – این اتفاق می افتد وقتی که نشانگر ماوس روی کنترل شناور می شود.
MouseLeave – هنگامی که نشانگر موس کنترل را ترک می کند رخ می دهد.
MouseMove – هنگامی که نشانگر ماوس بر روی کنترل حرکت می کند رخ می دهد.
MouseUp – هنگامی رخ می دهد که نشانگر ماوس بر روی کنترل باشد و دکمه ماوس آزاد شود.
MouseWheel – هنگامی که چرخ ماوس حرکت می کند و کنترل تمرکز دارد ، رخ می دهد.

هندلرهای رویدادهای ماوس از نوع MouseEventArgs استفاده می کنند. هدف MouseEventArgs برای مدیریت وقایع ماوس استفاده می شود. و خصوصیات زیر را دارد.

دکمه ها یا Buttons – نشانگر فشردن دکمه ماوس است.
کلیک ها یا Clicks – تعداد کلیک را نشان می دهد.
Delta – تعداد مکانیزمی که چرخ ماوس چرخانده شده است.
X – مختصات x کلیک ماوس را نشان می دهد.
Y – مختصات y کلیک ماوس را نشان می دهد.

مثال

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

سه برچسب (labels) ، سه جعبه ی متن (text boxes) و یک دکمه ی کنترل (control) را در فرم اضافه کنید.
به ترتیب خصوصیات متن برچسب ها را به Customer ID, Name و Address تغییر دهید.
به ترتیب ویژگی های نام جعبه های متن را به txtID ، txtName و txtAddress تغییر دهید.
ویژگی متن دکمه را به “Submit” تغییر دهید.
کد زیر را در پنجره ویرایشگر کد خود اضافه کنید.

مثال :

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      ' Set the caption bar text of the form.   
      Me.Text = "tutorialspont.com"
   End Sub

   Private Sub txtID_MouseEnter(sender As Object, e As EventArgs)_
      Handles txtID.MouseEnter
      'code for handling mouse enter on ID textbox
      txtID.BackColor = Color.CornflowerBlue
      txtID.ForeColor = Color.White
   End Sub
   
   Private Sub txtID_MouseLeave(sender As Object, e As EventArgs) _
      Handles txtID.MouseLeave
      'code for handling mouse leave on ID textbox
      txtID.BackColor = Color.White
      txtID.ForeColor = Color.Blue
   End Sub
   
   Private Sub txtName_MouseEnter(sender As Object, e As EventArgs) _
      Handles txtName.MouseEnter
      'code for handling mouse enter on Name textbox
      txtName.BackColor = Color.CornflowerBlue
      txtName.ForeColor = Color.White
   End Sub
   
   Private Sub txtName_MouseLeave(sender As Object, e As EventArgs) _
      Handles txtName.MouseLeave
      'code for handling mouse leave on Name textbox
      txtName.BackColor = Color.White
      txtName.ForeColor = Color.Blue
   End Sub
   
   Private Sub txtAddress_MouseEnter(sender As Object, e As EventArgs) _
      Handles txtAddress.MouseEnter
      'code for handling mouse enter on Address textbox
      txtAddress.BackColor = Color.CornflowerBlue
      txtAddress.ForeColor = Color.White
   End Sub
   
   Private Sub txtAddress_MouseLeave(sender As Object, e As EventArgs) _
      Handles txtAddress.MouseLeave
      'code for handling mouse leave on Address textbox
      txtAddress.BackColor = Color.White
      txtAddress.ForeColor = Color.Blue
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) _
      Handles Button1.Click
      MsgBox("Thank you " & txtName.Text & ", for your kind cooperation")
   End Sub
End Class

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

' Set the caption bar text of the form.

Me.Text = "tutorialspont.com"

End Sub

Private Sub txtID_MouseEnter(sender As Object, e As EventArgs)_

Handles txtID.MouseEnter

'code for handling mouse enter on ID textbox

txtID.BackColor = Color.CornflowerBlue

txtID.ForeColor = Color.White

End Sub

Private Sub txtID_MouseLeave(sender As Object, e As EventArgs) _

Handles txtID.MouseLeave

'code for handling mouse leave on ID textbox

txtID.BackColor = Color.White

txtID.ForeColor = Color.Blue

End Sub

Private Sub txtName_MouseEnter(sender As Object, e As EventArgs) _

Handles txtName.MouseEnter

'code for handling mouse enter on Name textbox

txtName.BackColor = Color.CornflowerBlue

txtName.ForeColor = Color.White

End Sub

Private Sub txtName_MouseLeave(sender As Object, e As EventArgs) _

Handles txtName.MouseLeave

'code for handling mouse leave on Name textbox

txtName.BackColor = Color.White

txtName.ForeColor = Color.Blue

End Sub

Private Sub txtAddress_MouseEnter(sender As Object, e As EventArgs) _

Handles txtAddress.MouseEnter

'code for handling mouse enter on Address textbox

txtAddress.BackColor = Color.CornflowerBlue

txtAddress.ForeColor = Color.White

End Sub

Private Sub txtAddress_MouseLeave(sender As Object, e As EventArgs) _

Handles txtAddress.MouseLeave

'code for handling mouse leave on Address textbox

txtAddress.BackColor = Color.White

txtAddress.ForeColor = Color.Blue

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) _

Handles Button1.Click

MsgBox("Thank you " & txtName.Text & ", for your kind cooperation")

End Sub

End Class

هنگامی که کد فوق با استفاده از دکمه ی Start موجود در نوار ابزار Microsoft Visual Studio کامپایل و اجرا می شود، پنجره زیر را نشان می دهد.

مدیریت رویدادها یا Event در VB.NET – مدیریت رویدادهای ماوس

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

مدیریت رویدادها یا Event در VB.NET – مدیریت رویدادهای ماوس

مدیریت رویدادهای صفحه کلید

در زیر رویدادهای مختلف صفحه کلید مربوط به یک کلاس کنترل آورده شده است.

KeyDown – هنگامی که یک کلید به پایین فشار داده می شود ، رخ می دهد.
KeyPress – هنگامی که یک کلید فشرده می شود ، رخ می دهد. این رویداد فقط برای دکمه های کاراکتری رخ می دهد.
KeyUp – هنگامی که یک کلید رها می شود ، رخ می دهد.

هندلرهای رویدادهای KeyDown و KeyUp استدلالی از نوع KeyEventArgs را دریافت می کنند. این شیء دارای خصوصیات زیر است.

Alt – نشان می دهد که آیا کلید ALT فشار داده شده است.
Control – نشان می دهد که آیا کلید CTRL فشار داده شده است.
Handled – این نشان می دهد که آیا این رویداد مدیریت شده است یا خیر.
KeyCode – کد صفحه کلید را برای این رویداد ذخیره می کند. (کد اسکی دکمه ی فشرده شده را می گیرد)
KeyData – داده های صفحه کلید را برای این رویداد ذخیره می کند. فشرده شدن دکمه های ترکیبی را هم تشخص می دهد.
KeyValue – مقدار عددی صفحه کلید را برای این رویداد ذخیره می کند.
Modifiers – این نشان می دهد که کدام کلیدهای ترکیبی (Ctrl ، Shift و / یا Alt) فشرده می شوند.
Shift – نشان می دهد که کلید Shift فشار داده شده است یا خیر.

هندلرهای رویدادهای KeyDown و KeyUp استدلالی از نوع KeyEventArgs را دریافت می کنند. این شیء دارای خصوصیات زیر است.

Handled – نشان می دهد که آیا رویداد KeyPress انجام شده است.
KeyChar – کاراکتر مطابق با کلید فشرده شده را ذخیره می کند.

مثال

بگذارید با مثال قبلی ادامه دهیم تا نحوه عملکرد رویدادهای صفحه کلید را نشان دهیم. این کد تأیید می کند که کاربر برای شناسه مشتری و سن خود تعدادی شماره وارد می کند.

یک برچسب با متن “Properties” به عنوان “Age” اضافه کنید و کادر متن مربوطه به نام txtAge اضافه کنید.
کدهای زیر را برای دستیابی به رویدادهای KeyUP جعبه متن txtID اضافه کنید.

مثال :

Private Sub txtID_KeyUP(sender As Object, e As KeyEventArgs) _
   Handles txtID.KeyUp
   
   If (Not Char.IsNumber(ChrW(e.KeyCode))) Then
      MessageBox.Show("Enter numbers for your Customer ID")
      txtID.Text = " "
   End If
End Sub

Private Sub txtID_KeyUP(sender As Object, e As KeyEventArgs) _

Handles txtID.KeyUp

If (Not Char.IsNumber(ChrW(e.KeyCode))) Then

MessageBox.Show("Enter numbers for your Customer ID")

txtID.Text = " "

End If

End Sub

کدهای زیر را برای دستیابی به رویدادهای KeyUP از کادر متن txtID اضافه کنید.

مثال :

Private Sub txtAge_KeyUP(sender As Object, e As KeyEventArgs) _
   Handles txtAge.KeyUp
   
   If (Not Char.IsNumber(ChrW(e.keyCode))) Then
      MessageBox.Show("Enter numbers for age")
      txtAge.Text = " "
   End If
End Sub

Private Sub txtAge_KeyUP(sender As Object, e As KeyEventArgs) _

Handles txtAge.KeyUp

If (Not Char.IsNumber(ChrW(e.keyCode))) Then

MessageBox.Show("Enter numbers for age")

txtAge.Text = " "

End If

End Sub

هنگامی که کد فوق با استفاده از دکمه Start موجود در نوار ابزار Microsoft Visual Studio کامپایل و اجرا می شود، پنجره ی زیر را نشان می دهد.

مدیریت رویدادها یا Event در VB.NET – مدیریت رویدادهای صفحه کلید

اگر متن age یا ID را خالی بگذارید یا برخی از داده های غیر عددی را وارد کنید ، یک جعبه پیام هشدار نمایان می شود و متن مربوطه را پاک می کند.

مدیریت رویدادها یا Event در VB.NET – مدیریت رویدادهای صفحه کلید

کلام پایانی

دوستان متشکریم از این که با آموزش vb.net همراه هستید. در این بخش از آموزش ویژوال بیسیک دات نت، مدیریت رویدادها یا Event در VB.NET رو مورد بحث قرار دادیم و به بررسی رویدادهای کیبورد و ماوس ادامه پرداختیم. در بخش بعدی به بررسی Regular Expressions می پردازیم. با وب سایت پی وی لرن همراه باشید.

QR: جلسه ۲۶ : مدیریت رویدادها یا Event در VB.NET

به اشتراک بگذارید

Event در VB.NET ,آموزش VB.Net ,مدیریت رویدادهای صفحه کلید ,مدیریت رویدادهای ماوس

دیدگاه کاربران

تعداد دیدگاه : 0

پی وی لرن – آموزش برنامه نویسی و طراحی وب سایت

دوره های آموزشی آکادمی پی وی لرن (پروژه محور و ویژه بازار کار)

جلسه ۲۶ : مدیریت رویدادها یا Event در VB.NET

مقدمه

مدیریت رویدادها یا Event در VB.NET

مدیریت رویدادهای ماوس

مثال

مدیریت رویدادهای صفحه کلید

مثال

کلام پایانی

لیست مطالب دوره

مطالب ویژه

دسته های اصلی

برگه ها

بلاگ