28-03-17, 05:44 PM
وعليكم السلام
اخي الكريم
جرب الكود التالي
اخي الكريم
جرب الكود التالي
كود :
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Text1.Text = ListView1.SelectedItem.Text
Text2.Text = ListView1.SelectedItem.SubItems(1)
Text3.Text = ListView1.SelectedItem.SubItems(2)
If ListView1.SelectedItem.Checked = "True" Then
Me.Check1.Value = 1
Else
Me.Check1.Value = 0
End If
End Sub