تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] حفظ ما في listview داخل settings
#1
السلام عليكم احبابي كيف حالكم ان شاء الله تكونو بخير  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)


الملفات المرفقة
.rar   WindowsApplication8.rar (الحجم : 90.59 ك ب / التحميلات : 9)
الرد
تم الشكر بواسطة:
#2
عزيزي  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
الرد
تم الشكر بواسطة: trakktour
#3
(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
الرد
تم الشكر بواسطة: اسامه الهرماوي



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم