Twipstopixelsjava_Access量度单位缇与像素，厘米等的换算关系

在Access中&＃xff0c;我们常常看到计量单位缇(Twips)。

所谓缇是屏幕的一种量度单位&＃xff0c;等于 1/20 磅。缇是独立于屏幕的单位&＃xff0c;可确保在所有显示系统中&＃xff0c;屏幕应用程序中的屏幕元素的位置和比例都相同。逻辑上一英寸约为 1440 缇&＃xff0c;一厘米为 567 缇 ( 在显示时&＃xff0c;屏幕项目的长度是用英寸或厘米测量的 )。

像素(Pixels)&＃xff1a;监视器或打印机分辨率的最小单位

那么缇跟像素是怎么计算的呢?

右键&＃61;》桌面&＃61;》属性&＃xff0c;选择“设置”选卡&＃xff0c;单击高级按钮。

里面出现DPI设置。一般为“正常尺寸(96 DPI)”。

DPI的意思就是 DPI (Dots per Inch)。因此我们可以得到如下换算公式

1 Twip &＃61; 1440 TPI / 96 DPI &＃61; 15 Pixels

这里顺便说一下 ACCESS 中的其他几个单位的转换关系

磅&＃xff1a;指打印的字符的高度的度量单位。1 磅等于 1/72 英寸&＃xff0c;或大约等于 1 厘米的 1/28。

英寸&＃xff1a;2.54 厘米

一般情况下&＃xff1a;1厘米&＃61;8505像素

另外分享几个堤与像素相互转换的通用函数

Option Compare Database

Option Explicit

Private Declare Function apiGetDC Lib "user32" Alias "GetDC" _

(ByVal hwnd As Long) As Long

Private Declare Function apiReleaseDC Lib "user32" Alias "ReleaseDC" _

(ByVal hwnd As Long, ByVal hdc As Long) As Long

Private Declare Function apiGetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" _

(ByVal hdc As Long, ByVal nIndex As Long) As Long

Private Const LOGPIXELSX &＃61; 88

Private Const LOGPIXELSY &＃61; 90

Public Const DIRECTION_VERTICAL &＃61; 1

Public Const DIRECTION_HORIZONTAL &＃61; 0

&＃39;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;

&＃39;-函数名称: gFunTwipsToPixels

&＃39;-功能描述: 转换堤到像素

&＃39;-输入参数说明: 参数1:rlngTwips Long 需要转换的堤

&＃39; 参数2:rlngDirection Long DIRECTION_VERTICAL是Y方向 DIRECTION_HORIZONTAL为X方向

&＃39;-返回参数说明: 转换后像素值

&＃39;-使用语法示例: gFunTwipsToPixels 50,DIRECTION_VERTICAL

&＃39;-参考:

&＃39;-使用注意:

&＃39;-兼容性: 97,2000,XP compatible

&＃39;-作者: 王宇虹(参考微软KB)&＃xff0c;改进&＃xff1a;王宇虹

&＃39;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;

Function gFunTwipsToPixels(rlngTwips As Long, rlngDirection As Long) As Long

On Error GoTo Err_gFunTwipsToPixels

Dim lngDeviceHandle As Long

Dim lngPixelsPerInch As Long

lngDeviceHandle &＃61; apiGetDC(0)

If rlngDirection &＃61; DIRECTION_HORIZONTAL Then &＃39;水平X方向

lngPixelsPerInch &＃61; apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSX)

Else &＃39;垂直Y方向

lngPixelsPerInch &＃61; apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSY)

End If

lngDeviceHandle &＃61; apiReleaseDC(0, lngDeviceHandle)

gFunTwipsToPixels &＃61; rlngTwips / 1440 * rlngPixelsPerInch

Exit_gFunTwipsToPixels:

On Error Resume Next

Exit Function

Err_gFunTwipsToPixels:

MsgBox Err.Description, vbOKOnly &＃43; vbCritical, "Error: " & Err.Number

Resume Exit_gFunTwipsToPixels

End Function

&＃39;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;

&＃39;-函数名称: gFunPixelsToTwips

&＃39;-功能描述: 转换像素到堤

&＃39;-输入参数说明: 参数1:rlngPixels Long 需要转换的像素

&＃39; 参数2:rlngDirection Long DIRECTION_VERTICAL是Y方向 DIRECTION_HORIZONTAL为X方向

&＃39;-返回参数说明: 转换后堤值

&＃39;-使用语法示例: gFunPixelsToTwips 50,DIRECTION_VERTICAL

&＃39;-参考:

&＃39;-使用注意:

&＃39;-兼容性: 97,2000,XP compatible

&＃39;-作者: 王宇虹(参考微软KB)&＃xff0c;改进&＃xff1a;王宇虹

&＃39;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;

Function gFunPixelsToTwips(rlngPixels As Long, rlngDirection As Long) As Long

On Error GoTo Err_gFunPixelsToTwips

Dim lngDeviceHandle As Long

Dim lngPixelsPerInch As Long

lngDeviceHandle &＃61; apiGetDC(0)

If rlngDirection &＃61; DIRECTION_HORIZONTAL Then &＃39;水平X方向

lngPixelsPerInch &＃61; apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSX)

Else &＃39;垂直Y方向

lngPixelsPerInch &＃61; apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSY)

End If

lngDeviceHandle &＃61; apiReleaseDC(0, lngDeviceHandle)

gFunPixelsToTwips &＃61; rlngPixels * 1440 / rlngPixelsPerInch

Exit_gFunPixelsToTwips:

On Error Resume Next

Exit Function

Err_gFunPixelsToTwips:

MsgBox Err.Description, vbOKOnly &＃43; vbCritical, "Error: " & Err.Number

Resume Exit_gFunPixelsToTwips

End Function