Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Dimension de l'écran

Dimension de l'écran

6 réponses
Avatar
FabriceG
Salut à tous

Je cherche un moyen de récupérer la dimension de l'écran sans utiliser
Screen.Width et Height.

Quelqu'un peux m'aider ?
Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ng
Salut,

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As
Long) As Long

Private Sub Command1_Click()
Debug.Print GetSystemMetrics(0) & "x" & GetSystemMetrics(1)
End Sub


Et pourquoi tu ne veux pas utilser l'objet screen ? Ca marche pourtant très
bien (execpté s'il y a un changement durant l'execution).

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

FabriceG wrote:
Salut à tous

Je cherche un moyen de récupérer la dimension de l'écran sans utiliser
Screen.Width et Height.

Quelqu'un peux m'aider ?
Merci


Avatar
FabriceG
Merci pour l'info.

En faite l'objet Screen n'est pas reconnu par le language du composant appelé.


"ng" a écrit :

Salut,

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As
Long) As Long

Private Sub Command1_Click()
Debug.Print GetSystemMetrics(0) & "x" & GetSystemMetrics(1)
End Sub


Et pourquoi tu ne veux pas utilser l'objet screen ? Ca marche pourtant très
bien (execpté s'il y a un changement durant l'execution).

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

FabriceG wrote:
> Salut à tous
>
> Je cherche un moyen de récupérer la dimension de l'écran sans utiliser
> Screen.Width et Height.
>
> Quelqu'un peux m'aider ?
> Merci





Avatar
ng
dans ce cas il faudrait aussi fournir les ctes SM_XVIRTUALSCREEN & Co.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

dark poulpo wrote:
#define SCREEN_LEFT GetSystemMetrics(SM_XVIRTUALSCREEN)
#define SCREEN_TOP GetSystemMetrics(SM_YVIRTUALSCREEN)
#define IS_MULTI_MON (GetSystemMetrics(SM_CMONITORS) > 1)
#define SCREEN_WIDTH (IS_MULTI_MON ?
GetSystemMetrics(SM_CXVIRTUALSCREEN) : GetSystemMetrics(SM_CXSCREEN))
#define SCREEN_HEIGHT (IS_MULTI_MON ?
GetSystemMetrics(SM_CYVIRTUALSCREEN) : GetSystemMetrics(SM_CYSCREEN))

c du c++ mais c pas dure a comprendre

au cas ou tu connais pas :
#define macro equivalent

et test ? vrai : faux


Avatar
dark poulpo
#define SCREEN_LEFT GetSystemMetrics(SM_XVIRTUALSCREEN)
#define SCREEN_TOP GetSystemMetrics(SM_YVIRTUALSCREEN)
#define IS_MULTI_MON (GetSystemMetrics(SM_CMONITORS) > 1)
#define SCREEN_WIDTH (IS_MULTI_MON ? GetSystemMetrics(SM_CXVIRTUALSCREEN) :
GetSystemMetrics(SM_CXSCREEN))
#define SCREEN_HEIGHT (IS_MULTI_MON ? GetSystemMetrics(SM_CYVIRTUALSCREEN) :
GetSystemMetrics(SM_CYSCREEN))

c du c++ mais c pas dure a comprendre

au cas ou tu connais pas :
#define macro equivalent

et test ? vrai : faux


--
-----
http://dark.freezee.org/
- Dark Update v1.1
- Dark Emule v0.44b r4
- Dark 3D-X (le desktop 3d pour windows) (----------> v0.7 beta dispo)
Avatar
Patrice Henrio
Même s'il n'est pas reconnu, il n'y a pas moyen de lui passer par paramètres
les valeurs nécessaires ?

"FabriceG" a écrit dans le message de
news:
Merci pour l'info.

En faite l'objet Screen n'est pas reconnu par le language du composant
appelé.


"ng" a écrit :

Salut,

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As
Long) As Long

Private Sub Command1_Click()
Debug.Print GetSystemMetrics(0) & "x" & GetSystemMetrics(1)
End Sub


Et pourquoi tu ne veux pas utilser l'objet screen ? Ca marche pourtant
très
bien (execpté s'il y a un changement durant l'execution).

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

FabriceG wrote:
> Salut à tous
>
> Je cherche un moyen de récupérer la dimension de l'écran sans utiliser
> Screen.Width et Height.
>
> Quelqu'un peux m'aider ?
> Merci







Avatar
ng
> En faite l'objet Screen n'est pas reconnu par le language du
composant appelé.


Lequel dont ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

FabriceG wrote:
Merci pour l'info.

En faite l'objet Screen n'est pas reconnu par le language du
composant appelé.


"ng" a écrit :

Salut,

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex
As Long) As Long

Private Sub Command1_Click()
Debug.Print GetSystemMetrics(0) & "x" & GetSystemMetrics(1)
End Sub


Et pourquoi tu ne veux pas utilser l'objet screen ? Ca marche
pourtant très bien (execpté s'il y a un changement durant
l'execution).

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

FabriceG wrote:
Salut à tous

Je cherche un moyen de récupérer la dimension de l'écran sans
utiliser Screen.Width et Height.

Quelqu'un peux m'aider ?
Merci