VB.NET中如何获取当前屏幕的分辨率?

[ymjvko]

VB.NET中如何获取当前屏幕的分辨率?
如:我现在电脑是1024*768 若我把改成800*600 VB.NET要能够自动获取已经是800*600

[zgke]

获取可用

Screen.PrimaryScreen.Bounds

[luckyLHY]

长 * 宽
TextBox2.Text = My.Computer.Screen.Bounds.Width.ToString & "*" & My.Computer.Screen.Bounds.Height.ToString

My.Computer.Screen.Bounds.Width.ToString 获取显示屏幕的长度
My.Computer.Screen.Bounds.Height.ToString 获取显示屏幕的高度

[GuanXX]

楼上正解！

[hnwl0507]

Private Sub Lobdotcn()
Dim strComputer As String = "."
Dim objWMIService As Object = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
 & strComputer & "\root\cimv2")
 Dim objItem As Object
 Dim colItems As Object = objWMIService.ExecQuery _
 ("Select * from Win32_DesktopMonitor")
For Each objItem In colItems
 MsgBox(objItem.ScreenWidth & " * " & objItem.ScreenHeight)
Next
End Sub

[yangshifu188]

Dim Monitor_Num%, ScreenLocateX%, ScreenLocateY%, ScreenLeft%, ScreenTop, ScreenWidth%, ScreenHeight%
Monitor_Num = SystemInformation.MonitorCount
Monitor_Num = Screen.AllScreens.Length
ScreenLocateX = Screen.AllScreens(0).Bounds.Location.X
ScreenLocateY = Screen.AllScreens(0).Bounds.Location.Y
ScreenLeft = Screen.AllScreens(0).Bounds.Left
ScreenTop = Screen.AllScreens(0).Bounds.Top
ScreenWidth = Screen.AllScreens(0).Bounds.Width
ScreenHeight = Screen.AllScreens(0).Bounds.Height

ScreenLocateX = Screen.AllScreens(1).Bounds.Location.X
ScreenLocateY = Screen.AllScreens(1).Bounds.Location.Y
ScreenLeft = Screen.AllScreens(1).Bounds.Left
ScreenTop = Screen.AllScreens(1).Bounds.Top
ScreenWidth = Screen.AllScreens(1).Bounds.Width
ScreenHeight = Screen.AllScreens(1).Bounds.Height

[昵称是什么可以吃么]

[Quote=引用楼主 ymjvko 的回复:]
VB.NET中如何获取当前屏幕的分辨率?
如:我现在电脑是1024*768 若我把改成800*600 VB.NET要能够自动获取已经是800*600
[/Quote]
你可以弄一个循环，每隔多少秒就检查一次分辨率，如有变化就触发某个事件。Windows不会把改变分辨率这个消息无缘无故的提交给程序的。