رفتن به مطلب
  • 0

ذخیره اطلاعات در لیست ویو


rasoul22

سوال

با سلام و خسته نباشی

می خواستم بدون چجوری یه لیست ویویی که اطلاعاتش با ادیت تکست در خود برنامه ( توسط کاربر) تعیین شده 

بعد از خارج شدن کاربر و ورود دوباره به آن اون اطلاعات که خودش در ادیت تکست نوشته بود و در لیست ویو ذخیره شده بود

پاک نشه و در لیست ویو مانده باشه

ممنونم از اینکه جواب بدید :crazy: :crazy:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

7 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

 

سلام

بفرما

Sub Activity_Resume
	If File.Exists(File.DirInternal,"test.txt") Then
        load
    Else
        ToastMessageShow("فایل مورد نظر پیدا نشد.",False)
    End If
End Sub

Sub Activity_Pause (UserClosed As Boolean)
	If File.Exists(File.DirInternal,"test.txt") Then
        File.Delete(File.DirInternal,"test.txt")
        save
    Else
        save
    End If
End Sub
Sub save
    writer.Initialize(File.OpenOutput(File.DirInternal,"test.txt",False))	
    Dim i As Int
    For i = 0 To ListView1.Size -1
        writer.WriteLine(ListView1.GetItem(i))
    Next
    writer.Close
    ToastMessageShow("ذخیره شد.",False)
End Sub

پس ساب load کوش

لینک ارسال
به اشتراک گذاری در سایت های دیگر

شرمنده

Sub load
    ListView1.Clear
    reader.Initialize(File.OpenInput(File.DirInternal,"test.txt"))
    Dim item As String
    item = reader.ReadLine
    Do While item <> Null
        ListView1.AddSingleLine(item)
        item = reader.ReadLine
    Loop
    reader.Close
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

شما بگرد برای آموزش ساخت تنظیمات برای برنامه...
چون در اون، برای ذخیر شدن تنظیمات جدید، باید یک فایل درست میشد ک اطلاعات تنظیمات جدید داخلش بود و برنامه همیشه  اونو لود میکرد....

شما هم باید همین راه رو بری احتمالا...

موفق باشید...

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

بفرما

Sub Activity_Resume
	If File.Exists(File.DirInternal,"test.txt") Then
        load
    Else
        ToastMessageShow("فایل مورد نظر پیدا نشد.",False)
    End If
End Sub

Sub Activity_Pause (UserClosed As Boolean)
	If File.Exists(File.DirInternal,"test.txt") Then
        File.Delete(File.DirInternal,"test.txt")
        save
    Else
        save
    End If
End Sub
Sub save
    writer.Initialize(File.OpenOutput(File.DirInternal,"test.txt",False))	
    Dim i As Int
    For i = 0 To ListView1.Size -1
        writer.WriteLine(ListView1.GetItem(i))
    Next
    writer.Close
    ToastMessageShow("ذخیره شد.",False)
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

متغیر writer و reader چی هستن؟

 

بفرما

Dim writer As TextWriter
    Dim reader As TextReader
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...