2024年5月11日发(作者：台电平板电脑忘记密码怎么办)
VBA中的Twip与Point尺寸单位转换水文工具集
VBA中的Twip与Point尺寸单位转换
分类:代码, 博客 标签:VBA
VBA中的尺寸单位很丰富，如Twip、Point、Pixel、Inch、Character、Millimeter、
Centimeter等，同时也很复杂，因此单位转换时会觉得有点混乱。这里介绍一下用得比
较多的Twip，Point和Pixel及相互间的转换。
Twip/Point是一个与屏幕无关的测量单位，使用这两个单位在打印时不需要考虑屏
幕分辨率的问题，是以在水文水利工程成图中使用这样的单位可以打印出精确的距离，方
便使用。Pixel则是同屏幕分辨率有关的测量单位，屏幕上显示最小的一个点就是一个像
素。
Twip、Point和Inch转换公式如下（1 Point等于20 Twip，1 Inch等于72 Point）：
Twip=1/20*Point=1/1440*Inch
Point=20*Twip=1/72*Inch
而Twip/Point与Pixel之间则要依据设备环境参数做转换，下面是一些转换的自定义
函数。
e Const HORZRES = 8
e Const VERTRES = 10
e Const LOGPIXELSX = 88
e Const LOGPIXELSY = 90
e Const TWIPSPERINCH = 1440
06.
Declare Function GetDC Lib "user32" _
08.(ByVal hwnd As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" _
10.(ByVal hDC As Long, _
nIndex As Long) As Long
Declare Function ReleaseDC Lib "user32" _
13.(ByVal hwnd As Long, _
hDC As Long) As Long
发布者：admin，转转请注明出处：http://www.yc00.com/num/1715381211a2609494.html
评论列表（0条）