تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود عمل History للمتصفح
#1
السلام عليكم ورحمه الله وبركاته

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

مع الشكر للجميع
الرد }}}}
تم الشكر بواسطة:
#2
[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)
الرد }}}}
تم الشكر بواسطة:
#3
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]


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#4
لا اخي انزل على اخر شي Browse تلقاها موجوده ضمن مجال الاسماء System.Collections
الرد }}}}
تم الشكر بواسطة:
#5
3booody كتب :لا اخي انزل على اخر شي Browse تلقاها موجوده ضمن مجال الاسماء System.Collections


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

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


[ATTACH=CONFIG]3761[/ATTACH]


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#6
هناك حدث 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()
الرد }}}}
تم الشكر بواسطة:
#7
مرفق المثال


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 68.49 ك ب / التحميلات : 28)
الرد }}}}
تم الشكر بواسطة:
#8
3booody كتب :مرفق المثال

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

[ATTACH=CONFIG]3763[/ATTACH]


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#9
بعد اذن اخي عبوود


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

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

عدل كود webBowser1_documentComplete

PHP كود :
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.ObjectByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgsHandles WebBrowser1.DocumentCompleted
        
Try
            If 
My.Settings.H Is Nothing Then
                My
.Settings.= New System.Collections.ArrayList
            End 
If
            If 
Not My.Settings.H.Contains(Me.WebBrowser1.Url.AbsoluteUriThen
                My
.Settings.H.Add(Me.WebBrowser1.Url.AbsoluteUri)
                
My.Settings.Save()
                
MsgBox("تم الحفظ")
            
End If
        Catch 
ex As Exception

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [كود] كود history للمتصفحات المصنوعة علي الفيجوال بيسك soper 18 344 31-07-16, 10:33 PM
آخر رد: soper
Rainbow [مشروع] عمل برنامج انذارات History Of Action محمد مسافر 0 378 07-04-14, 11:51 PM
آخر رد: محمد مسافر
Question [سؤال] مسح ملفات ال Recent وال history كيف يتم elhon.tec 1 484 22-02-14, 07:44 PM
آخر رد: Genius Live
  كيفية عمل History في ميديا بلير W XP 2003 4 474 01-08-13, 01:13 PM
آخر رد: kslawy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم