扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
默认单位是像素
我们提供的服务有:成都做网站、成都网站制作、微信公众号开发、网站优化、网站认证、张掖ssl等。为数千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的张掖网站制作公司
96是系统的一种设定,每英寸的点数,是系统界面用小字体时的设置
用像素数除以dpi没有意义
保存前加一句 myImage2.SetResolution(300, 300) 你设置的bMape不是保存的主画布 所以无效,设置分辨率就是 SetResolution(X,Y)
粘贴个答案给你参考一下,请看一下代码希望对你有所帮助:
'CommandBotton一个Picture控件一个
'把picture1的AutoSize属性设为True
'用Picture里装载那张你需要的图片
'然后
Private Sub Command1_Click()
i = MsgBox("图片的分辨率为:" + Str(Picture1.ScaleWidth / 15) + "X" + Str(Picture1.ScaleHeight / 15))
End Sub
获取监视器的水平分辨率
获取监视器的垂直分辨率
通过修改注册表修改分辨率,具体位置如下
1920和1080就是显示器分辨率
重置显示器实现变更
屏幕的长宽就是屏幕的分辨率,用下面的代码实现,每句后面已添加注释
Dim
x
As
Integer,
y
As
Integer
'定义2个整数型变量
x
=
Screen.Width
/
Screen.TwipsPerPixelX
'获取屏幕宽度
y
=
Screen.Height
/
Screen.TwipsPerPixelY
'获取屏幕高度
上面是vb的语法
下面是Vb.Net的语法:
Dim
x,
y
As
Long
'定义2个整数型变量
x
=
Screen.PrimaryScreen.Bounds.Width.ToString
'获取屏幕宽度
y
=
Screen.PrimaryScreen.Bounds.Height.ToString
'获取屏幕高度
您可以用下面给出这一小段代码检测当前屏幕分辨率,然后根据结果作出反应──例如,重新调整窗体大小以适应用程序户分辨率。
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
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流