[المحب]

السلام عليكم ورحمه الله وبركاته

ممكن احبتي كود عمل History للمتصفح ؟؟ اظن الجميع فاهم

مع الشكر للجميع

[3booody]

[COLOR="#008080"]أبسط حل ان شاء الله الحفظ ب My.Settings
أولآ من My Project اختار Settings واعمل متغير جديد اسمه history ونوعه System.Collections.ArrayList
ولنفترض عندك زر اسمه حفظ اكتب الكود[/COLOR]

كود :

If Not My.Settings.history.Contains(WebBrowser1.Url.AbsoluteUri) Then
            My.Settings.history.Add(WebBrowser1.Url.AbsoluteUri)
        End If
        My.Settings.Save()

ولجلب جميع المحفوظات ضع هذا الكود

كود :

Dim M As String = ""
        For Each history As String In My.Settings.history
            M &= history & vbNewLine
        Next
        MsgBox(M)

[المحب]

3booody كتب :[COLOR="#008080"]أبسط حل ان شاء الله الحفظ ب My.Settings
أولآ من My Project اختار Settings واعمل متغير جديد اسمه history ونوعه System.Collections.ArrayList
ولنفترض عندك زر اسمه حفظ اكتب الكود[/COLOR]

كود :

If Not My.Settings.history.Contains(WebBrowser1.Url.AbsoluteUri) Then
            My.Settings.history.Add(WebBrowser1.Url.AbsoluteUri)
        End If
        My.Settings.Save()

ولجلب جميع المحفوظات ضع هذا الكود

كود :

Dim M As String = ""
        For Each history As String In My.Settings.history
            M &= history & vbNewLine
        Next
        MsgBox(M)

أخي العزيز هل تقصد بهذه الطريقة ؟؟ ان كان عملي صحيح ؟

في هذا المكان يتم وضع المطلوب لعمل history ??

شاهد الصورة [ATTACH=CONFIG]3760[/ATTACH]

[3booody]

لا اخي انزل على اخر شي Browse تلقاها موجوده ضمن مجال الاسماء System.Collections

[المحب]

3booody كتب :لا اخي انزل على اخر شي Browse تلقاها موجوده ضمن مجال الاسماء System.Collections

تمام وجدتها .. ولكن الان بقت مشكلة اخيرة .. هو بخصوص الاكواد ؟؟ عملت تبويب من ضمن خيارات المتصفح بأسم History

ثم وضعت الكود الاول في تبويب History ووضع الثاني ولكن يظهر معي أخطاء ؟؟ هل طريقتي صحيحه ؟؟ ارجوا التوضيح من الشكر الجزيل وهذه صورة للعمل


[ATTACH=CONFIG]3761[/ATTACH]

[3booody]

هناك حدث DocumentCompleted التابع للـWebBrowser ضع الكود الاول فيه

كود :

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
      
        If Not My.Settings.history.Contains(WebBrowser1.Url.AbsoluteUri) Then
            My.Settings.history.Add(WebBrowser1.Url.AbsoluteUri)
        End If
        My.Settings.Save()
    End Sub

[COLOR="#800000"]
وكود عرض المحفوظات ضعه في أي زر تحب
مثلآ انا وضعت العرض في فورم2 في ليست فيو كما يلي[/COLOR]

كود :

Form2.ListView1.Items.Clear()
        For Each history As String In My.Settings.h
            Form2.ListView1.Items.Add(history)
        Next
        Form2.Show()

[3booody]

مرفق المثال

[المحب]

3booody كتب :مرفق المثال

حبيبي تعبتك معي ... ولكن عند التشغيل وادخول للفورم مباشرة تظهر لي رسالة بعنوان تم الحفظ ؟؟ وعندما اذهب الى عرض المحفوظات يظهر لي هذا الخطأ كما هو في الصورة

[ATTACH=CONFIG]3763[/ATTACH]

[الشاكي لله]

بعد اذن اخي عبوود


يحصل هذا الخطا عندما يكون ال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="#000080"]اعتذر على الخطأ لان جربت وما ظهر عندي ,والمشكلة اذا يتم انشاء فئة جديده من الكائن تختفي محتوياته السابقه وما استفدنا شي بهالحالة
ان شاء الله اجد حل عن قريب[/COLOR]