您可以用下面給出這一小段代碼檢測當前屏幕分辨率,然后根據結果作出反應──例如,重新調整窗體大小以適應用程序戶分辨率。
峨眉山網站制作公司哪家好,找成都創(chuàng)新互聯!從網頁設計、網站建設、微信開發(fā)、APP開發(fā)、響應式網站建設等網站項目制作,到程序開發(fā),運營維護。成都創(chuàng)新互聯公司2013年成立到現在10年的時間,我們擁有了豐富的建站經驗和運維經驗,來保證我們的工作的順利進行。專注于網站建設就選成都創(chuàng)新互聯。
Public Function CheckRez(pixelWidth As Long, pixelHeight As Long) As Boolean
'
Dim lngTwipsX As Long
Dim lngTwipsY As Long
'
' convert pixels to twips
lngTwipsX = pixelWidth * 15
lngTwipsY = pixelHeight * 15
'
' check against current settings
If lngTwipsX Screen.Width Then
CheckRez = False
Else
If lngTwipsY Screen.Height Then
CheckRez = False
Else
CheckRez = True
End If
End If
'
End Function
Next, run the following code at the start of the program:
If CheckRez(640, 480) = False Then
MsgBox "Incorrect screen size!"
Else
MsgBox "Screen Resolution Matches!"
End If
默認單位是像素
96是系統(tǒng)的一種設定,每英寸的點數,是系統(tǒng)界面用小字體時的設置
用像素數除以dpi沒有意義
獲取監(jiān)視器的水平分辨率
獲取監(jiān)視器的垂直分辨率
通過修改注冊表修改分辨率,具體位置如下
1920和1080就是顯示器分辨率
重置顯示器實現變更
'CommandBotton一個Picture控件一個
'把picture1的AutoSize屬性設為True
'用Picture里裝載那張你需要的圖片
'然后
Private Sub Command1_Click()
i = MsgBox("圖片的分辨率為:" + Str(Picture1.ScaleWidth / 15) + "X" + Str(Picture1.ScaleHeight / 15))
End Sub
文章名稱:vb.net獲取dpi VB net
文章轉載:http://www.chinadenli.net/article46/doocdeg.html
成都網站建設公司_創(chuàng)新互聯,為您提供網站制作、品牌網站制作、Google、虛擬主機、網站排名、面包屑導航
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯