ACC2000: Hoe Twips omzetten in Pixels

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
Dit artikel is gearchiveerd. Het wordt aangeboden in de huidige vorm en wordt niet meer bijgewerkt.
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, inbepaalde gevallen wellicht twips omzetten in pixels, bijvoorbeeld wanneer ueen 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 converterenpixels. Pixels zijn niet altijd vierkant (de hoogte enbreedte 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 ExplicitDeclare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongDeclare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _  ByVal hdc As Long) As LongDeclare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _  ByVal nIndex As Long) As LongConst WU_LOGPIXELSX = 88Const WU_LOGPIXELSY = 90						
    OPMERKING: U mogelijk sommige Microsoft Windows API-functies die zijn gedefinieerd in een bestaande Microsoft Access-bibliotheek. Daarom is de declaraties mogelijkdubbele records. Als er een foutbericht van dubbele procedure naamVerwijder 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) * lngPixelsPerInchEnd 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				
INF-bestand

Waarschuwing: dit artikel is automatisch vertaald

Eigenschappen

Artikel-id: 210590 - Laatst bijgewerkt: 12/05/2015 11:35:02 - Revisie: 3.0

Microsoft Access 2000 Standard Edition

  • kbnosurvey kbarchive kbinfo kbprogramming kbmt KB210590 KbMtnl
Feedback