Numéro d'article: 94927 - Dernière mise à jour: jeudi 18 janvier 2007 - Version: 2.3

ACC : Comment faire pour convertir en twips en pixels

Affichage côte à côteCliquez ici si vous souhaitez afficher en côte à côte l?article anglais et sa traduction automatique en français
Traduction automatiqueATTENTION : Cet article est issu du système de traduction automatique
Retired KB ArticleExclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Voir les produits auxquels s'applique cet article
A noterCet article s'applique à un système d'exploitation différent de celui que vous utilisez. Le contenu de l'article qui ne vous concerne peut-être pas est désactivé.

Sommaire

Agrandir tout | Réduire tout

Résumé

Options avancées : nécessite codage expert, de l'interopérabilité et de compétences multi-utilisateur.

Comme Microsoft Access stocke les propriétés de dimension et l'emplacement en twips, vous devrez parfois peut-être convertir en twips en pixels, tels que lorsque vous appelez une fonction API Windows. Cet article explique comment procéder.

Cet article suppose que vous êtes familiarisé avec Visual Basic pour Applications et Création d'applications de Microsoft Access à l'aide les outils de programmation fournis avec Microsoft Access.
Retour au début

Plus d'informations

Vous pouvez utiliser les fonctions TwipsPerPixelX() et TwipsPerPixelY() ci-dessous pour trouver les dimensions d'un pixel dans twips. Dimensions en pixels peuvent varier entre les systèmes et risque de ne pas être toujours carrées, des fonctions distinctes de largeur en pixels et de hauteur sont requises.

Pour ajouter ces fonctions à votre application, copiez parmi les blocs de code suivants dans un nouveau module.

Remarque : vous devrez peut-être certaines fonctions API de Microsoft Windows définies dans une bibliothèque Microsoft Access existante ; par conséquent, vos déclarations peuvent être des doublons. Si vous recevez un message d'erreur Nom procédure en double, supprimer ou commentaire l'instruction de déclaration dans votre code.
Retour au début

Dans Microsoft Access 7.0 et 97

Remarque : placez ce code dans un module standard, pas un module de classe. 
Option Explicit

Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
  ByVal hdc As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
  ByVal nIndex As Long) As Long

Const HWND_DESKTOP As Long = 0
Const LOGPIXELSX As Long = 88
Const LOGPIXELSY As Long = 90

'--------------------------------------------------
Function TwipsPerPixelX() As Single
'--------------------------------------------------
'Returns the width of a pixel, in twips.
'--------------------------------------------------
  Dim lngDC As Long
  lngDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelX = 1440& / GetDeviceCaps(lngDC, LOGPIXELSX)
  ReleaseDC HWND_DESKTOP, lngDC
End Function

'--------------------------------------------------
Function TwipsPerPixelY() As Single
'--------------------------------------------------
'Returns the height of a pixel, in twips.
'--------------------------------------------------
  Dim lngDC As Long
  lngDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelY = 1440& / GetDeviceCaps(lngDC, LOGPIXELSY)
  ReleaseDC HWND_DESKTOP, lngDC
End Function
pour utiliser ces fonctions, divisez le nombre de twips à convertir en soit TwipsPerPixelX() pour mesure horizontale ou TwipsPerPixelY() de mesure verticale. Voici un exemple : 
OldTwips = 2377
NewPixels = OldTwips / TwipsPerPixelX()
Retour au début

Dans Microsoft Access 1.x et 2.0

Remarque : dans les exemples de code suivant, un soulignement (_) à la fin d'une ligne est utilisé comme un caractère de suite ligne. Supprimez le trait de soulignement de la fin de la ligne lorsque vous recréez ce code Access Basic. 
Option Explicit

Declare Function GetDC Lib "User" (ByVal hwnd As Integer) As Integer
Declare Sub ReleaseDC Lib "User" (ByVal hwnd As Integer, _
  ByVal hdc As Integer)
Declare Function GetDeviceCaps Lib "Gdi" (ByVal hdc As Integer, _
  ByVal nIndex As Integer) As Integer

Const HWND_DESKTOP = 0
Const LOGPIXELSX = 88
Const LOGPIXELSY = 90

'--------------------------------------------------
Function TwipsPerPixelX() As Single
'--------------------------------------------------
'Returns the width of a pixel, in twips.
'--------------------------------------------------
  Dim intDC As Integer
  intDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelX = 1440 / GetDeviceCaps(intDC, LOGPIXELSX)
  ReleaseDC HWND_DESKTOP, intDC
End Function

'--------------------------------------------------
Function TwipsPerPixelY() As Single
'--------------------------------------------------
'Returns the height of a pixel, in twips.
'--------------------------------------------------
  Dim intDC As Integer
  intDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelY = 1440 / GetDeviceCaps(intDC, LOGPIXELSY)
  ReleaseDC HWND_DESKTOP, intDC
End Function
pour utiliser ces fonctions, divisez le nombre de twips à convertir en soit TwipsPerPixelX() pour mesure horizontale ou TwipsPerPixelY() de mesure verticale. Voici un exemple : 
OldTwips = 2377
NewPixels = OldTwips / TwipsPerPixelX()
Retour au début

Références

Pour plus d'informations à ce sujet, recherchez déclarer instruction , à l'aide de l'index de l'aide de Microsoft Access.
Retour au début
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Access 1.0 Standard
  • Microsoft Access 1.1 Standard
  • Microsoft Access 2.0 Standard
  • Microsoft Access 95 Standard
  • Microsoft Access 97 Standard
Retour au début
Mots-clés : 
kbmt kbhowto kbprogramming KB94927 KbMtfr
Retour au début
Traduction automatiqueTraduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 94927  (http://support.microsoft.com/kb/94927/en-us/ )
Retour au début
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.
Retired KB ArticleExclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par conséquent fourni « en l'état » et ne sera plus mis à jour.
Retour au début