منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : Next Button
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
ListBox1.SelectedIndex += 1
Else
ListBox1.SelectedIndex = 0
End If

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

اعتقد الحل من خلال الحدث MouseDownRolleyes
جرب هذا الكود
كود :
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
شكرا لك أخى الكريم