vb点虐
如何获取屏幕分辨率从而设置窗体大小
Dim x, y As Long
成都创新互联2013年至今，是专业互联网技术服务公司，拥有项目成都网站建设、网站设计网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元台儿做网站,已为上家服务,为台儿各地企业和个人服务,联系电话:18982081108
x = Screen.PrimaryScreen.Bounds.Width.ToString
y = Screen.PrimaryScreen.Bounds.Height.ToString
在VB.NET中通过那个函数可以获取当前屏幕的分辨率?
您可以用下面给出这一小段代码检测当前屏幕分辨率，然后根据结果作出反应──例如，重新调整窗体大小以适应用程序户分辨率。
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
在VB中怎样获取屏幕分辨率
Screen.Width 是屏幕的横向分辨率
Screen.Height 是屏幕的纵向分辨率
注意单位默认是缇，你要自行把它转为像素（最简单方法是除以15）
vb点虐
如何检测当前分辨率
Dim x, y As Long
x = Screen.PrimaryScreen.Bounds.Width.ToString
y = Screen.PrimaryScreen.Bounds.Height.ToString
MsgBox(x y)
这就是获取当前显示的分辨率
网站名称：vb点虐
取屏幕分辨率 winform获取屏幕分辨率
文章出自：
http://www.cdkjz.cn/article/ddjcghi.html
