مشکل کار با کتابخانه AriaSharedPreferences

[mahdig502 27]

سلام خدمت اساتید
دوستان من ی بان دارم ی پنل
میخوام وقتی روی باتن کلیک شد پنل واس همیش پنهان بشه
با کتابخانه AriaSharedPreferences هر چی ور رفتم نتونستم کاری کنم
لطفا کمکم کنید

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim ASP As AriaSharedPreferences
Private panel1 As Panel
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("a")
	ASP.Initialize("ASP")
  ASP.GetBoolean(panel1.Visible,True)
  ASP.RegisterPreferenceChangeListener
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click
	ASP.SaveBoolean(panel1.Visible,False)
End Sub

 

[Negan 1,300]

در 6 دقیقه قبل، mahdig502 گفته است :

سلام خدمت اساتید
دوستان من ی بان دارم ی پنل
میخوام وقتی روی باتن کلیک شد پنل واس همیش پنهان بشه
با کتابخانه AriaSharedPreferences هر چی ور رفتم نتونستم کاری کنم
لطفا کمکم کنید

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim ASP As AriaSharedPreferences
Private panel1 As Panel
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("a")
	ASP.Initialize("ASP")
  ASP.GetBoolean(panel1.Visible,True)
  ASP.RegisterPreferenceChangeListener
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click
	ASP.SaveBoolean(panel1.Visible,False)
End Sub

 

مهدی ای مهدی از دست تو

این یه متغیر زخیره میکنه نه اینکه مستقیم بیای و باهش کار انجام بدی

:| ضمنن اون متد اولشوهم استرینگ میگیره ها

فیلم اموزشیشو ببین 

 

[mehrabmmp 528]

باید اینجوری بنویسی

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim ASP As AriaSharedPreferences
Private panel1 As Panel
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("a")
	ASP.Initialize("ASP")
if ASP.GetBoolean("pnl",False) = true then
	panel.visibale = false
end if
  
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click
	ASP.SaveBoolean("pnl",true)
End Sub