01-08-13, 02:19 PM (آخر تعديل لهذه المشاركة : 02-08-13, 02:27 AM {2} بواسطة Moo00ooN.)
السلام عليكم ورحمة الله وبركاته
طريقة حفظ واسترجاع عناصر ListView1 في Settings
نذهب الى خصائص المشروع عن طريق النقر مرتين على My Project في نافذة مستعرض المشروع في اليمين
أو من القائمة Project نختار Properties آخر خيار
ثم نحدد التبويب Settings في اليسار
نكتب في Name اسم المتغير وليكن itms
نحدد في Type الخيار System.Collections.ArrayList
فان لم نجدها نختار ...Browse في الأخير، ثم نوسع System.Collections ونختار منها ArrayList
ثم نضع هذا الكود لحفظ واسترجاع عناصر ListView1
PHP كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.itms IsNot Nothing Then For Each itm As String In My.Settings.itms Me.ListView1.Items.Add(New ListViewItem(Split(itm, vbTab))) Next End If
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim itms As New List(Of String) For Each itm As ListViewItem In ListView1.Items itms.Add(String.Join(vbTab, (From sitm As ListViewItem.ListViewSubItem In itm.SubItems Select sitm.Text).ToArray)) Next My.Settings.itms = New ArrayList(itms) My.Settings.Save()
نذهب الى خصائص المشروع عن طريق النقر مرتين على My Project في نافذة مستعرض المشروع في اليمين
أو من القائمة Project نختار Properties آخر خيار
ثم نحدد التبويب Settings في اليسار
نكتب في Name اسم المتغير وليكن itms
نحدد في Type الخيار System.Collections.ArrayList
فان لم نجدها نختار ...Browse في الأخير، ثم نوسع System.Collections ونختار منها ArrayList
ثم نضع هذا الكود لحفظ واسترجاع عناصر ListView1
PHP كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.itms IsNot Nothing Then For Each itm As String In My.Settings.itms Me.ListView1.Items.Add(New ListViewItem(Split(itm, Chr(Keys.Tab)))) Next End If
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim itms As New List(Of String) For Each itm As ListViewItem In ListView1.Items Dim row As String = String.Empty For Each c As Object In itm.SubItems row &= c.Text & Chr(Keys.Tab) Next itms.Add(row) Next My.Settings.itms = New ArrayList(itms) My.Settings.Save()
نذهب الى خصائص المشروع عن طريق النقر مرتين على My Project في نافذة مستعرض المشروع في اليمين
أو من القائمة Project نختار Properties آخر خيار
ثم نحدد التبويب Settings في اليسار
نكتب في Name اسم المتغير وليكن itms
نحدد في Type الخيار System.Collections.ArrayList
فان لم نجدها نختار ...Browse في الأخير، ثم نوسع System.Collections ونختار منها ArrayList
ثم نضع هذا الكود لحفظ واسترجاع عناصر ListView1
PHP كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.itms IsNot Nothing Then For Each itm As String In My.Settings.itms Me.ListView1.Items.Add(New ListViewItem(Split(itm, Chr(Keys.Tab)))) Next End If
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim itms As New List(Of String) For Each itm As ListViewItem In ListView1.Items Dim row As String = String.Empty For Each c As Object In itm.SubItems row &= c.Text & Chr(Keys.Tab) Next itms.Add(row) Next My.Settings.itms = New ArrayList(itms) My.Settings.Save()