ACC2000: 트윕 위해 픽셀 변환 방법

고급: 전문적인 코드 작성, 상호 운용성 및 다중 사용자 기술이 필요합니다.

이 문서에서는 Microsoft Access 데이터베이스 (.mdb) 및 Microsoft Access 프로젝트 (.adp) 적용됩니다.

모두 확대 | 모두 축소

요약

특정 경우에 Microsoft Access로 트윕 차원/위치 속성을 저장하기 때문에 Windows API 함수를 호출할 때 같은 픽셀 트윕 변환 할 수 있습니다. 이 문서에서는 이 작업을 수행하는 방법을 보여 줍니다.

Microsoft는 묵시적인 보증 없이 목적으로만 프로그래밍 예제를 제공합니다. 이 포함되지만, 상품성 또는 특정 목적에의 적합성에 대한 묵시적인된 보증이 제한되지 않습니다. 이 문서에서는 만들려면 및 프로시저를 디버깅하는 데 사용되는 도구 및 여기서 설명하는 프로그래밍 언어에 익숙한 사용자를 대상으로 합니다. Microsoft 지원 엔지니어는 사용자에게 도움이 되도록 특정 절차에 대한 기능을 설명할 수 있지만 추가 기능을 제공하거나 특정 요구 사항에 맞도록 프로시저를 구성하지는 이 예제를 수정하지 않습니다.

추가 정보

다음 ConvertTwipsToPixels() 함수를 트윕 픽셀로 변환할 수 있습니다. 픽셀 항상 정사각형 아닙니다 (높이 및 너비 다릅니다); (가로 또는 세로) "사용하려면 원하는 방향으로" 전달하는 데 필요한 것입니다.

새 모듈을 만들고 선언 구역에서 다음을 입력하십시오:
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
참고: 기존 Access 라이브러리에서 정의된 일부 Microsoft Windows API 함수를 있습니다; 따라서 사용자의 선언 중복 수 있습니다. 중복 프로시저 이름 오류 메시지가 나타날 경우, 제거 또는 코드에서 선언 문을 주석으로 처리하십시오.

다음 프로시저를 입력합니다:

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

이 함수를 호출하려면, 변환할 트윕 수와 가로 또는 세로 측정 단위를 나타내는 다른 매개 변수를 전달하는 (가로, 0이 아닌 0 세에 대한). 다음 샘플에서는 호출입니다:

Function ShowConvert()
   Dim lngOldTwips As Long
   lngOldTwips = 2377
   ShowConvert = ConvertTwipsToPixels(lngOldTwips, 0)
End Function

속성

기술 자료: 210590 - 마지막 검토: 2005년 6월 23일 목요일 - 수정: 2.0

본 문서의 정보는 다음의 제품에 적용됩니다.

Microsoft Access 2000 Standard Edition

kbmt kbinfo kbprogramming KB210590 KbMtko

기계 번역된 문서

중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

이 문서의 영문 버전 보기.