Dieser Code erlaubt die Orientierung zu erfassen, braucht die Reflection Library, er kommt von
hier:
Sub GetOrientation As Int
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "window", "java.lang.String")
r.Target = r.RunMethod("getDefaultDisplay")
Return r.RunMethod("getOrientation")
End Sub
Hier musst Du aufpassen den je nach Geräteart sind die Werte unterschiedlich.
Smartphones und Tabletts haben unterschiedliche Werte.
Auf meinem Nexus One Smartphone:
0 = portrait
1 = landscape nach links
3 = landscape nach rechts
portrait umgekehrt oben ist unten wird nicht erkannt
Auf meinem Asus TF700 Tablett:
0 = landscape normal
2 = landscape umgekehrt oben ist unten
1 = portrait nach links
3 = portrait nach rechts
0 wird als 'normale' Orientierung angenommen.
Portrait auf Smartphones und landscape auf Tabletts !
Beste Grüsse.