Spinner

[msajad 501]

سلام من یه Spinner درست کردم ولی موقعی که از برنامه خارج میشم اون گزینه که انتخاب شده SAVE نمیشه و دوباره اولین ایتیم رو میاره

چه جوری میشه این مشکل رو حل کرد

[mohammad1369 14]

سلام

شما ابتدا بیا مقدار اسپاینر رو یه جایی ذخیره کن حالا هرجا فرقی نداره مثلا من میریزم توی یک متغییر :

Dim i As Int
i = Spinner1.SelectedIndex

بعد به این شکلم میتونی بهش مقدار بدی که کدم آیتم.باید شماره یا اندیس اون آیتمو بدی :

Spinner1.Add("Majid")
Spinner1.add("Mehdi")
Spinner1.add("Farzad")
Spinner1.add("Iman")
Spinner1.SelectedIndex = 2

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

ببخشید راهی نیست که از spinner.selecteditem استفاده کنیم؟

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

بنده چک نکردم ولی این میاد مقدار همون آیتم رو بر میگردونه که میشه همون اسم یا چیزی که ما واسش در نظر گرفتیم

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

سلام

شما ابتدا بیا مقدار اسپاینر رو یه جایی ذخیره کن حالا هرجا فرقی نداره مثلا من میریزم توی یک متغییر :

Dim i As Int
i = Spinner1.SelectedIndex

بعد به این شکلم میتونی بهش مقدار بدی که کدم آیتم.باید شماره یا اندیس اون آیتمو بدی :

Spinner1.Add("Majid")
Spinner1.add("Mehdi")
Spinner1.add("Farzad")
Spinner1.add("Iman")
Spinner1.SelectedIndex = 2

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

[پژمان نیکروان 6,055]

و یا شما میتونید در رویداد کلیک ایتم اسپینر ، شماره ایتمی که کلیک شده رو در فایل تکست ذخیره کنید:

Sub Spinner1_ItemClick (Position As Int, Value As Object)
   File.WriteString(File.DirInternal,"save.txt",Position)
End Sub

و بعد خیلی راحت در رویداد activity_resume بیاید اون فایل تکست رو بخونید و عدد رو از توش بیرون بیاریدو بذارید روی selectedItem اسپینر:

Sub Activity_Resume
Dim r As String
If File.Exists(File.DirInternal,"save.txt")=True Then
r=File.ReadString(File.DirInternal,"save.txt")
Spinner1.SelectedIndex=r
End If
End Sub