iOS Question Change Orientation

[cloner7801]

I want to change Orientation when click on button
I am using this code:

Sub SetOrientation(landscape As Boolean)

Dim no AsNativeObject

Dim value As Int

If landscape Then value = 4 Else value = 1

no.Initialize("UIDevice").RunMethod("currentDevice", Null).SetField("orientation", value)

EndSub

it work correctly ! but I want my application always portrait ! but when click on button it change to landscape ! but it didnt work..
How can I create this?

Thanks

 

[Erel]

See this thread: https://www.b4x.com/android/forum/threads/how-ti-set-pages-few-orientations.74688/