Android Question Spinner initialization problem

[danM]

Hello,

I have an interesting problem and it goes as follows:
1) I define a global spinner:
Dim geometricBtn As Spinner
2) I try to initialize the spinner (not included in any designer layout):
geometricBtn.Initialize("geometricBtn")
3) then I get the following error:

LogCat connected to: emulator-5554
** Activity (main) Create, isFirst = true **


java.lang.RuntimeException: Don't call setOnClickListener for an AdapterView. You probably want setOnItemClickListener instead


at android.widget.AdapterView.setOnClickListener(AdapterView.java:773)
at anywheresoftware.b4a.objects.ViewWrapper.innerInitialize(ViewWrapper.java:73)
at anywheresoftware.b4a.objects.SpinnerWrapper.innerInitialize(SpinnerWrapper.java:46)
at anywheresoftware.b4a.objects.ViewWrapper.Initialize(ViewWrapper.java:64)
at malta.aeroCalc.main._activity_create(main.java:486)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:511)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:175)
at malta.aeroCalc.main.afterFirstLayout(main.java:98)
at malta.aeroCalc.main.access$100(main.java:16)
at malta.aeroCalc.main$WaitForLayout.run(main.java:76)
at android.os.Handler.handleCallback(Handler.java:615)
at android.os.Handler.dispatchMessage(Handler.java:92)
at android.os.Looper.loop(Looper.java:137)
at android.app.ActivityThread.main(ActivityThread.java:4745)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:511)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:786)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:553)
at dalvik.system.NativeStart.main(Native Method)

Could anyone tell me what might be the problem?

Thanks,
Dan

 

[stevel05]

Is it in the main activity or a Class or code module? Can you zip and post your project?

 

[danM]

sure thing, I added it below.
The error happens at the line:
"geometricBtn.Initialize("geometricBtn")"

here is the code

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.

'layout related variables
Dim clearLbl As Label
Dim aboutLbl As Label
Dim exitLbl As Label
Dim mainScroll As ScrollView

'geometric altitude gui
Dim geometricPnl As Panel
Dim geometricLbl As Label
Dim geometricEdit As EditText
Dim geometricBtn As Spinner

'gui constants
Dim panelHeight As Int = 35dip 'scroll view added panels constant measurements
Dim panelVerticalDist As Int = 2dip 'vertical distance between panels
Dim panelScreenDist As Int = 2dip 'horizontal distance between panels and screen borders
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("main")

'local variables
Dim i As Int = 0

'add geometric altitude gui
geometricPnl.Initialize("")
geometricPnl.Color = Colors.rgb(206, 206, 206)
mainScroll.Panel.AddView(geometricPnl, panelScreenDist, i * (panelVerticalDist + panelHeight), 100%x - 2 * panelScreenDist, panelHeight)

geometricLbl.Initialize("geometricLbl")
geometricLbl.TextSize = 15
geometricLbl.TextColor = Colors.black
geometricLbl.Color = Colors.rgb(206, 206, 206)
geometricLbl.Text = "Geometric altitude"
geometricLbl.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
geometricPnl.AddView(geometricLbl, 0, 0, 50%x, panelHeight)

geometricEdit.Initialize("geometricEdit")
geometricEdit.TextSize = 15
geometricEdit.TextColor = Colors.black
geometricEdit.Color = Colors.rgb(206, 206, 206)
geometricEdit.Gravity = Gravity.FILL
geometricEdit.Hint = "..."
geometricEdit.HintColor = Colors.DarkGray
geometricEdit.InputType = geometricEdit.INPUT_TYPE_NUMBERS
geometricPnl.AddView(geometricEdit, 50%x, 0, 75%x, panelHeight)

geometricBtn.Initialize("geometricBtn")
geometricBtn.TextSize = 15
geometricBtn.TextColor = Colors.Black
geometricBtn.Color = Colors.rgb(206, 206, 206)
geometricBtn.AddAll(Array As String("m", "ft"))
geometricBtn.DropdownBackgroundColor = Colors.rgb(206, 206, 206)
geometricBtn.DropdownTextColor = Colors.Black
geometricBtn.SelectedIndex = 0
geometricBtn.Prompt = "geometric altitude dimension"
geometricPnl.AddView(geometricBtn, 75%x, 0, 100%x, panelHeight)

i = i + 1

end sub

 

[klaus]

Can you post your project, as a zip file, so we could test it ?

 

[Peter Simpson]

Hello @danM,
I couldn't find any real issues with your code. I did add mainScroll.Initialize(Activity.Height) to get what you posted working, but what you really have to do is Click on the file menu in B4A, then export as zip and post that zip file onto here.

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.

'layout related variables
    Dim clearLbl As Label
    Dim aboutLbl As Label
    Dim exitLbl As Label
    Dim mainScroll As ScrollView

'geometric altitude gui
    Dim geometricPnl As Panel
    Dim geometricLbl As Label
    Dim geometricEdit As EditText
    Dim geometricBtn As Spinner

'gui constants
    Dim panelHeight As Int = 35dip 'scroll view added panels constant measurements
    Dim panelVerticalDist As Int = 2dip 'vertical distance between panels
    Dim panelScreenDist As Int = 2dip 'horizontal distance between panels and screen borders
  
'local variables
    Private i As Int = 0  
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
    mainScroll.Initialize(Activity.Height)
  
    Activity.LoadLayout("main")

'add geometric altitude gui
    geometricPnl.Initialize("")
  
  
    geometricPnl.Color = Colors.rgb(206, 206, 206)
    mainScroll.Panel.AddView(geometricPnl, panelScreenDist, i * (panelVerticalDist + panelHeight), 100%x - 2 * panelScreenDist, panelHeight)

    CallSub(Null, GeogeometricSub)
End Sub

Sub GeogeometricSub
    geometricLbl.Initialize("geometricLbl")
    geometricLbl.TextSize = 15
    geometricLbl.TextColor = Colors.black
    geometricLbl.Color = Colors.rgb(206, 206, 206)
    geometricLbl.Text = "Geometric altitude"
    geometricLbl.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
    geometricPnl.AddView(geometricLbl, 0, 0, 50%x, panelHeight)

    geometricEdit.Initialize("geometricEdit")
    geometricEdit.TextSize = 15
    geometricEdit.TextColor = Colors.black
    geometricEdit.Color = Colors.rgb(206, 206, 206)
    geometricEdit.Gravity = Gravity.FILL
    geometricEdit.Hint = "..."
    geometricEdit.HintColor = Colors.DarkGray
    geometricEdit.InputType = geometricEdit.INPUT_TYPE_NUMBERS
    geometricPnl.AddView(geometricEdit, 50%x, 0, 75%x, panelHeight)

    geometricBtn.Initialize("geometricBtn")
    geometricBtn.TextSize = 15
    geometricBtn.TextColor = Colors.Black
    geometricBtn.Color = Colors.rgb(206, 206, 206)
    geometricBtn.AddAll(Array As String("m", "ft"))
    geometricBtn.DropdownBackgroundColor = Colors.rgb(206, 206, 206)
    geometricBtn.DropdownTextColor = Colors.Black
    geometricBtn.SelectedIndex = 0
    geometricBtn.Prompt = "geometric altitude dimension"
    geometricPnl.AddView(geometricBtn, 75%x, 0, 100%x, panelHeight)

    i = i + 1
End Sub

 

[danM]

I,
here is my project as a ZIP file.

Thanks,
dan

 

[NJDude]

I would change the name of the events, that might be the problem, for example:

geometricBtn.Initialize("geometricBtnX")

Do that to all the initializations of course.

 

[danM]

Hi,

Thank you for your advice, but it didn't work.
still getting on line "geometricBtn.Initialize("geometricBtnX")"
the error:
"java.lang.RuntimeException: Don't call setOnClickListener for an AdapterView. You probably want setOnItemClickListener instead"

 

[danM]

Solved!
Had to change all calls to spinner's from "_Click" to "_ItemClick (Position As Int, Value As Object)"

 

[DonManfred]

still getting on line "geometricBtn.Initialize("geometricBtnX")"

cause you are still defining the wrong event-subs

for example: You declared a "click" event but a spinner does not have a clickevent

Sub densityAltitudeBtn_click
End Sub

it should be something like

Sub Spinner1_ItemClick (Position As Int, Value As Object)
End Sub

for a spinner.

 

[Jiemde]

Hi to all, and a Happy New year 2015!

I have some problems with the spinner view!
I had add a spinner function with the designer and it appears correctly in the designer view ( so normally no need to initialize it in the code )
When I run the project it appears correctly but when I click on it ...... nothing!
In the debug windows I see an error who say that it is not initialized! ( but also remark that 90% of the var définition in the sub Global are underlined! an show a message "never assigned a value, or is not initialized "
Can you help me because, except the spinner my project is working well!

Best regards
Jiemde

 

[DonManfred]

Upload your Project (Export as zip).
Without seeing your code it is hard to give advices.

BUT it would be much better if you have started a new thread instead of putting your request to the wrong (old one) thread.

 

[Jiemde]

Hi Manfred, sorry for the wrong thread!
The zip file is too large for uploading it !
Thanks for your help

Jiemde

 

[klaus]

Are you sure of the naming ?
View name and event name !

 

[Jiemde]

Hi Klaus,

I tink Yes

Dim CoefArray(11) As String
Dim SpnrTOD, SpnrMOD As Spinner in the Sub Globals

CoefArray(0)="1.0"
CoefArray(1)="1.1"
CoefArray(2)="1.2"
CoefArray(3)="1.3"
CoefArray(4)="1.4"
CoefArray(5)="1.5"
CoefArray(6)="1.6"
CoefArray(7)="1.7"
CoefArray(8)="1.8"
CoefArray(9)="1.9"
CoefArray(10)="2.0"

SpnrTOD.AddAll(CoefArray)
SpnrMOD.AddAll(CoefArray) in the Sub Activity_Create


Sub SpnrTod_ItemClick (Position As Int, Value As Object)

End Sub

Sub SpnrMod_ItemClick (Position As Int, Value As Object)

End Sub

What I see and I think it's not "normal" is that a great part of the Dim definition is always underligned and show problem like "warnings #10 or #11 !
Best regards
Jiemde

 

[DonManfred]

Whats the name of the spinners in the designer?

 

[Jiemde]

Are you sure of the naming ?
View name and event name !

Re,
Perhaps the problem is because I use an "Action bar" ?

Thanks

Jiemde

 

[Jiemde]

Whats the name of the spinners in the designer?

Hi,

SpnrMOD and SpnrTOD

jiemde

 

[DonManfred]

and you have loaded the design at this point you want to access the objects?

That´s my last answer here. As i already told it is hard to give advices without seeing your code. and i dont want to ask every bit out of you.
Good luck with your issue

 

[Jiemde]

Re,

I understand that it's difficult without the code but as I say the "upload a file" work till 512K ! and my zipfile is too large than that, so how to send you the zipfile ? give me an email adress and I will send it

Hope you can help me
Jiemde