équivalent Screen.width

Salut Michel ! :O)

Regarde du côté de la classe SystemInformation (voir PrimaryMonitorSize,
WorkingArea et VirtualScreen) et aussi la classe Screen.PrimaryScreen (voir
Bounds et WorkingArea). Si tu travailles avec plus d'un moniteur, regarde du
côté de Screen.AllScreens.

--
Cordialement
Yanick
MVP pour Visual Basic
"Michel Lemaitre" <michellemaitre@free.fr> a écrit dans le message de
news:OFZFptwgFHA.3436@tk2msftngp13.phx.gbl...

Bonsoir,
Je cherche à connaitre les dimensions de l'écran.
En VB6, c'était:
Screen.width
Screen.height
merci de votre aide
Michel

Zoury a écrit :

Salut Michel ! :O)

Regarde du côté de la classe SystemInformation (voir PrimaryMonitorSize,
WorkingArea et VirtualScreen) et aussi la classe Screen.PrimaryScreen (voir
Bounds et WorkingArea). Si tu travailles avec plus d'un moniteur, regarde du
côté de Screen.AllScreens.

Merci de cette réponse rapide

Zoury a écrit :

Salut Michel ! :O)

Regarde du côté de la classe SystemInformation (voir PrimaryMonitorSize,
WorkingArea et VirtualScreen) et aussi la classe Screen.PrimaryScreen (voir
Bounds et WorkingArea). Si tu travailles avec plus d'un moniteur, regarde du
côté de Screen.AllScreens.

Merci de cette réponse rapide

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Screen_Name_lbl.Text = "Device Name: " + Screen.PrimaryScreen.DeviceName()

'***************************************
'Extrait l'espace de travail d'un affichage.
'***************************************
'Dimensions en pixels

'Extrait l'espace de travail de l'affichage qui contient la plus grande zone
'du contrôle spécifié. L'espace de travail est la zone d'affichage du bureau,
'à l'exception des barres des tâches, des fenêtres ancrées et des barres
'd'outils ancrées.

'Methode1
Screen_Size_lbl.Text = "Working Area Size - Methode1 - Width: " +
Str(Screen.PrimaryScreen.WorkingArea.Width()) + _
" - height: " + Str(Screen.PrimaryScreen.WorkingArea.Height())

'Methode2
Dim rect As System.Drawing.Rectangle
rect = Screen.GetWorkingArea(Me)

Screen_Size2_lbl.Text = "Working Area Size - Methode2 - Width: " + Str(rect.Width) + _
" - height: " + Str(rect.Height)

'***************************************
'Extrait les limites de l'affichage.
'***************************************
'Dim rect As System.Drawing.Rectangle
rect = Screen.GetBounds(Me)

Screen_Size3_lbl.Text = "Screen Size - Width: " + Str(rect.Width) + _
" - height: " + Str(rect.Height)

'Form Size

Form_Size_lbl.Text = "Form Size - Width: " + Str(Me.Size.Width) + " - Height: " + Str(Me.Height)

'Form ClentArea size
Form_ClientArea_Size_lbl.Text = "ClientArea - Width: " + Str(Me.DisplayRectangle.Width) + _
" - Height: " + Str(Me.DisplayRectangle.Height)


End Sub