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

Překlady článku Překlady článku
ID článku: 210590 - Produkty, které se vztahují k tomuto článku.
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

Dejte nám zpětnou vazbu

 

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