Artigo: 94927 - Última revisão: quinta-feira, 18 de Janeiro de 2007 - Revisão: 2.3

ACC: Como converter Twips Pixels

Vista lado a ladoClique aqui para exibir o artigo traduzido e o artigo original em inglês, lado a lado.
Tradução automáticaVer isenção de responsabilidades para tradução automática
Retired KB ArticleExclusão de Responsabilidade para Conteúdo sem Suporte na KB
Ver produtos para os quais este artigo se aplica.
Dica do SistemaEste artigo aplica-se a um sistema operativo diferente do que está a utilizar. Foi desactivado o conteúdo do artigo, que pode não ser relevante para si.

Nesta página

Expandir tudo | Reduzir tudo

Sumário

Avançado: Requer conhecimentos avançados sobre codificação, interoperabilidade e multi-utilizador.

Uma vez que o Microsoft Access armazena as propriedades de dimensão e a localização em twips, por vezes, poderá ser necessário converter twips pixels, tal como quando chamar uma função da API do Windows. Este artigo mostra como efectuar este procedimento.

Este artigo pressupõe que está familiarizado com o Visual Basic for Applications e criação de aplicações do Microsoft Access utilizando as ferramentas de programação fornecidas com o Microsoft Access.
Voltar ao topo

Mais Informação

Pode utilizar as funções TwipsPerPixelX() e TwipsPerPixelY() abaixo para localizar as dimensões de um pixel em twips. Dimensões em pixels podem variar entre sistemas e poderão não ser sempre quadradas, para que sejam necessárias funções separadas para largura de pixels e altura.

Para adicionar estas funções para a aplicação, copie um dos seguintes blocos de código para um novo módulo.

Nota : poderá ter algumas funções da API do Microsoft Windows definidas numa biblioteca existente do Microsoft Access; por conseguinte, as declarações podem ser duplicados. Se receber uma mensagem de erro de nome de procedimento duplicados, remover ou comentar a instrução de declaração no seu código.
Voltar ao topo

No Microsoft Access 7.0 e 97

Nota : Coloque este código de um módulo padrão, não um módulo de classe. 
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 HWND_DESKTOP As Long = 0
Const LOGPIXELSX As Long = 88
Const LOGPIXELSY As Long = 90

'--------------------------------------------------
Function TwipsPerPixelX() As Single
'--------------------------------------------------
'Returns the width of a pixel, in twips.
'--------------------------------------------------
  Dim lngDC As Long
  lngDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelX = 1440& / GetDeviceCaps(lngDC, LOGPIXELSX)
  ReleaseDC HWND_DESKTOP, lngDC
End Function

'--------------------------------------------------
Function TwipsPerPixelY() As Single
'--------------------------------------------------
'Returns the height of a pixel, in twips.
'--------------------------------------------------
  Dim lngDC As Long
  lngDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelY = 1440& / GetDeviceCaps(lngDC, LOGPIXELSY)
  ReleaseDC HWND_DESKTOP, lngDC
End Function
para utilizar estas funções, divida o número de twips que pretende converter em TwipsPerPixelX() para medida horizontal ou TwipsPerPixelY() para medida vertical. Segue-se um exemplo: 
OldTwips = 2377
NewPixels = OldTwips / TwipsPerPixelX()
Voltar ao topo

No Microsoft Access 1.x e 2.0

Nota : em exemplos de código seguinte, um sublinhado (_) no final de uma linha é utilizado como um carácter de continuação de linha. Remova o carácter de sublinhado do final da linha quando recriar este código Basic do Access. 
Option Explicit

Declare Function GetDC Lib "User" (ByVal hwnd As Integer) As Integer
Declare Sub ReleaseDC Lib "User" (ByVal hwnd As Integer, _
  ByVal hdc As Integer)
Declare Function GetDeviceCaps Lib "Gdi" (ByVal hdc As Integer, _
  ByVal nIndex As Integer) As Integer

Const HWND_DESKTOP = 0
Const LOGPIXELSX = 88
Const LOGPIXELSY = 90

'--------------------------------------------------
Function TwipsPerPixelX() As Single
'--------------------------------------------------
'Returns the width of a pixel, in twips.
'--------------------------------------------------
  Dim intDC As Integer
  intDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelX = 1440 / GetDeviceCaps(intDC, LOGPIXELSX)
  ReleaseDC HWND_DESKTOP, intDC
End Function

'--------------------------------------------------
Function TwipsPerPixelY() As Single
'--------------------------------------------------
'Returns the height of a pixel, in twips.
'--------------------------------------------------
  Dim intDC As Integer
  intDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelY = 1440 / GetDeviceCaps(intDC, LOGPIXELSY)
  ReleaseDC HWND_DESKTOP, intDC
End Function
para utilizar estas funções, divida o número de twips que pretende converter em TwipsPerPixelX() para medida horizontal ou TwipsPerPixelY() para medida vertical. Segue-se um exemplo: 
OldTwips = 2377
NewPixels = OldTwips / TwipsPerPixelX()
Voltar ao topo

Referências

Para obter mais informações sobre este tópico, procure declarar instrução , utilizando o índice remissivo da ajuda do Microsoft Access.
Voltar ao topo
A informação contida neste artigo aplica-se a:
  • Microsoft Access 1.0 Standard Edition
  • Microsoft Access 1.1 Standard Edition
  • Microsoft Access 2.0 Standard Edition
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
Voltar ao topo
Palavras-chave: 
kbmt kbhowto kbprogramming KB94927 KbMtpt
Voltar ao topo
Tradução automáticaTradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 94927  (http://support.microsoft.com/kb/94927/en-us/ )
Voltar ao topo
Retired KB ArticleExclusão de Responsabilidade para Conteúdo sem Suporte na KB
Este artigo foi escrito sobre produtos para os quais a Microsoft já não fornece suporte. Por conseguinte, este artigo é oferecido "tal como está" e deixará de ser actualizado.
Voltar ao topo