منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] حفظ ما في listview داخل settings - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] حفظ ما في listview داخل settings (/showthread.php?tid=29515)

حفظ ما في listview داخل settings - trakktour - 29-04-19

السلام عليكم احبابي كيف حالكم ان شاء الله تكونو بخير  Heart
عندي سؤال و هو كيف اقوم بحفظ ما في listview داخل settings


هذا هو الكود المستعمل في اضافة العناصر
كود :
       Dim txt As String = TextBox1.Text
       Dim trakktour As String() = txt.Split("#")
       Dim item As ListViewItem = ListView1.Items.Add(trakktour(0))
       item.ImageIndex = trakktour(1)


RE: حفظ ما في listview داخل settings - saoud2 - 30-04-19

عزيزي  Smile

قم بإنشاء متغير في ال Settings بإسم txtview من نوع String

ثم قم بإضافة Button2 لقراءة المحفوظ في ال Settings

وهذا هو الكود المطلوب  Big Grin
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim txt As String = TextBox1.Text
        If txt.Trim <> "" Then
            Dim trakktour As String() = txt.Split("#")
            Dim item As ListViewItem = ListView1.Items.Add(trakktour(0))
            item.ImageIndex = trakktour(1)
            My.Settings.txtview = My.Settings.txtview.Trim & vbNewLine & txt
            My.Settings.Save()
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For Each txt In My.Settings.txtview.Split(vbNewLine)
            Dim trakktour As String() = txt.Split("#")
            Dim item As ListViewItem = ListView1.Items.Add(trakktour(0))
            item.ImageIndex = trakktour(1)
        Next
    End Sub


RE: حفظ ما في listview داخل settings - trakktour - 30-04-19

(30-04-19, 02:02 AM)saoud2 كتب :
عزيزي  Smile

قم بإنشاء متغير في ال Settings بإسم txtview من نوع String

ثم قم بإضافة Button2 لقراءة المحفوظ في ال Settings

وهذا هو الكود المطلوب  Big Grin
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim txt As String = TextBox1.Text
       If txt.Trim <> "" Then
           Dim trakktour As String() = txt.Split("#")
           Dim item As ListViewItem = ListView1.Items.Add(trakktour(0))
           item.ImageIndex = trakktour(1)
           My.Settings.txtview = My.Settings.txtview.Trim & vbNewLine & txt
           My.Settings.Save()
       End If
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       For Each txt In My.Settings.txtview.Split(vbNewLine)
           Dim trakktour As String() = txt.Split("#")
           Dim item As ListViewItem = ListView1.Items.Add(trakktour(0))
           item.ImageIndex = trakktour(1)
       Next
   End Sub

حبيبي شكرا لك 
ربي يحفظك يا فنان  Heart Heart