重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
默认单位是像素
祁连网站制作公司哪家好,找成都创新互联!从网页设计、网站建设、微信开发、APP开发、响应式网站等网站项目制作,到程序开发,运营维护。成都创新互联于2013年创立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联。
96是系统的一种设定,每英寸的点数,是系统界面用小字体时的设置
用像素数除以dpi没有意义
获取监视器的水平分辨率
获取监视器的垂直分辨率
通过修改注册表修改分辨率,具体位置如下
1920和1080就是显示器分辨率
重置显示器实现变更
您可以用下面给出这一小段代码检测当前屏幕分辨率,然后根据结果作出反应──例如,重新调整窗体大小以适应用程序户分辨率。
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
粘贴个答案给你参考一下,请看一下代码希望对你有所帮助:
'CommandBotton一个Picture控件一个
'把picture1的AutoSize属性设为True
'用Picture里装载那张你需要的图片
'然后
Private Sub Command1_Click()
i = MsgBox("图片的分辨率为:" + Str(Picture1.ScaleWidth / 15) + "X" + Str(Picture1.ScaleHeight / 15))
End Sub
保存前加一句 myImage2.SetResolution(300, 300) 你设置的bMape不是保存的主画布 所以无效,设置分辨率就是 SetResolution(X,Y)