15-08-13, 10:59 PM
الصفحات : 1 2
15-08-13, 11:43 PM
[COLOR="#008080"]أبسط حل ان شاء الله الحفظ ب My.Settings
أولآ من My Project اختار Settings واعمل متغير جديد اسمه history ونوعه System.Collections.ArrayList
ولنفترض عندك زر اسمه حفظ اكتب الكود[/COLOR]
ولجلب جميع المحفوظات ضع هذا الكود
أولآ من 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)16-08-13, 01:16 AM
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]
16-08-13, 01:35 AM
لا اخي انزل على اخر شي Browse تلقاها موجوده ضمن مجال الاسماء System.Collections
16-08-13, 01:57 AM
3booody كتب :لا اخي انزل على اخر شي Browse تلقاها موجوده ضمن مجال الاسماء System.Collections
تمام وجدتها .. ولكن الان بقت مشكلة اخيرة .. هو بخصوص الاكواد ؟؟ عملت تبويب من ضمن خيارات المتصفح بأسم History
ثم وضعت الكود الاول في تبويب History ووضع الثاني ولكن يظهر معي أخطاء ؟؟ هل طريقتي صحيحه ؟؟ ارجوا التوضيح من الشكر الجزيل وهذه صورة للعمل
[ATTACH=CONFIG]3761[/ATTACH]
16-08-13, 02:09 AM
هناك حدث DocumentCompleted التابع للـWebBrowser ضع الكود الاول فيه
[COLOR="#800000"]
وكود عرض المحفوظات ضعه في أي زر تحب
مثلآ انا وضعت العرض في فورم2 في ليست فيو كما يلي[/COLOR]
كود :
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وكود عرض المحفوظات ضعه في أي زر تحب
مثلآ انا وضعت العرض في فورم2 في ليست فيو كما يلي[/COLOR]
كود :
Form2.ListView1.Items.Clear()
For Each history As String In My.Settings.h
Form2.ListView1.Items.Add(history)
Next
Form2.Show()16-08-13, 02:20 AM
مرفق المثال
16-08-13, 03:39 AM
3booody كتب :مرفق المثال
حبيبي تعبتك معي ... ولكن عند التشغيل وادخول للفورم مباشرة تظهر لي رسالة بعنوان تم الحفظ ؟؟ وعندما اذهب الى عرض المحفوظات يظهر لي هذا الخطأ كما هو في الصورة
[ATTACH=CONFIG]3763[/ATTACH]
16-08-13, 05:23 AM
بعد اذن اخي عبوود
يحصل هذا الخطا عندما يكون الsetting المسمى H فارغ (nothing)
فيمكننا عمل (Instance) ليتم ملأه بنسخة الكائن :
عدل كود webBowser1_documentComplete
يحصل هذا الخطا عندما يكون ال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
16-08-13, 11:39 AM
[COLOR="#000080"]اعتذر على الخطأ لان جربت وما ظهر عندي ,والمشكلة اذا يتم انشاء فئة جديده من الكائن تختفي محتوياته السابقه وما استفدنا شي بهالحالة
ان شاء الله اجد حل عن قريب[/COLOR]
ان شاء الله اجد حل عن قريب[/COLOR]
الصفحات : 1 2