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