Acc 2000: Twip をピクセルに変換する方法

文書番号: 210590 - 対象製品

詳細: エキスパートコーディング、相互運用性、およびマルチユーザーのスキルが必要です。

この資料では、するには、Microsoft Access データベース (.mdb) および Access プロジェクト (.adp) に適用されます。

すべて展開する | すべて折りたたむ

概要

Access プロパティの寸法と位置を twip 単位で格納するため特定の場合、必要があります twip 単位にする場合など、ピクセル単位に変換するには、Windows API 関数を呼び出します。この資料では、この方法を示します。

Microsoft プログラミング例としては黙示の保証もないだけを提供します。これには、市場性または特定目的への適合性その他に対する暗黙的な保証についても含まれます。この資料は、例示されているプログラミング言語を作成したり、プロシージャをデバッグするために使用されるツールに精通しているユーザーを想定して作成されています。マイクロソフトサポートエンジニアは、特定のプロシージャの機能について説明することができますが、機能を追加したり、特定の要件を満たすようにプロシージャを作成するには、これらの例は変更されません。

詳細

次の ConvertTwipsToPixels() 関数を使用して、twip 単位に変換することができます。ピクセルにします。ピクセルは常に正方形ではないことに注意してください (高さと幅は異なります) です。そのため、目的に通過するのに必要なです。[方向] (水平方向または垂直方向) を使用します。

新しいモジュールを作成し、宣言セクションに次を入力します。
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
メモ:、Microsoft 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

この関数を呼び出すには、変換する twip の数を渡す、水平方向または垂直方向の測定を示す別のパラメーター(横方向、0 0 垂直)。呼び出しの例を次に示します。

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

プロパティ

文書番号: 210590 - 最終更新日: 2012年12月23日 - リビジョン: 6.0

この資料は以下の製品について記述したものです。

Microsoft Access 2000 Standard Edition

kbinfo kbprogramming kbmt KB210590 KbMtja

機械翻訳の免責

重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。

英語版 KB：210590

(http://support.microsoft.com/kb/210590/en-us/ )

Microsoft Knowledge Base の免責: Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。