Das ist auch aine Möglichkeit:
Public Phone1 As Phone
Public DeviceSize As Double
DeviceSize = GetDeviceLayoutValues.ApproximateScreenSize
If DeviceSize >= 6 Then
'Tablett Code
Phone1.SetScreenOrientation(-1)
Else
'Smartphone Code
Phone1.SetScreenOrientation(1)
End If
Mit
If DeviceSize >= 6 oder
If DeviceSize < 6 kann man im Programm gerätespezifischen Code programmieren.
Vielleicht muss man die Grösse 6 auf 6.5 erhöhen, für die letzten grösseren Smartphones.
Ich hab ein Programm wo ich das genutzt habe, mit dem Unterschied dass für Tabletts nur für Querformat eingestellt ist.
Ich benutze Panels mit gerätespezifischen Layouts, im Tablett werden zwei Panels gleichzeitig angezeigt und im Smartphone wird nur eins.
Mit PanelX.Visible zeige ich die Panels an die gebraucht werden.