ACC2000: Jak převést twipů na pixely

ID článku: 210590 - Produkty, které se vztahují k tomuto článku.
Strojově přeložený článekUPOZORNĚNÍ: TENTO ČLÁNEK BYL STROJOVĚ PŘELOŽEN
Upřesnit: Vyžaduje odborných kódování interoperability a víceuživatelské dovedností.

Tento článek se vztahuje k databázi aplikace Microsoft Access (MDB) a k projektu aplikace Microsoft Access (ADP).

Rozbalit všechny záložky | Minimalizovat všechny záložky

Souhrn

Protože aplikace Microsoft Access ukládá jako twipech vlastnosti dimenze umístění, v některých případech bude pravděpodobně třeba převést twipů na obrazové body, jako je například při volání funkce rozhraní API systému Windows. Tento článek popisuje, jak postupovat.

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci bez žádné záruky výslovně uvedené nebo mlčky. To zahrnuje, ale není omezen pouze na předpokládaných záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že jste je obeznámen s programovacím jazykem, který je předmětem ukázky a s nástroji, které slouží k vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu však nemohou tyto příklady přidány funkce nebo vytvářet postupy podle svých specifických požadavků.

Další informace

Pomocí následující funkce ConvertTwipsToPixels() můžete převést twipů na obrazové body. Všimněte si, že obrazové body nejsou vždy čtvereček (výšku a šířku nejsou stejné); proto je nutné předat v požadovaném "směru" použití (vodorovné nebo svislé).
  1. Vytvořte nový modul a zadejte následující v sekci deklarací: 
    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: některé funkce rozhraní API systému Windows společnosti Microsoft, definované v existující knihovně bude možná nutné; proto vaše prohlášení může být duplicitní. Pokud obdržíte chybovou zprávu postup duplicitní název, odeberte nebo komentářů dezaktivovat příkazu prohlášení ve vašem kódu.
  2. Zadejte následující proceduru: 
    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-li volat tuto funkci, předat počet twip, který chcete převést a jiný parametr určující vodorovné nebo svislé měření (0 pro vodorovné nenulovou pro svislé). Následující volání vzorku je: 
Function ShowConvert()
   Dim lngOldTwips As Long
   lngOldTwips = 2377
   ShowConvert = ConvertTwipsToPixels(lngOldTwips, 0)
End Function

Vlastnosti

ID článku: 210590 - Poslední aktualizace: 23. června 2005 - Revize: 2.0
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Access 2000 Standard Edition
Klíčová slova: 
kbmt kbinfo kbprogramming KB210590 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:210590
(http://support.microsoft.com/kb/210590/en-us/ )
Zpět nahoru | Dejte nám zpětnou vazbu

Dejte nám zpětnou vazbu

 
Zpět nahoruZpět nahoru