منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود عمل History للمتصفح - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 للمتصفح - المحب - 15-08-13

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

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

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

كود عمل History للمتصفح - 3booody - 15-08-13

[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 للمتصفح - المحب - 16-08-13

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]

كود عمل History للمتصفح - 3booody - 16-08-13

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

كود عمل History للمتصفح - المحب - 16-08-13

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


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

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


[ATTACH=CONFIG]3761[/ATTACH]

كود عمل History للمتصفح - 3booody - 16-08-13

هناك حدث 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()


كود عمل History للمتصفح - 3booody - 16-08-13

مرفق المثال

كود عمل History للمتصفح - المحب - 16-08-13

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

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

[ATTACH=CONFIG]3763[/ATTACH]

كود عمل 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 للمتصفح - 3booody - 16-08-13

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