لو سمحتو اريد كود لما أضغط على زر يحدد لي أخر سطر في ال ListView

السلام عليكم...

استعمل الكود التالي:

Private Sub Command1_Click()
    Set ListView1.SelectedItem = ListView1.ListItems(ListView1.ListItems.Count)
    ListView1.SelectedItem.EnsureVisible
End Sub

نرجو الاستفادة و السلام.

بارك الله فيك أخي العزيز najy_zl

والله يوفقك في دنياك

أخي ممكن أيضاً كود إذا كنت اريد تحديد أول سطر

أخي ممكن أيضاً كود إذا كنت اريد تحديد أول سطر

وهل يوجد كود إذا ضغت عليه ينزل مرة واحدة

وأيضاً كود إذا ضغت عليه يطلع مرة واحدة

يعني مثل زر أعلى و زر أسفل يعني يحرك التحديد للأعلى أول للأسفل

أنتظر ردك بارك الله فيك

أخي ممكن أيضاً كود إذا كنت اريد تحديد أول سطر

وهل يوجد كود إذا ضغت عليه ينزل مرة واحدة

وأيضاً كود إذا ضغت عليه يطلع مرة واحدة

يعني مثل زر أعلى و زر أسفل يعني يحرك التحديد للأعلى أول للأسفل

أنتظر ردك بارك الله فيك

السلام عليكم...

المعذرة لأني لا أدخل المنتدى في رمضان إلا ليلاً.

استخدم الأكواد التالية. ضع كل كود في الزر الخاص به كما هو مبين:

    ' تحديد أول بند
    If ListView1.ListItems.Count = 0 Then Exit Sub
    Set ListView1.SelectedItem = ListView1.ListItems(1)
    ListView1.SelectedItem.EnsureVisible

    ' تحديد البند السابق - تحريك للأعلى
    Dim AIndex As Long

    If ListView1.ListItems.Count = 0 Then Exit Sub
    AIndex = ListView1.SelectedItem.Index
    If AIndex > 1 Then
        Set ListView1.SelectedItem = ListView1.ListItems(AIndex - 1)
        ListView1.SelectedItem.EnsureVisible
    End If

    ' تحديد البند التالي - تحريك للأسفل
    Dim AIndex As Long

    If ListView1.ListItems.Count = 0 Then Exit Sub
    AIndex = ListView1.SelectedItem.Index
    If AIndex < ListView1.ListItems.Count Then
        Set ListView1.SelectedItem = ListView1.ListItems(AIndex + 1)
        ListView1.SelectedItem.EnsureVisible
    End If

    ' تحديد آخر بند
    If ListView1.ListItems.Count = 0 Then Exit Sub
    Set ListView1.SelectedItem = ListView1.ListItems(ListView1.ListItems.Count)
    ListView1.SelectedItem.EnsureVisible

* و هذه إضافة من عندي، و هي أنه يمكنك تحديد أي بند بتحديد رقمه كالتالي:

1. أضف مربع نص TextBox و زر أمر Command

2. اكتب الكود التالي في زر الأمر:

Private Sub Command5_Click()
    On Error GoTo NoItemFound

    If ListView1.ListItems.Count = 0 Then Exit Sub
    If Not IsNumeric(Text1.Text) Then Exit Sub
    Set ListView1.SelectedItem = ListView1.ListItems(CLng(Text1.Text))
    ListView1.SelectedItem.EnsureVisible

    Exit Sub
NoItemFound:
    MsgBox "لا يوجد بند بهذا الرقم", vbCritical Or vbMsgBoxRight Or vbMsgBoxRtlReading
End Sub

3. عند التشغيل اكتب رقم البند الذي تريد الانتقال إليه في مربع النص و انقر الزر.

نرجو الاستفادة و السلام.

الله يوفقك أخي najy_zl

ويعطيك ألف عافية

والله يرزقك من حيث لا تحتسب