Les mémos

Fermer Tables

Fermer Requêtes

Fermer Formulaires

Fermer Etats

Fermer Modules

Fermer Base

Fermer Automation

Fermer Administration

Fermer Registre

Fermer String

Fermer Email CDO

Fermer Outlook

Fermer Net

Fermer Dates - Heures

Fermer Fichiers

Fermer Références

Fermer Vrac

Je débute...

Fermer La normalisation

Fermer VBA

Attention
Aucun support
par émail !

Utilisez le forum pour les questions/réponses concernant MsAccess et les codes que vous trouverez sur ce site.
Visites

   visiteurs

   visiteurs en ligne

Vrac - Résolution de l'écran

Pour connaître la résolution de l'écran connecté au PC qui fait tourner votre application, il suffit de faire appel aux deux fonctions ci-dessous.

 

Fonctions que l'on placera dans un module général et que l'on sauvera sous mod_ResolutionEcran par exemple.
 

Option Compare Database
Option Explicit


'Facteur d'échelle calculé en fonction de la résolution actuelle de l'écran.
Global Const NCI_RESHORIZ = 8
Global Const NCI_RESVERTI = 10

'Pour obtenir la hauteur et la largeur de l'écran
Declare Function NCI_apiGetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" _
                    (ByVal hdc As Long, ByVal nIndex As Long) As Long

'Pour obtenir le descripteur numérique (entier long) de l'écran physique
Declare Function NCI_apiGetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long

'Pour obtenir le descripteur numérique de la fenêtre d'affichage
Declare Function NCI_apiGetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long

'Pour libérer la fenêtre de l'écran
Declare Function NCI_apiReleaseDC Lib "user32" Alias "ReleaseDC" _
                    (ByVal hwnd As Long, ByVal hdc As Long) As Long


                   
Function HauteurEcran() As Integer
'Objectif: Retourner la résolution verticale de l'écran

    Dim ResolutionVerticale As Integer
    Dim hDesktopWnd As Long
    Dim hDCcaps As Long
    Dim intValRetour As Integer
    'Obtenir la résolution actuelle de l'écran
    hDesktopWnd = NCI_apiGetDesktopWindow()
    hDCcaps = NCI_apiGetDC(hDesktopWnd)
    ResolutionVerticale = NCI_apiGetDeviceCaps(hDCcaps, NCI_RESVERTI)
    intValRetour = NCI_apiReleaseDC(hDesktopWnd, hDCcaps)
    HauteurEcran = CInt(ResolutionVerticale)
   
End Function

 

Function LargeurEcran() As Integer
'Objectif: Retourner la résolution horizontale de l'écran

    Dim ResolutionHorizontale As Integer
    Dim hDesktopWnd As Long
    Dim hDCcaps As Long
    Dim intValRetour As Integer
    'Obtenir la résolution actuelle de l'écran
    hDesktopWnd = NCI_apiGetDesktopWindow()
    hDCcaps = NCI_apiGetDC(hDesktopWnd)
    ResolutionHorizontale = NCI_apiGetDeviceCaps(hDCcaps, NCI_RESHORIZ)
    intValRetour = NCI_apiReleaseDC(hDesktopWnd, hDCcaps)
    LargeurEcran = CInt(ResolutionHorizontale)

End Function


 


Date de création : 12/01/2006 : 13:18
Dernière modification : 08/02/2010 : 02:12
Catégorie : Vrac
Page lue 6667 fois


Imprimer l'article Imprimer l'article

Recherche



Lettre d'information
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
Captcha
Recopier le code :
Au sujet de l'auteur
L'auteur qui fréquente (fréquentait) le forum microsoft.public.fr.access a eu le plaisir d'être nommé MVP Office-Access de janvier 2003 à décembre 2011.

Qui sont les MVP ?

Divers ;-)
Nous contacter

Haut