ACC2000: Ako previesť dvadsatín bodu pixelov

ID článku: 210590 - Zobraziť produkty, ktorých sa tento článok týka.
Strojovo preloženéKliknutím sem zobrazíte vyhlásenie týkajúce sa strojovo preložených článkov databázy KB
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.
Späť na začiatok | Odošlite odozvu

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
Späť na začiatok | Odošlite odozvu
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
(http://go.microsoft.com/fwlink/?LinkId=151500)
for other considerations.
Späť na začiatok | Odošlite odozvu

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
(http://support.microsoft.com/kb/210590/en-us/ )
Späť na začiatok | Odošlite odozvu

Odošlite odozvu

 
Späť na začiatokSpäť na začiatok