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)
