VB代码获得当前计算机屏幕的分辨率
在VB中，可以使用`Screen`对象来获取当前计算机屏幕的分辨率。以下是一个示例代码，可以获取主屏幕（第一个屏幕）的分辨率：
```vb
Imports System.Windows.Forms
Public Class MainForm
Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width
Dim screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height
MessageBox.Show("屏幕分辨率为：" & screenWidth.ToString( & " x " & screenHeight.ToString()
End Sub
End Class
```
这个示例代码在VB的窗体加载事件中获取主屏幕的宽度和高度，并使用`MessageBox`显示出来。
如果你想获取所有屏幕的分辨率，可以使用`Screen.AllScreens`属性来获取所有屏幕的集合，然后遍历每个屏幕来获取分辨率。以下是一个示例代码：
```vb
Imports System.Windows.Forms
Public Class MainForm
Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each scr As Screen In Screen.AllScreens
Dim screenWidth As Integer = scr.Bounds.Width
Dim screenHeight As Integer = scr.Bounds.Height
MessageBox.Show("屏幕分辨率为：" & screenWidth.ToString( & " x " & screenHeight.ToString()
Next
End Sub
End Class
```
这个示例代码会遍历所有屏幕，并使用`MessageBox`显示每个屏幕的宽度和高度。注意，当有多个屏幕时，`Screen.AllScreens`返回的是一个屏幕数组。
vb所有代码

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。