怎样获取系统的分辨率？？？

[TORY]

谢谢！

[laviewpbt]

private sub main()
dim x,y
x=screen.width/screen.twipsperpixelx
y=screen.height/screen.twipsperpixely
msgbox"你的电脑的分辨率是" & x & "*" & y
end
end sub

[qqyong]

Public Function GetDisplayWidth() As Integer
GetDisplayWidth = Screen.Width \ Screen.TwipsPerPixelX
End Function

Public Function GetDisplayHeight() As Integer
GetDisplayHeight = Screen.Height \ Screen.TwipsPerPixelY
End Function

[starsoulxp]

ResWidth = Screen.Width/Screen.TwipsPerPixelX

ResHeight = Screen.Height/Screen.TwipsPerPixelY

ScreenRes = ResWidth & "x" & ResHeight

ResWidth和ResHeight分别表示屏幕的宽和高，比如这样的结果：

800x600
___________________________________________________________________

当然，也可以利用API函数
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
把其中的uAction设为SPI_GETWORKAREA

[xanger]

'声明API函数
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long


Public Sub DeviceInfo(DisplayX As Integer, DisplayY As Integer, DisplayColor As Integer)
Dim hdesktopwnd
Dim hdccaps
Dim lblRes As String
Dim DisplayBits
Dim DisplayPlanes
Dim RetVal
hdccaps = GetDC(hdesktopwnd)
DisplayBits = GetDeviceCaps(hdccaps, 12)
DisplayPlanes = GetDeviceCaps(hdccaps, 14)
DisplayX = GetDeviceCaps(hdccaps, 8)
DisplayY = GetDeviceCaps(hdccaps, 10)
RetVal = ReleaseDC(hdesktopwnd, hdccaps)
Select Case DisplayBits
Case 1
If DisplayPlanes = 1 Then
DisplayColor = 1
Else
If DisplayPlanes = 4 Then DisplayColor = 4 Else DisplayColor = 0
End If
Case 8
DisplayColor = 8
Case 16
DisplayColor = 16
Case 24
DisplayColor = 24
Case 32
DisplayColor = 32
Case Else
DisplayColor = 0 '未知色彩度
End Select
End Sub

---------------------------------------------------------------

根本不用那么复杂的，楼主可以试一下这个：

Print Screen.Width / Screen.TwipsPerPixelX
Print Screen.Height / Screen.TwipsPerPixelY



今天怎么这么多人问这个：(
自己看看多好，也不用浪费分了：）