Résolution d'écran − Le Wiki Gambas

Connaître la résolution des écrans :

on peut connaitre les résolutions des différents écrans branchés sur une carte graphique :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 PUBLIC SUB btnEcranResolution_Click() '<-------------------------------------------- création d'un bouton à cliquer DIM iCount AS INTEGER '<-------------------------------------------------------------- variable locale compteur DIM sMessage AS STRING '<----------------------------------------------------------- variable locale message à afficher DIM hScreen AS Screen '<-------------------------------------------------------------- variable locale différents écrans sMessage = ("<hr> Propriétés des écrans branchés <hr>" FOR EACH hScreen IN Screens '<--------------------------------------------------- pour chaque écran dans la liste des écrans sMessage &= ("Écran " & Str(iCount) & (" hauteur ") & " = " & Screens[iCount].Height & " Pixel " sMessage &= (" écran " & Str(iCount) & (" largeur ") & " = " & Screens[iCount].Width & " Pixel " sMessage &= (" écran " & Str(iCount) & (" coordonnée gauche ") & " = " & Screens[iCount].X & " Pixel " sMessage &= (" écran " & Str(iCount) & (" coordonnée supérieure ") & " = " & Screens[iCount].y & " Pixel " "" sMessage &= "< hr >" INC iCount '<---------------------------------------------------------------------------- pour que l'affichage concerne bien chaque écran branché NEXT Message.Info(sMessage) '<---------------------------------------------------------- affichage de l'information collectée END

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18	PUBLIC SUB btnEcranResolution_Click() '<-------------------------------------------- création d'un bouton à cliquer DIM iCount AS INTEGER '<-------------------------------------------------------------- variable locale compteur DIM sMessage AS STRING '<----------------------------------------------------------- variable locale message à afficher DIM hScreen AS Screen '<-------------------------------------------------------------- variable locale différents écrans sMessage = ("<hr> <b> Propriétés des écrans branchés </b> <hr>" FOR EACH hScreen IN Screens '<--------------------------------------------------- pour chaque écran dans la liste des écrans sMessage &= ("Écran " & Str(iCount) & (" hauteur ") & " = " & Screens[iCount].Height & " Pixel " sMessage &= ("<br> écran " & Str(iCount) & (" largeur ") & " = " & Screens[iCount].Width & " Pixel " sMessage &= ("<br> écran " & Str(iCount) & (" coordonnée gauche ") & " = " & Screens[iCount].X & " Pixel " sMessage &= ("<br> écran " & Str(iCount) & (" coordonnée supérieure ") & " = " & Screens[iCount].y & " Pixel " "" sMessage &= "< hr >" INC iCount '<---------------------------------------------------------------------------- pour que l'affichage concerne bien chaque écran branché NEXT Message.Info(sMessage) '<---------------------------------------------------------- affichage de l'information collectée END

Ce qui donne ça :

Ce qui permet de comprendre qu'il faut tenir compte de la largeur du premier écran pour situer le second, ...
Par exemple si on veut centrer notre formulaire (360,462) sur le deuxième écran. (Attention, ne fonctionne pas encore, sous wayland) :

1	`ME.Move(Screens[1].X + Screens[1].Width / 2 - 180, Screens[1].Y + Screens[1].Height / 2 - 231)`

ou plus général :

1	`ME.Move(Screens[1].X + Screens[1].Width / 2 - ME.W/2, Screens[1].Y + Screens[1].Height / 2 - ME.H/2)`

Et oui, Screens[1] représente bien le deuxième écran et Screens[0], le premier car en gambas les index de liste commencent par zéro.

====================

Navigation :

<-- Liens du Wiki <--
<-- Accueil du WIKI : <--

====================

La Documentation :

site officiel
documentation officielle
Gambas Linux
Gambas Book (en anglais ou allemand) ou traduisible à la volée par Google Traduction : Translator
Même page directement traduite en français
Convention de Nommage des Variables
Conventions de Nommage