默认单位是像素
用像素数除以dpi没有意义
粘贴个答案给你参考一下,请看一下代码希望对你有所帮助:
'CommandBotton一个Picture控件一个
'把picture1的AutoSize属性设为True
'用Picture里装载那张你需要的图片
'然后
Private Sub Command1_Click()
End Sub
获取监视器的水平分辨率
获取监视器的垂直分辨率
通过修改注册表修改分辨率,具体位置如下
重置显示器实现变更
屏幕的长宽就是屏幕的分辨率,用下面的代码实现,每句后面已添加注释
Dim
x
As
Integer,
y
Integer
=
Screen.Width
/
Screen.TwipsPerPixelX
'获取屏幕宽度
Screen.Height
Screen.TwipsPerPixelY
'获取屏幕高度
上面是vb的语法
下面是Vb.Net的语法:
x,
Long
Screen.PrimaryScreen.Bounds.Width.ToString
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
' check against current settings
If lngTwipsX Screen.Width Then
CheckRez = False
Else
If lngTwipsY Screen.Height Then
CheckRez = True
End If
End Function
Next, run the following code at the start of the program:
MsgBox "Incorrect screen size!"
MsgBox "Screen Resolution Matches!"
以上就是土嘎嘎小编为大家整理的vb.net获取分辨率的简单介绍vb.net获取分辨率的简单介绍相关咨询咨询主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!