[vb.net] Détecter l'orientation de l'écran du pda et la modifier si nécessaireRésolu

Question

Bonjour,
Je développe actuellement une application pour pocket pc en VB.net. J'aurai besoin de travailler avec l'écran orienté de façon vertical.
Donc il faudrait qu'a l'ouverture du soft je récupère l'orientation actuel de l'écran et si elle est horizontals que je la modifie en faisant tourné l'écran.
Est ce possible ce que je veut faire et comment merci d'avance.

cs_Stephane33 · Accepted Answer

Si tu définis une form Maximized et que tu regarde la taille de cette form, cela devrait te donner la taille actuelle de ton écran donc l'orientation C'est valable dans tous les langages. 
Il y a peut-être une façon plus "propre", il faut que je creuse...

Le savoir n'est que le filtre de l'experience

batteuryo · Answer

Bonjour sebro, tu peux trouver des infos utiles ici : 

http://msdn.microsoft.com/fr-fr/library/ms229671.aspx
http://msdn.microsoft.com/fr-fr/library/microsoft.windowsce.forms.systemsettings.screenorientation.aspx

Jette un coup d'oeil dans SystemSettings..::.ScreenOrientation

Cordialement.
Yoan

cs_Stephane33 · Answer

Voila ce que je disais dans la manière plus propre ;)

Le savoir n'est que le filtre de l'experience

cs_sebro · Answer

Merci ça marche parfaitement : voici le code

Imports Microsoft.WindowsCE.Form

Private Sub MainFram_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load             'Au lancement de la fenetre principal
      
       If Not SystemSettings.ScreenOrientation = ScreenOrientation.Angle0 Then                         'on regarde si l'écran du pda est bien horizontal sinon on le met horizontal
            old_orientation = SystemSettings.ScreenOrientation
            SystemSettings.ScreenOrientation = ScreenOrientation.Angle0
        End If
........
    End sub

 Private Sub MainFram_Closing(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles MyBase.Closed                ' a la femeture de la fenetre principale
      
        If Not SystemSettings.ScreenOrientation = Me.old_orientation Then           'on restaure l'ancienne orientation de l'écran si nécessaire
            SystemSettings.ScreenOrientation = Me.old_orientation
        End If
        Me.Close()

    End Sub

A noter que Microsoft.WindowsCE.Form n'était pas accesible directement donc ne pas oublier de vérifier qu'il est bien présent dans MyProjet -> References

Voila et merci encore

[vb.net] Détecter l'orientation de l'écran du pda et la modifier si nécessaire

4 réponses

Votre réponse

Discussions similaires