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://myzitong.com/article/ddjcghi.html