+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود عمل History للمتصفح (/showthread.php?tid=10085)
الصفحات:
1
2
كود عمل History للمتصفح - 3booody - 16-08-13
[COLOR="#800000"]لقيت الحل والحمدلله
غير الكود التالي[/COLOR]
كود :
My.Settings.H = New ArrayList()الى هذا
كود :
My.Settings.H = New ArrayList(My.Settings.H)كود عمل History للمتصفح - الشاكي لله - 16-08-13
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 اذا اضفت له قيمة سابقا فلن يتم تنفيذ كود الشرظ
والكود يشتغل تمام عندي !!!
كود عمل History للمتصفح - 3booody - 16-08-13
صحيح كلامك جزاك الله خيرآ
كود عمل History للمتصفح - المحب - 16-08-13
الشاكي لله كتب :بعد اذن اخي عبوود
يحصل هذا الخطا عندما يكون ال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
جزيل الشكر اخي ممنون
كود عمل History للمتصفح - المحب - 16-08-13
3booody كتب :[COLOR="#800000"]لقيت الحل والحمدلله
غير الكود التالي[/COLOR]
كود :
My.Settings.H = New ArrayList()
الى هذا
كود :
My.Settings.H = New ArrayList(My.Settings.H)
شكرا حياتي رحم الله والديك