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

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


rasoul22

سوال

سلام
کد زیر برای load چه سابی باید تعریف کنم
درباره ذخیره متن در لیست ویو میباشد
لطفا کمکم کنید

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

کد بالا رو باید در Sub Activity_Resume بزاری.

    If File.Exists(File.DirInternal,"test.txt") Then
File.Delete(File.DirInternal,"test.txt")
save
Else
save
End If

کد بالا رو باید در Sub Activity_Pause بزاری.

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)

و برای کد بالا هم باید یک ساب ایجاد کنی و کد رو توش بزاری...دقیقا اینطوری :

Sub save

کد های بالا رو دقیقا جای من قرار بده 

End Sub

موفق و سربلند باشید دوست من....

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

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

کد بالا رو باید در Sub Activity_Resume بزاری.

    If File.Exists(File.DirInternal,"test.txt") Then
File.Delete(File.DirInternal,"test.txt")
save
Else
save
End If

کد بالا رو باید در Sub Activity_Pause بزاری.

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)

و برای کد بالا هم باید یک ساب ایجاد کنی و کد رو توش بزاری...دقیقا اینطوری :

Sub save

کد های بالا رو دقیقا جای من قرار بده 

End Sub

موفق و سربلند باشید دوست من....

 

بازم من نفهمیدم که در کد اولی load رو چرا ازم ارور میگیره قرمز میشه

و writer از چه نوعی هستش

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

بایگانی شده

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

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

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