ACC2000: Ako previesť dvadsatín bodu pixelov

Preklady článku Preklady článku
ID článku: 210590 - Zobraziť produkty, ktorých sa tento článok týka.
Rozšírené: Vyžaduje expertné kódovanie, interoperability a viacerými používateľmi zručnosti.

Tento článok sa vzťahuje na databázu programu Microsoft Access (.mdb) a na projekt programu Microsoft Access (.adp).

Rozbaliť všetko | Zbaliť všetko

SUHRN

Pretože programu Microsoft Access ukladá vlastnosti rozmer/umiestnenia ako dvadsatín bodu, v niektorých prípadoch budete musieť previesť dvadsatín bodu pixelov, napríklad keď ste volanie funkcie Windows API. Tento článok vám ukáže, ako to urobiť.

Spoločnosť Microsoft poskytuje príklady programovacieho kódu len ako názornú ukážku bez ľubovoľnej vyjadrenej alebo implicitnej záruky. Toto zahŕňa, okrem iného, implicitné záruky obchodovateľnosti a vhodnosti pre konkrétny účel. Úroveň odbornosti článku predpokladá, že ovládate predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft môžu pomôcť vysvetliť funkčnosť konkrétny postup, ale nie modifikuje tieto príklady poskytovať pridanú funkčnosť alebo výstavbe postupy splniť vaše konkrétne požiadavky.

DALSIE INFORMACIE

Nasledujúca funkcia ConvertTwipsToPixels() môžete použiť na konvertovanie dvadsatín bodu na pixelov. Všimnite si, že pixelov nie sú vždy štvorcových (výška a šírka nie sú rovnaké); preto je potrebné prejsť do zvolenej „smer „používať (horizontálnej alebo vertikálnej).
  1. Vytvorte nový modul a do sekcie Declarations zadajte nasledujúce:
    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
    						
    POZNÁMKA: Môžete mať niektoré Microsoft Windows API funkcií definovaných v existujúcich knižnica programu Microsoft Access; preto môžu byť vaše vyhlásenia duplikáty. Ak sa zobrazí chybové hlásenie meno duplicitné postup Odstráňte alebo zakomentujte vyhlásenia vyhlásenie vo vašom kód.
  2. Zadajte nasledovný postup:
    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
    					
Chcete zavolať túto funkciu, prejsť počet dvadsatín bodu, ktorý chcete konvertovať, a iného parametra uvedie meranie horizontálne alebo vertikálne (0 pre horizontálne, non-nulové pre vertikálne). Toto je vzorka hovoru:
Function ShowConvert()
   Dim lngOldTwips As Long
   lngOldTwips = 2377
   ShowConvert = ConvertTwipsToPixels(lngOldTwips, 0)
End Function
				
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Vlastnosti

ID článku: 210590 - Posledná kontrola: 20. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Access 2000 Standard Edition
Kľúčové slová: 
kbinfo kbprogramming kbmt KB210590 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:210590

Odošlite odozvu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com