منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
listview cheakbox ?? - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : listview cheakbox ?? (/showthread.php?tid=9428)



listview cheakbox ?? - xebrahimx - 25-06-13

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

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

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


listview cheakbox ?? - kslawy - 25-06-13

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

كود :
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



listview cheakbox ?? - xebrahimx - 25-06-13

اخى 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

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


listview cheakbox ?? - kslawy - 26-06-13

كود :
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



listview cheakbox ?? - xebrahimx - 26-06-13

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


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


listview cheakbox ?? - sooriaty03 - 26-06-13

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

تفضل أخي الكريم جرب هذا الكود - من بعد إذن أخي الحبيب 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

بالتوفيق



listview cheakbox ?? - xebrahimx - 26-06-13

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


listview cheakbox ?? - learning.net - 26-06-13

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

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

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

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

PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        ListView1
.SelectedItems.Clear()
        
ListView1.Select()
        
Dim CheckedItems As ListView.CheckedListViewItemCollection ListView1.CheckedItems
        
If ListView1.Items.Count 0 Then
            
For 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() 

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