HorizontalResolution 属性

返回显示器的水平分辨率，以像素为单位。Long 类型，只读。

示例

本示例显示当前的屏幕分辨率（例如，1024 x 768）。

Dim lngHorizontal As Long
Dim lngVertical As Long

lngHorizontal = System.HorizontalResolution
lngVertical = System.VerticalResolution
MsgBox "Resolution = " & lngHorizontal & " x " & lngVertical