Force Screen rotation

[cellicom]

Hi all,
There is a way to force the screen rotation from landscape to portrait or viceversa?

OR

There is a way to turn on/off the automatic screen rotation?

OR

There is a way to link the System display settings with a button for example? (that allow the user turn on/off the automatic screen rotation, manually)

I hope you understand me, i'm not english.
Thanks you a lot!
:sign0098:

Angelo

 

[TheJinJ]

In the IDE, project tab you can select portrait or landscape.

Sent from my GT-I9300

 

[TheJinJ]

Also worth a look at this thread

http://www.b4x.com/forum/showthread.php?t=21056

Sent from my GT-I9300

 

[cellicom]

Thank you for your reply.

Yes i Know, but my app have both orientation.
I want to allow the user to switch. See attacched files

I want to force rotate by code when the user click in the button.
do you understand what i mean?

Thank you
Angelo

 

[NJDude]

You will need to do something like this:

p.SetScreenOrientation(0) 'Landscape
p.SetScreenOrientation(1) 'Portrait
p.SetScreenOrientation(-1) 'Both

You can put the line you need on a button or something, say you want to change to Portrait when clicking on a button, so, you should do this:

Sub Button1_Click

    Dim p As Phone

    p.SetScreenOrientation(1)

End Sub

 

[cellicom]

You will need to do something like this:

p.SetScreenOrientation(0) 'Landscape
p.SetScreenOrientation(1) 'Portrait
p.SetScreenOrientation(-1) 'Both

You can put the line you need on a button or something, say you want to change to Portrait when clicking on a button, so, you should do this:

Sub Button1_Click

    Dim p As Phone

    p.SetScreenOrientation(1)

End Sub

Thanks for the reply
I Tried this code, but has no effect.

 

[NJDude]

Well, you will have to modify it for your code, look at the attached example, it works.

 

[cellicom]

Well, you will have to modify it for your code, look at the attached example, it works.

You're right! That's works!

Thank's for your help. I must "debug" my code to find the trouble!
:sign0098:
Angelo.