Mouse Wheel

[tstsst]

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

If delt = 0 And e.Delta > 0 Then
Exit Sub
End If
If e.Delta < 0 Then
ListView1.Items(delt).Selected = True
delt = delt + 1
End If
If e.Delta > 0 Then
ListView1.Items(delt).Selected = True
delt = delt - 1
End If

متشکر.

[فرید نجفلو]

دوست عزیز می تونید از کد زیر استفاده کنید:

Private Sub ListBox1_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseWheel
If ListBox1.Items.Count = 0 Then Exit Sub
Dim SelIndex = ListBox1.SelectedIndex
SelIndex -= e.Delta / 120
If SelIndex < 0 Then
SelIndex = 0
ElseIf SelIndex > ListBox1.Items.Count - 1 Then
SelIndex = ListBox1.Items.Count - 1
End If
ListBox1.SelectedIndex = SelIndex
End Sub

[tstsst]

If ListView1.Items.Count = 0 Then Exit Sub
Dim SelIndex = ListView1.SelectedItems(0).Index
SelIndex -= e.Delta / 120
If SelIndex < 0 Then
SelIndex = 0
ElseIf SelIndex > ListView1.Items.Count - 1 Then
SelIndex = ListView1.Items.Count - 1
End If
ListView1.Items(SelIndex).Selected = True

متشکر