Android Question Force Landscape for Tablet and Portrait for Phone

[Haris Hafeez]

Hello All,

How can we achieve the subject?

I want to have one app for phone and tablet but I want to force the app to be used in portrait when run on a phone and on landscape when run on a tablet. Is it possible?

Regards,
Haris

 

[Haris Hafeez]

Worked out a solution like the below:

Private Sub InitForTablet
    Dim nativeActivity As JavaObject = GetContext
    nativeActivity.RunMethod("setRequestedOrientation", Array As Object(0)) 'force to landscape
    Activity.LoadLayout("tablet_main")
End Sub
Private Sub InitForPhone
    Dim nativeActivity As JavaObject = GetContext
    nativeActivity.RunMethod("setRequestedOrientation",Array As Object(1)) 'force to portrait
    Activity.LoadLayout("phone_main")
End Sub


Sub GetContext As JavaObject
    Dim jo As JavaObject
    jo.InitializeContext
    Return jo
End Sub

Use the InitForPhone when I detect it is a phone and InitForTablet otherwise.

 

[ronell]

dim phonewidth, phoneheight as int
dim p as phone
phonewidth=GetDeviceLayoutValues.Width
   phoneheight=GetDeviceLayoutValues.Height
if phonewidth > phoneheight then
p.SetScreenOrientation(0)
else
p.SetScreenOrientation(1)

not tested but i think will work

 

[eurojam]

If you want to detect the physical size of your device, see that post here: https://www.b4x.com/android/forum/threads/device-type.17210/#post-98356

 

[klaus]

I use:

Public DeviceSize As Double


DeviceSize = lv.ApproximateScreenSize
If DeviceSize >= 6 Then
    ' tablet
Else
    ' phone
End If

I use a variable because I use it in different routines.
Public DeviceSize As Double in Process_Globals