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         =   "設(shè)置分辨率"
      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對(duì)象
Dim DisplayModesEnum As DirectDrawEnumModes
Dim ddsd2 As DDSURFACEDESC2
Dim dxSet As New DirectX7
Dim ddSet As DirectDraw7

'定義存放顯示模式數(shù)組
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

'設(shè)置顯示分辨率
Private Sub ComSetDM_Click()

Dim intSel As Integer
intSel = LisDisMode.ListIndex + 1

'設(shè)置ddSet的協(xié)作水平
Call ddSet.SetCooperativeLevel(Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_ALLOWMODEX Or DDSCL_EXCLUSIVE)
'設(shè)置顯示分辨率
ddSet.SetDisplayMode IntWid(intSel), IntHig(intSel), IntBD(intSel), IntRefR(intSel), DDSDM_DEFAULT

End Sub


Private Sub Form_Load()

'ddSet 獲取 dxSet 建立的directdraw對(duì)象
Set ddSet = dxSet.DirectDrawCreate("")

'設(shè)置ddSet的協(xié)作水平
ddSet.SetCooperativeLevel Me.hWnd, DDSCL_NORMAL

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

'LisDisMode.AddItem " 本機(jī)支持的分辨類："
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