منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] الصور بين 2 ليست فيو - نسخة قابلة للطباعة

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

الصور بين 2 ليست فيو - محمد اسماعيل - 20-09-14

عندي 2 ليست فيو ا اضع بهم نفس الصور من ImageList1 ولكن كل ليست فيو  بفورم

اريد عند اختيار وتحديد الصف باليست فيو 2 بالفورم 2 ان يتم تحديد الصورة التي تحمل نفس الرقم من الصف  باليست فيو 1 بالفورم الاول وتحديد الصف بالصورة

الصور من نفس الاداة ImageList1



RE: الصور بين 2 ليست فيو - vbnet - 20-09-14

.....

كود :
'
' Form2

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
    If Me.ListView1.SelectedItems.Count > 0 Then
        Dim imageIndex As Integer = Me.ListView1.SelectedItems(0).ImageIndex
        For Each itm As ListViewItem In Form1.ListView1.Items
            If itm.ImageIndex = imageIndex Then itm.Selected = True
        Next
    End If
End Sub

.....

RE: الصور بين 2 ليست فيو - محمد اسماعيل - 20-09-14

(20-09-14, 06:16 PM)vbnet كتب : .....


كود :
'
' Form2

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
   If Me.ListView1.SelectedItems.Count > 0 Then
       Dim imageIndex As Integer = Me.ListView1.SelectedItems(0).ImageIndex
       For Each itm As ListViewItem In Form1.ListView1.Items
           If itm.ImageIndex = imageIndex Then itm.Selected = True
       Next
   End If
End Sub

.....


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