[3booody]

[COLOR="#800000"]لقيت الحل والحمدلله
غير الكود التالي[/COLOR]

كود :

My.Settings.H = New ArrayList()

الى هذا

كود :

My.Settings.H = New ArrayList(My.Settings.H)

[الشاكي لله]

3booody كتب :[COLOR="#000080"]اعتذر على الخطأ لان جربت وما ظهر عندي ,والمشكلة اذا يتم انشاء فئة جديده من الكائن تختفي محتوياته السابقه وما استفدنا شي بهالحالة
ان شاء الله اجد حل عن قريب[/COLOR]

لا اخي لاحظ اني وضعت شرط قبل انشاء الكائن

كود :

If My.Settings.H Is [color=#FF0000]Nothing[/color] Then
              [color=#0000FF]  My.Settings.H = New System.Collections.ArrayList[/color]
            End If

سيكون Nothing فقط في حالة اول استخدام له

لن يكون Nothing اذا اضفت له قيمة سابقا فلن يتم تنفيذ كود الشرظ

والكود يشتغل تمام عندي !!!

[3booody]

صحيح كلامك جزاك الله خيرآ

[المحب]

الشاكي لله كتب :بعد اذن اخي عبوود


يحصل هذا الخطا عندما يكون الsetting المسمى H فارغ (nothing)

فيمكننا عمل (Instance) ليتم ملأه بنسخة الكائن :

عدل كود webBowser1_documentComplete

PHP كود :

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Try
            If My.Settings.H Is Nothing Then
                My.Settings.H = New System.Collections.ArrayList
            End If
            If Not My.Settings.H.Contains(Me.WebBrowser1.Url.AbsoluteUri) Then
                My.Settings.H.Add(Me.WebBrowser1.Url.AbsoluteUri)
                My.Settings.Save()
                MsgBox("تم الحفظ")
            End If
        Catch ex As Exception

        End Try
    End Sub 


جزيل الشكر اخي ممنون

[المحب]

3booody كتب :[COLOR="#800000"]لقيت الحل والحمدلله
غير الكود التالي[/COLOR]

كود :

My.Settings.H = New ArrayList()

الى هذا

كود :

My.Settings.H = New ArrayList(My.Settings.H)

شكرا حياتي رحم الله والديك