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

(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

.....