[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

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