Recherche
Les mémos
-
Tables
- · Annuler la suppression
- · Attacher feuilles Excel
- · Cacher une table
- · Concaténer une colonne
- · Créer une table
- · Dernière modification
- · Index composé
- · Limiter les enregistrements
- · Liste des champs
- · Modifier valeur de champ
- · Où est la table
- · Peupler une table de Logs
- · Renuméroter un champ
- · Réattacher les liens
- · Réattacher les liens locaux
- · Scinder un champ
- · Supprimer les tables liées
- · Trouver la différence
-
Formulaires
- · Afficher les derniers
- · Ajout à liste modifiable
- · Ajouter enregistrement
- · Barre de progression
- · Click ou double-click
- · Confirmer l'enregistrement
- · Copier - Coller
- · Défilement de la roulette
- · Exporter un graphique
- · Filtres personnalisés
- · Identifiants d'un Form continu
- · Importer les formulaires
- · Langue utilisateur
- · Limiter la saisie
- · Mémoriser une valeur
- · No enregistrement
- · Ouvert en normal
- · Position des formulaires
- · Recopier dernière valeur
- · Scroll automatique
- · Switch Modal
- · Tri manuel dans form
- · Tri personnalisé
- · Verrouillage de formulaire
- · Vérifier les saisies
-
Automation
-
Administration
- · Chemin de la base
- · Déconnecter utilisateur
- · Désactiver le Shift
- · Désactiver le Shift(2)
- · Liste des références
- · Liste des utilisateurs
- · Lister les applications
- · Mode exclusif
- · Nom d'utilisateur
- · Nom de l'ordinateur
- · Paramètres régionaux
- · Propriétés de la base
- · Sauvegarde journalière
- · Sauvegarde mensuelle
- · Shell and Wait
- · Version de Windows
-
Envoyer un mail
-
Outlook
- · Ajouter des contacts
- · Déplacer les messages
- · Enregistrer pièces jointes
- · Est ouvert ?
- · Exporter les contacts
- · Exporter les rendez-vous
- · Importer les messages
- · Integrer un état
- · Lire les contacts
- · Lire les rendez-vous
- · Lister les dossiers
- · Lister les tâches
- · SendMail (MAPI)
- · SendMail Automation
-
Dates - Heures
-
Fichiers
- · Compter les dossiers
- · Créer un dossier
- · Générer fichier TXT
- · Importer fichier TXT
- · Le dossier existe ?
- · Le fichier existe ?
- · Lister les fichiers
- · Lister les fichiers (2007)
- · Lister les sous-dossiers
- · Rechercher un répertoire
- · Répertoire dans table
- · Supprimer ReadOnly
- · Sélection de dossier
- · Sélection de dossier (API)
- · Sélection de fichiers
- · Sélection fichier (MOL)
-
Références
Je débute...
-
La normalisation
-
VBA
Visites
1259002 visiteurs
3 visiteurs en ligne
Nous contacter
Contact
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 '/ '/ A placer dans la partie déclarative '/ '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
Les fonctions :
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
Catégorie : Les mémos - Vrac
Page lue 9270 fois
Page lue 9270 fois