form1.frm

取得屏幕的分辨率

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5820
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5820
   LinkTopic       =   "Form1"
   ScaleHeight     =   5820
   ScaleWidth      =   5820
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton ComExit 
      Caption         =   "退出程序"
      Height          =   495
      Left            =   4440
      TabIndex        =   2
      Top             =   5040
      Width           =   1215
   End
   Begin VB.CommandButton ComSetDM 
      Caption         =   "设置分辨率"
      Height          =   495
      Left            =   3000
      TabIndex        =   1
      Top             =   5040
      Width           =   1215
   End
   Begin VB.ListBox LisDisMode 
      Height          =   4545
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   5535
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义所需DirectX对象
Dim DisplayModesEnum As DirectDrawEnumModes
Dim ddsd2 As DDSURFACEDESC2
Dim dxSet As New DirectX7
Dim ddSet As DirectDraw7

'定义存放显示模式数组
Dim IntWid(100) As Integer
Dim IntHig(100) As Integer
Dim IntBD(100) As Integer
Dim IntRefR(100) As Integer

'退出程序
Private Sub ComExit_Click()
Unload Me
End Sub

'设置显示分辨率
Private Sub ComSetDM_Click()

Dim intSel As Integer
intSel = LisDisMode.ListIndex + 1

'设置ddSet的协作水平
Call ddSet.SetCooperativeLevel(Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_ALLOWMODEX Or DDSCL_EXCLUSIVE)
'设置显示分辨率
ddSet.SetDisplayMode IntWid(intSel), IntHig(intSel), IntBD(intSel), IntRefR(intSel), DDSDM_DEFAULT

End Sub


Private Sub Form_Load()

'ddSet 获取 dxSet 建立的directdraw对象
Set ddSet = dxSet.DirectDrawCreate("")

'设置ddSet的协作水平
ddSet.SetCooperativeLevel Me.hWnd, DDSCL_NORMAL

'DisplayModesEnum 获取 ddSet的显示模式
Set DisplayModesEnum = ddSet.GetDisplayModesEnum(0, ddsd2)

'LisDisMode.AddItem " 本机支持的分辨类："
For i = 1 To DisplayModesEnum.GetCount()
    DisplayModesEnum.GetItem i, ddsd2
    LisDisMode.AddItem "显示模式：" + Str(i) + "  宽度    " + Str(ddsd2.lWidth) + "  高度    " + Str(ddsd2.lHeight) + "  色彩深度" + Str(ddsd2.ddpfPixelFormat.lRGBBitCount) + "  刷新率  " + Str(ddsd2.lRefreshRate)
    IntWid(i) = Str(ddsd2.lWidth)
    IntHig(i) = Str(ddsd2.lHeight)
    IntBD(i) = Str(ddsd2.ddpfPixelFormat.lRGBBitCount)
    IntRefR(i) = Str(ddsd2.lRefreshRate)
Next
End Sub