ذخیره کردن پنل

[Shabgaard 10]

با سلام

من اومدم یه پنل ایجاد کردم یعنی وقتی رو باتن کلیک میکنم پنل ایجاد میشه

حالا وقتی از برنامه بیرون میام و دوباره میرم داخل برنامه دیگه پنل نیست باید چیکار کنم که ذخیره بشه؟؟؟ممنون میشم کمک کنید

[Shabgaard 10]

برا همیشه که ن میخوام سیو شه بعد هرموقع که کاربر خودش خواست حذف کنه

[nicetitle 18]

برا همیشه که ن میخوام سیو شه بعد هرموقع که کاربر خودش خواست حذف کنه

پس یه سر به همون لینک آقا مجید بنداز و ذخیره کردن رو یاد بگیر...راه دیگه ای نداره...

شما باید اون مطلب داخل ادیت تکس رو دخیره کنی و همچنین با فراخوانی از متن ذخیره شده متن لیبل تغییر کنه...و هر وقت کاربر خواست متن رو عوض و یا حذف کنه

[Shabgaard 10]

من متن تو ادیت تکس رو میفرستم به لیبل و اینکار هم انجام میشه ولی وقتی میخوام سیو شه نمیشه...

یعنی وقتی بیرون میام

[nicetitle 18]

من متن تو ادیت تکس رو میفرستم به لیبل و اینکار هم انجام میشه ولی وقتی میخوام سیو شه نمیشه...

یعنی وقتی بیرون میام

با چه روشی ذخیره میکنی؟

[مجید آرتا 5,874]

از این کد واسه ذخیره کردن استفاده کن :

Dim ListTxt As List
ListTxt.Initialize
ListTxt.Add(Label1.Text)
File.WriteList(File.DirRootExternal,"List.txt",ListTxt)

از این کد برای قرار دادن متن ذخیره شده در لیبل :

Dim GetList as List
GetList = File.ReadList(File.DirRootExternal,"List.txt")
Label1.Text = GetList.Get(0)

پروژتم نگاه نکردم فقط اینجا راهنماییت کردم

[Shabgaard 10]

داداش میشه بگی دقیقا کجا بزارمشون ؟؟؟

[مجید آرتا 5,874]

تکه کد اول رو در رویداد Activity_Resume و تکه کد دوم رو در رویداد Activity_Create *ناز*

[Shabgaard 10]

بازم نشد*عطسه**غمگین*

[nicetitle 18]

کل کدهای مورد نظر تواینه:

#Region
 Project Attributes 


#ApplicationLabel: B4A Example


#VersionCode: 1


#VersionName: 


'SupportedOrientations possible values: unspecified, landscape or portrait.


#SupportedOrientations: unspecified


#CanInstallToExternalStorage: False

#End Region


#Region
 Activity Attributes 


#FullScreen: False


#IncludeTitle: True


#End Region


Sub 
Process_Globals


'These global variables will be declared once when the application starts.


'These variables can be accessed from all modules.


End Sub


Sub 
Globals


'These global variables will be redeclared each time the activity is created.


'These variables can only be accessed from this module.

Private
p As Panel

Dim
i As Int = 0


Private ScrollView1 As ScrollView


Private EditText1 As EditText


Private Button2 As Button


Private Label1 As Label

End Sub


Sub 
Activity_Create(FirstTime As Boolean)


'Do not forget to load the layout file created with the visual designer. For example:


Activity.LoadLayout("l1")


End Sub


Sub 
Activity_Resume


End Sub


Sub 
Activity_Pause (UserClosed As Boolean)


End Sub


Sub 
Button1_Click




Dim stop As Int

stop = 
2%y


p.Initialize("p")


ScrollView1.Panel.AddView(p,0,stop,100%x,35%y)

	stop = stop + 
30%y


p.LoadLayout("l2")


P.Tag = i


ScrollView1.Panel.Height = stop




If File.Exists(File.DirRootExternal,"List.txt") = False Then File.Copy(File.DirAssets ,"List.txt",File.DirRootExternal,"List.txt")

Dim
GetList As List

GetList = 
File.ReadList(File.DirRootExternal,"List.txt")

Label1
.Text = GetList.Get(0)


End Sub

Sub 
Button2_Click


Dim ListTxt As List

ListTxt.Initialize

ListTxt.Add(
EditText1.Text)

File
.WriteList(File.DirRootExternal,"List.txt",ListTxt)

End Sub

کدها رو بدون کپی کردن یاد بگیر...

سوالی داشتی بپرس