[trakktour]

السلام عليكم احبابي كيف حالكم ان شاء الله تكونو بخير 
عندي سؤال و هو كيف اقوم بحفظ ما في 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)

[saoud2]

عزيزي 

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

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

وهذا هو الكود المطلوب 

كود :

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

[trakktour]

(30-04-19, 02:02 AM)saoud2 كتب :

عزيزي 

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

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

وهذا هو الكود المطلوب 

كود :

   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

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