DetailPage-MSS-KB

기술 자료

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

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

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

요약

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

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

추가 정보

다음 ConvertTwipsToPixels() 함수를 트윕 픽셀로 변환할 수 있습니다. 픽셀 항상 정사각형 아닙니다 (높이 및 너비 다릅니다); (가로 또는 세로) "사용하려면 원하는 방향으로" 전달하는 데 필요한 것입니다.
  1. 새 모듈을 만들고 선언 구역에서 다음을 입력하십시오:
    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 함수를 있습니다; 따라서 사용자의 선언 중복 수 있습니다. 중복 프로시저 이름 오류 메시지가 나타날 경우, 제거 또는 코드에서 선언 문을 주석으로 처리하십시오.
  2. 다음 프로시저를 입력합니다:
    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
				

본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Access 2000 Standard Edition
키워드: 
kbmt kbinfo kbprogramming KB210590 KbMtko
기계 번역된 문서기계 번역된 문서
중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.
공유
추가 지원 옵션
Microsoft Community 지원 포럼
직접 문의하기
Microsoft Certified Partner 찾기
Microsoft Store
소기업이 아닙니까?
다음에서 팔로우하십시오.