iOS Question Tabbing between textfields

[simplypats]

I have a series of textfields on a layout which I wish the user to be able to 'TAB' between each.

I have set the textfield.ReturnKey= textfield.RETURN_NEXT on each of the textfields so that NEXT appears in the keyboard.

Pressing Next on the keyboard doesn't seem to set the cursor automatically in the next field so I have added a textfield_EndEdit event to each textfield to set the focus in the next text field.

This seems to work initially however it then repeatedly fires the EndEdit events of the text fields in sequence sending the focus around the fields automatically in a loop before eventually randomly stopping on one of the fields.

I'm fairly new to iOS development and wonder what is the best way to implement tabbing between textfields? Would be grateful for any help.

 

[Yvon Steinthal]

What i do is keep a "tag" on each individual textfields that incremented from 1 to the number of textfields and keep a global variable "index" to have a cursor of sorts. I then loop through my textfield object to find the one that has the right "tag" (or index + 1). I just RequestFocus on the one found.

I am very unsure if its the best way to do this but it works well.

For each v as view in pnl.getallviewsrecursive
if(v is TextField)Then
if(v.tag = index +1 )Then
Dim txtf as Textfield = v
txtf.requestfocus
index = index +1
end if
end if
Next

 

[simplypats]

Many thanks Yvon, I will give this a go.

Can I ask on what event do you call this routine? Each textfield_EndEdit?

Thanks again for you help.

 

[Yvon Steinthal]

I personnaly would put it on the EnterPressed event, as EndEdit is also launched when the keyboard is "minimized"...

 

[simplypats]

Thank you Yvon for your help, everything makes sense to me now!
Thanks again.

 

[Graeme Mitchell]

I tried this on a button click routine. If finds the 4 text fields but it never finds a match between v.tag and index +1. When i break on that line i do see it match but it never drops down on the the Dim txtf as TextField = v line

 

[Yvon Steinthal]

I tried this on a button click routine. If finds the 4 text fields but it never finds a match between v.tag and index +1. When i break on that line i do see it match but it never drops down on the the Dim txtf as TextField = v line

Make sure the tag is of the same type "string" vs "int" might cause problem?

 

[Graeme Mitchell]

I have the tags a numbers and Private index As Int = 0

 

[Yvon Steinthal]

Can you show a portion of the code?

 

[Graeme Mitchell]

Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'Public variables can be accessed from all modules.
   Public App As Application
   Public NavControl As NavigationController
   Private Page1 As Page

   Private button1 As Button
   Private TextField1 As TextField
   Private TextField2 As TextField
   Private TextField3 As TextField
   Private pnl As Panel
   Dim index As Int
End Sub

Private Sub Application_Start (Nav As NavigationController)
   'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
   NavControl = Nav
   Page1.Initialize("TextFields")
   Page1.Title = "Dashboard"
   Page1.RootPanel.LoadLayout("TextFields")
   NavControl.ShowPage(Page1)
End Sub

Sub Button1_Click
   Dim counter As Int
   counter = index +1
   For Each v As View In pnl.getallviewsrecursive
       If(v Is TextField)Then
           If(v.tag = counter )Then
               Dim txtf As TextField = v
               txtf.requestfocus
               index = index +1
           End If
       End If
   Next
   
End Sub

 

[Yvon Steinthal]

Maybe its my misunderstanding but you're not setting index to 0 anywhere in the code?
Or whatever your first textfield's tag is...

 

[Graeme Mitchell]

I added it to the line Dim Index as int = 0, same thing still happens

 

[Yvon Steinthal]

There's something wrong with the condition, at some level the two are not equal (v.tag and index) else it would fall in the IF statement...

 

[Graeme Mitchell]

 

[Yvon Steinthal]

I still suspect that the Textfield tag is read as a "STRING" type and the other tag is an "INT" type. Here's a simple test to make sure im wrong:

For Each v As View In pnl.getallviewsrecursive
       If(v Is TextField)Then
           Dim txtTag as string = v.tag
           Dim strTag as String = counter 'to make sure we compare two strings
           If(txtTag = strTag )Then
               Dim txtf As TextField = v
               txtf.requestfocus
               index = index +1
           End If
       End If
   Next

 

[Graeme Mitchell]

you are absolutly correct and now the code works. I cannot thank you enough, I would have been beating my head against the wall for days