[relsharkawy]

If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
ListBox1.SelectedIndex += 1
Else
ListBox1.SelectedIndex = 0
End If

الكود السابق للآنتقال داخل ListBox1 عنصر واحد كل ضغطة
كيف يمكن الأنتقال داخل ListBox1 بسرعة كبيرة وذلك بإستمرار الضغط على الزر

[Sajad]

السلام عليكم

اعتقد الحل من خلال الحدث MouseDown

[sooriaty03]

جرب هذا الكود

كود :

Public Class Form1
    Dim IsSpacePressed As Boolean = False
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GoNext()
    End Sub

    Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
        If e.KeyCode = 32 Then
            If IsSpacePressed = False Then
                IsSpacePressed = True
            Else
                GoNext()
            End If
        End If
    End Sub
    Private Sub Button1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyUp
        If e.KeyCode = 32 Then
            IsSpacePressed = False
        End If
    End Sub
    Private Sub GoNext()
        If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
            ListBox1.SelectedIndex += 1
        Else
            ListBox1.SelectedIndex = 0
        End If
    End Sub
End Class

[relsharkawy]

شكرا لك أخى الكريم