vb如何获取设备分辨率

『壹』 vb6 如何得到当前显示器的分辨率

Private Sub Command1_Click()
Print Screen.Width / 15
Print Screen.Height / 15

End Sub

『贰』 vb6读取当前屏幕分辨率

兄弟是个新手吧，VB自带有这个个命令：
W = Screen.Width/15
H= Screen.Height/15
如我的屏幕分辨率求出来，W=1024，H=768

『叁』 vb中如何知道当前的分辨率

X = Screen.Width \ Screen.TwipsPerPixelX
y = Screen.Height \ Screen.TwipsPerPixelY
Text1 = X
Text2 = y

『肆』 vb里怎么判断当前显示器的分辨率

判断当前显示器的分辨率：
下面有一个小程序，你可以看一看，借鉴版一下，

Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
Print "屏幕的分辨率权是:"; x, y
End Sub

『伍』 vb2010 如何获得屏幕分辨率

TextBox1.Text = Screen.PrimaryScreen.Bounds.Width
TextBox2.Text = Screen.PrimaryScreen.Bounds.Height

『陆』 vb获得屏幕分辨率

Private Sub Form_Load()
Dim x As Integer, y As Integer
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
MsgBox x
MsgBox y
End Sub

『柒』 在VB中怎样获取屏幕分辨率

Screen.Width 是屏幕的横向分辨率
Screen.Height 是屏幕的纵向分辨率
注意单位默认是缇，你要自行把它转为像素（最简单方法是除以15）

『捌』 VB中怎么获取图片的像素值

picture1.Point(x,y)

『玖』 vb.net如何获取屏幕分辨率从而设置窗体大小

Dim x, y As Long
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