DetailPage-MSS-KB

Knowledge Base

Artikel ID: 210590 - Laatste beoordeling: zaterdag 17 september 2011 - Wijziging: 3.0

 
Geavanceerd: Expert codering, interoperabiliteit en meerdere gebruikers vaardigheden vereist.

Dit artikel heeft betrekking op een Microsoft Access-database (. mdb) en een Microsoft Access-project (. adp).

Samenvatting

Omdat Microsoft Access slaat dimensie/locatie eigenschappen als twips, in bepaalde gevallen wellicht twips omzetten in pixels, bijvoorbeeld wanneer u een Windows API-functie aanroept. In dit artikel ziet u hoe u dit doet.

Microsoft biedt program meer voorbeelden ter illustratie alleen, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend met de programmeer taal worden opgespoord en met de hulp programma's die worden gebruikt bent voor het maken en waarmee fouten in procedures. Ondersteuningstechnici van Microsoft kunnen helpen verklaren de functionaliteit van een bepaalde procedure, maar zij zal deze voorbeelden om extra functionaliteit of samens tellen van procedures om te voldoen aan uw specifieke vereisten niet wijzigen.

Meer informatie

U kunt de volgende functie ConvertTwipsToPixels() twips te converteren pixels. Pixels zijn niet altijd vierkant (de hoogte en breedte zijn niet hetzelfde); Daarom is het noodzakelijk om in de gewenste "richting" (horizont aal of verticaal).
  1. Maak een nieuwe module en typ het volgende in de sectie declaraties:
    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 WU_LOGPIXELSX = 88
    Const WU_LOGPIXELSY = 90
    						
    OPMERKING: U mogelijk sommige Microsoft Windows API-functies die zijn gedefinieerd in een bestaande Microsoft Access-bibliotheek. Daarom is de declaraties mogelijk dubbele records. Als er een foutbericht van dubbele procedure naam Verwijder of commentaar de declaratie-instructie in uw code.
  2. Typ de volgende procedure:
    Function ConvertTwipsToPixels (lngTwips as Long, _
       lngDirection as long) As Long
    
       'Handle to device
       Dim lngDC as long                        
       Dim lngPixelsPerInch as Long
       Const nTwipsPerInch = 1440
       lngDC = GetDC(0)
       
       If (lngDirection = 0) Then       'Horizontal
          lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSX)
       Else                            'Vertical
          lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSY)
       End If
       lngDC = ReleaseDC(0, lngDC)
       ConvertTwipsToPixels = (lngTwips / nTwipsPerInch) * lngPixelsPerInch
    
    End Function
    					
Deze functie wilt oproepen, geeft u het aantal twips die u converteren wilt, en een andere parameter die aangeeft dat de horizontale of verticale maat (0 voor horizont aal, nul voor verticaal). Hier volgt een voorbeeld aanroep:
Function ShowConvert()
   Dim lngOldTwips As Long
   lngOldTwips = 2377
   ShowConvert = ConvertTwipsToPixels(lngOldTwips, 0)
End Function
				

De informatie in dit artikel is van toepassing op:
  • Microsoft Access 2000 Standard Edition
Trefwoorden: 
kbinfo kbprogramming kbmt KB210590 KbMtnl
Machine-translated ArticleMachine-translated Article
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:210590  (http://support.microsoft.com/kb/210590/en-us/ )
Delen
Extra ondersteuningsopties
Microsoft Community Support-forums
Neem rechtstreeks contact met ons op
Een door Microsoft gecertificeerde partner zoeken
Microsoft Store