Ce code permet de récupérer la résolution d'écran du visiteur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Dim ScreenSize As String
ScreenSize = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Size.ToString()
Il permet de récupérer la résolution sous la forme : {Width=1280, Height=1024}

Il est possible aussi de récupérer la largeur et la hauteur séparement :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Dim Width As String
Width = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width.ToString()
 
Dim Height
Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height.ToString()
Il faut que la référence System.Windows.Forms soit ajoutée à l'application.