[mazen55]

كان لية اح الاسئلة المشابة ورد علية احد اعضاء المنتدي الكرام اخي kslawy

جرب هذا الكود في الحدث ItemSelectionChanged الخاص بالأداة :

PHP كود :

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
On Error Resume Next
        If Not e.Item Is Nothing Then
            If e.IsSelected = True Then
                With e.Item
                    Me.TextBox1.Text = IIf(.Text IsNot Nothing, .Text, "")
                    Me.TextBox2.Text = IIf(.SubItems(1).Text IsNot Nothing, .SubItems(1).Text, "")
                    Me.TextBox3.Text = IIf(.SubItems(2).Text IsNot Nothing, .SubItems(2).Text, "")
                End With
            End If
        End If 


هذا رابط للموضوع
http://vb4arb.com/vb/showthread.php?tid=378

وبعد لما تخلص ضع قبل الكود في نفس الحدث iهذة العبارة لتنهي احتمالية اي اخطاء
On Error Resume Next