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

السلام عليكم
عندى listview
ضبط خاصية listview1.cheakboxes=true

كيف اعلم على جميع cheackboxs لجميع العناصر ؟
كيف اتحرك بين العناصر بالكود يعنى انزل عنصر عنصر من خلال بوتون او ان اضع هذه الخاصية فى تايمر وعند الوصول للعنصر الاخير يقف التايمر

ارجو المساعدة جزاكم الله خير

السلام عليكم ورحمة الله وبركاته

كود :

Private Sub ListviewCheckBox(ByVal checkState As Boolean)

        If ListView1.Items.Count > 0 Then

            For Each itm As ListViewItem In ListView1.Items

                itm.Checked = checkState

            Next

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListviewCheckBox(True)

    End Sub

اخى kslawy شكرا جزيلا

إقتباس :Private Sub ListviewCheckBox(ByVal checkState As Boolean)
If ListView1.Items.Count > 0 Then
For Each itm As ListViewItem In ListView1.Items
itm.Checked = checkState
Next
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListviewCheckBox(True)
End Sub

هذا كود لتحديد الشيك بوكس احسسسسسسسسسسسنت

ممكن مساعدة فى كود التنقل بين العناصر بالترتيب يعنى او بالتيمر يعنى يتم تحديد عنصر عنصر بالترتيب بس بشرط يكون الشيك بوكس للعنصر = true

وشكرا للمساعدة

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListView1.HideSelection = False

        If ListView1.Items.Count > 0 Then

            For Each itm As ListViewItem In ListView1.CheckedItems

                itm.Selected = True

            Next

        End If

    End Sub

kslawy كتب :

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListView1.HideSelection = False If ListView1.Items.Count > 0 Then For Each itm As ListViewItem In ListView1.CheckedItems itm.Selected = True Next End If End Sub

اخى الكود لا يعمل للاسف ؟؟

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم جرب هذا الكود - من بعد إذن أخي الحبيب kslawy

كود :

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If ListView1.Items.Count > 0 AndAlso ListView1.SelectedItems.Item(0).Equals(ListView1.Items.Item(ListView1.Items.Count - 1)) = False Then

            ListView1.Items.Item(ListView1.SelectedIndices.Item(0) + 1).Selected = True

            ListView1.Items.Item(ListView1.SelectedIndices.Item(0) + 1).Focused = True

            ListView1.Items.Item(ListView1.SelectedIndices.Item(0)).Selected = False

        Else

            Timer1.Enabled = False

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ListView1.HideSelection = False

        ListView1.Items.Item(0).Selected = True

        Timer1.Interval = 1000

        Timer1.Enabled = True

    End Sub

End Class

بالتوفيق

شكرا اخى الكريم جزاك الله خير
ممكن تعديل بسيط على كود
scrolbar لايتحرك مع العنصر هل يمكن حل هذه المشكلة ؟

طبعا كل كود يكتبه اخى sooriaty03 يجعلنى اقف امامه لادرسه جيدا....لانه بالفعل من كبار المبرمجين.

بالنسبه لى كنت سأضع كود بدون استخدام تايمر بالشكل الاتى:

بعد خطوات اخى kslawy (بمعنى.... بعد وضع التشيك بوكسس فى الليست فيو وتحديدها) .

فى حدث الضغط على الزر اضع هذا الكود

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListView1.SelectedItems.Clear()
        ListView1.Select()
        Dim CheckedItems As ListView.CheckedListViewItemCollection = ListView1.CheckedItems
        If ListView1.Items.Count > 0 Then
            For i = 0 To CheckedItems.Count - 1
                CheckedItems.Item(i).Selected = True
                CheckedItems(i).EnsureVisible()
                Application.DoEvents()
                System.Threading.Thread.Sleep(1000)
                CheckedItems.Item(i).Selected = False

            Next
            CheckedItems.Item(CheckedItems.Count - 1).Selected = True
        End If
    End Sub 

طبعا انا وضعت هذا الكود الان للافاده.

اما بالنسبه للسكرول فى كود اخى sooriaty03
يمكنك فعل الاتى:

بعد هذا السطر

PHP كود :

ListView1.Items.Item(ListView1.SelectedIndices.Item(0) + 1).Selected = True 

ضع هذا الكود

PHP كود :

ListView1.Items.Item(ListView1.SelectedIndices.Item(0) + 1).EnsureVisible() 

اتمنى التوفيق للجميع
تقبلوا تحياتى

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

xebrahimx

kslawy

xebrahimx

kslawy

xebrahimx

sooriaty03

xebrahimx

learning.net