Spinner SelectedIndex Problem

What's the content of "lang.txt"?, are you sure you don't have any trailing spaces? and you are using the proper capitalization? (case sensitive)

definitly. in my case it even doesnt work when i try to change it with e.g Spinner1.selectedindex = 3 and Spinner1.Selectindex = 4. Its always the same....!?

Can you upload you project? from the IDE click on File -> Export As ZIP

OK...now i have it....


i had it in the sub activity_create....in the moment i changed it to another sub it worked!

Ok.

But it only works when i put in a e.g. sub button_click.

When I Call the sub out of the activity_create it doesnt work...?!

i think its a b4a bug

Well, you are placing/doing something wrong, like I said in my previous post, upload your project, without seeing the code there's no much we can do.

Sorry, but I don't understand your code.
Where do you fill the Spinner ?
But as NJDude already aked for you should post your project.

Best regards.

Ok...i Can post parts of it:


Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim AllLocales() As String
AllLocales = Array As String("ar", "bg", "da","de","el", "en", "es", "fi", "fr", "hr", "hu", "it", "ja", "lt", "lv", "nl", "no","pl","pt", "ro", "ru", "sk", "sl","sq", "sr", "sv", "th", "tr", "uk", "vi", "zh")
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.
Dim ImageView1 As ImageView
Dim ImageView2 As ImageView
Dim ImageView3 As ImageView
Dim ImageView4 As ImageView
Dim Label1 As Label
Dim Label2 As Label
Dim tts2 As TTS
Dim Spinner1 As Spinner
Dim ToggleButton1 As ToggleButton
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("Layout1")
If FirstTime Then
tts2.Initialize("tts2")
End If
Laden

End Sub

Sub TTS2_Ready (Success As Boolean)
If Success Then
Dim listOfSupported As List
listOfSupported.Initialize
For i = 0 To AllLocales.Length - 1
Dim s() As String
s = Regex.Split("_", AllLocales(i))
If s.Length = 1 Then
If tts2.SetLanguage(s(0), "") = True Then listOfSupported.Add(AllLocales(i))
Else
If tts2.SetLanguage(s(0), s(1)) = True Then listOfSupported.Add(AllLocales(i))
End If
Next
For i = 0 To listOfSupported.Size - 1
Spinner1.Add(listOfSupported.Get(i)) 'print to the log
Next
End If
End Sub
Sub ToggleButton1_CheckedChange(Checked As Boolean)
If ToggleButton1.Checked = True Then
File.WriteString (File.DirInternal,"lang.txt",Spinner1.SelectedItem)
StartServiceAt(speaker,DateTime.Now + 1000,True)
Else
StopService(speaker)
End If

End Sub


Sub Spinner1_ItemClick (Position As Int, Value As Object)

End Sub

Sub Laden()
Dim Text1 As String
If File.Exists(File.DirInternal,"lang.txt") Then
Text1 = File.ReadString(File.DirInternal,"lang.txt")
ToastMessageShow(Text1,True)
Spinner1.SelectedIndex = Spinner1.IndexOf(Text1)
Else
ToastMessageShow("Please select your language first!",True)
End If
End Sub

Can't you post a zip file (IDE menu Files / Export As Zip) with a project or a simplified project that shows the problem instead of posting just a partial code so we could test it in the same conidtions as you do ?

Best regards.

damn...im sorry its quite a complex project. i just dont understand why i cant change the selecteindex out of the Sub Activity_Create()?

When I put it in the Sub Button1_Click() it works.

Well, if you don't want to help us how do you expect us to help you ?
Have you ever tried to help somebody without seeing at least a smaller project showing the problem ?

Best regards.