آموزش بکارگیری غلطک ماوس در نرم افزار - برای 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
برای دیدن ویدیوی آموزشی لینکو رو بکلیکید:
بکارگیری غلطک ماوس در برنامه نویسی - ویژوال بیسیک