Access量度單位緹與像素,厘米等的換算關(guān)系
- 2017-11-20 14:20:00
- cg1 轉(zhuǎn)貼
- 6484
在Access中,我們常??吹接嬃繂挝?span>緹(Twips) 。
所謂緹是屏幕的一種量度單位,等于 1/20 磅。緹是獨立于屏幕的單位,可確保在所有顯示系統(tǒng)中,屏幕應(yīng)用程序中的屏幕元素的位置和比例都相同。邏輯上一英寸約為 1440 緹,一厘米為 567 緹 ( 在顯示時,屏幕項目的長度是用英寸或厘米測量的 )。
像素(Pixels):監(jiān)視器或打印機分辨率的最小單位
那么緹跟像素是怎么計算的呢?
右鍵=》桌面=》屬性,選擇“設(shè)置”選卡,單擊高級按鈕。
里面出現(xiàn)DPI設(shè)置。一般為“正常尺寸(96 DPI)”。
DPI的意思就是 DPI (Dots per Inch)。因此我們可以得到如下?lián)Q算公式
1 Twip = 1440 TPI / 96 DPI = 15 Pixels

這里順便說一下 ACCESS 中的其他幾個單位的轉(zhuǎn)換關(guān)系
磅:指打印的字符的高度的度量單位。1 磅等于 1/72 英寸,或大約等于 1 厘米的 1/28。
英寸:2.54 厘米
一般情況下:1厘米=8505像素
另外分享幾個堤與像素相互轉(zhuǎn)換的通用函數(shù)
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 = 88 Private Const LOGPIXELSY = 90 Public Const DIRECTION_VERTICAL = 1 Public Const DIRECTION_HORIZONTAL = 0 '=============================================================================== '-函數(shù)名稱: gFunTwipsToPixels '-功能描述: 轉(zhuǎn)換堤到像素 '-輸入?yún)?shù)說明: 參數(shù)1:rlngTwips Long 需要轉(zhuǎn)換的堤 ' 參數(shù)2:rlngDirection Long DIRECTION_VERTICAL是Y方向 DIRECTION_HORIZONTAL為X方向 '-返回參數(shù)說明: 轉(zhuǎn)換后像素值 '-使用語法示例: gFunTwipsToPixels 50,DIRECTION_VERTICAL '-參考: '-使用注意: '-兼容性: 97,2000,XP compatible '-作者: 王宇虹(參考微軟KB),改進:王宇虹 '=============================================================================== Function gFunTwipsToPixels(rlngTwips As Long, rlngDirection As Long) As Long On Error GoTo Err_gFunTwipsToPixels Dim lngDeviceHandle As Long Dim lngPixelsPerInch As Long lngDeviceHandle = apiGetDC(0) If rlngDirection = DIRECTION_HORIZONTAL Then '水平X方向 lngPixelsPerInch = apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSX) Else '垂直Y方向 lngPixelsPerInch = apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSY) End If lngDeviceHandle = apiReleaseDC(0, lngDeviceHandle) gFunTwipsToPixels = rlngTwips / 1440 * rlngPixelsPerInch Exit_gFunTwipsToPixels: On Error Resume Next Exit Function Err_gFunTwipsToPixels: MsgBox Err.Description, vbOKOnly + vbCritical, "Error: " & Err.Number Resume Exit_gFunTwipsToPixels End Function '=============================================================================== '-函數(shù)名稱: gFunPixelsToTwips '-功能描述: 轉(zhuǎn)換像素到堤 '-輸入?yún)?shù)說明: 參數(shù)1:rlngPixels Long 需要轉(zhuǎn)換的像素 ' 參數(shù)2:rlngDirection Long DIRECTION_VERTICAL是Y方向 DIRECTION_HORIZONTAL為X方向 '-返回參數(shù)說明: 轉(zhuǎn)換后堤值 '-使用語法示例: gFunPixelsToTwips 50,DIRECTION_VERTICAL '-參考: '-使用注意: '-兼容性: 97,2000,XP compatible '-作者: 王宇虹(參考微軟KB),改進:王宇虹 '=============================================================================== Function gFunPixelsToTwips(rlngPixels As Long, rlngDirection As Long) As Long On Error GoTo Err_gFunPixelsToTwips Dim lngDeviceHandle As Long Dim lngPixelsPerInch As Long lngDeviceHandle = apiGetDC(0) If rlngDirection = DIRECTION_HORIZONTAL Then '水平X方向 lngPixelsPerInch = apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSX) Else '垂直Y方向 lngPixelsPerInch = apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSY) End If lngDeviceHandle = apiReleaseDC(0, lngDeviceHandle) gFunPixelsToTwips = rlngPixels * 1440 / rlngPixelsPerInch Exit_gFunPixelsToTwips: On Error Resume Next Exit Function Err_gFunPixelsToTwips: MsgBox Err.Description, vbOKOnly + vbCritical, "Error: " & Err.Number Resume Exit_gFunPixelsToTwips End Function
分享
Access數(shù)據(jù)庫自身
- office課程播放地址及課程明細
- Excel Word PPT Access VBA等Office技巧學(xué)習(xí)平臺
- 將( .accdb) 文件格式數(shù)據(jù)庫轉(zhuǎn)換為早期版本(.mdb)的文件格式
- 將早期的數(shù)據(jù)庫文件格式(.mdb)轉(zhuǎn)換為 (.accdb) 文件格式
- KB5002984:配置 Jet Red Database Engine 數(shù)據(jù)庫引擎和訪問連接引擎以阻止對遠程數(shù)據(jù)庫的訪問(remote table)
- Access 365 /Access 2019 數(shù)據(jù)庫中哪些函數(shù)功能和屬性被沙箱模式阻止(如未啟動宏時)
- Access Runtime(運行時)最全的下載(2007 2010 2013 2016 2019 Access 365)
Access Activex第三方控件
- Activex控件或Dll 在某些電腦無法正常注冊的解決辦法(regsvr32注冊時卡?。?/a>
- office使用部分控件時提示“您沒有使用該ActiveX控件許可的問題”的解決方法
- RTF文件(富文本格式)的一些解析
- Access樹控件(treeview) 64位Office下出現(xiàn)橫向滾動條不會自動定位的解決辦法
- Access中國樹控件 在win10電腦 節(jié)點行間距太小的解決辦法
- EXCEL 2019 64位版(Office 2019 64位)早就支持64位Treeview 樹控件 ListView列表等64位MSCOMMCTL.OCX控件下載
- VBA或VB6調(diào)用WebService(直接Post方式)并解析返回的XML
Access ADP Sql Server等
- 早期PB程序連接Sqlserver出現(xiàn)錯誤
- MMC 不能打開文件C:/Program Files/Microsoft SQL Server/80/Tools/Binn/SQL Server Enterprise Manager.MSC 可能是由于文件不存在,不是一個MMC控制臺,或者用后來的MMC版
- sql server連接不了的解決辦法
- localhost與127.0.0.1區(qū)別
- Roych的淺談數(shù)據(jù)庫開發(fā)系列(Sql Server)
- sqlserver 自動備份對備份目錄沒有存取權(quán)限的解決辦法
- 安裝Sql server 2005 express 和SQLServer2005 Express版企業(yè)管理器 SQLServer2005_SSMSEE
文章分類
聯(lián)系我們
聯(lián)系人: | 王先生 |
---|---|
Email: | 18449932@qq.com |
QQ: | 18449932 |
微博: | officecn01 |