بکارگیری غلطک ماوس در برنامه نویسی - ویژوال بیسیک

[ROSTAM2]

آموزش بکارگیری غلطک ماوس در نرم افزار - برای ToolStripLabel

ویژوال بیسیک


#ToolStrip
#MouseWheel Event

Dim AcceptWheel As Boolean
Private Sub ToolStrip1_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ToolStrip1.MouseWheel
If AcceptWheel = False Then Exit Sub
If e.Delta > 0 Then
' += 1
Else
' -= 1
End If
End Sub


Private Sub CountLabel_MouseEnter(sender As System.Object, e As System.EventArgs) Handles CountLabel.MouseEnter
Me.AcceptWheel = True
End Sub


Private Sub CountLabel_MouseLeave(sender As Object, e As System.EventArgs) Handles CountLabel.MouseLeave
Me.AcceptWheel = False
End Sub

برای دیدن ویدیوی آموزشی لینکو رو بکلیکید:
بکارگیری غلطک ماوس در برنامه نویسی - ویژوال بیسیک (https://www.aparat.com/v/zjoZC)