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

[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

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