Tabhost does not react to change

[grafsoft]

Hi,
this code does not work:

Sub Globals
Dim th As TabHost
...
end sub

...
th.Initialize ("TabChanged")
Activity.AddView(th, 0, 0, 98%x, 98%y)
...


Sub TabChanged(tabname As String)
' the program never gets here
end sub

I can also submit the whole project ...

thanks
Peter

 

[yttrium]

Hi,
this code does not work:

Sub Globals
Dim th As TabHost
...
end sub

...
th.Initialize ("TabChanged")
Activity.AddView(th, 0, 0, 98%x, 98%y)
...

Sub TabChanged(tabname As String)
' the program never gets here
end sub

I can also submit the whole project ...

thanks
Peter

I think your initialization line should look like:

th.Initialize ("th")

and your TabChanged:

Sub th_TabChanged(tabname As String)
End Sub

 

[thedesolatesoul]

Sub TabChanged_TabChanged

 

[grafsoft]

Thanks, but in both cases I get "sub th_Tabchanged" (or Tabchanged_Tabchanged) signature does not match expected signature.

 

[NJDude]

You have this which is wrong:

Sub th_TabChanged(tabname As String)
...

thedesolatesoul gave you the right syntax above.

 

[klaus]

You should use either:
Sub th_TabChanged
or
Sub TabChanged_TabChanged
depending in the initialization.
You must remove (tabname As String) , the TabChange event has no parameter !

Best regards.

 

[grafsoft]

Thank you! Now it works.