VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "運行在不同分辨率下"
   ClientHeight    =   4245
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6285
   LinkTopic       =   "Form1"
   ScaleHeight     =   4245
   ScaleWidth      =   6285
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "設置分辨率"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   3840
      Width           =   1455
   End
   Begin VB.ListBox List1 
      Height          =   3300
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   5775
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim dxSet As New DirectX7
'聲明DirectX7對象
Dim ddSet As DirectDraw7
'聲明DirectDraw7對象
Dim DisModesEnum As DirectDrawEnumModes
'聲明DirectDrawEnumModes對象
Dim dds2 As DDSURFACEDESC2

'以下四個數組存儲顯示模式的相關數據
Dim lntWid(100) As Integer
'存儲寬度
Dim lntHig(100) As Integer
'存儲高度
Dim lntBB(100) As Integer
'存儲顏色位數
Dim lntRefR(100) As Integer
'存儲刷新頻率
Private Sub Command1_Click()
    Dim intSel As Integer
    intSel = List1.ListIndex
    '取得在列表框中選擇的顯示模式
    Call ddSet.SetCooperativeLevel(Me.hWnd, DDSCL_ALLOWMODEX Or DDSCL_FULLSCREEN Or DDSCL_EXCLUSIVE)
    '設置協作水平
    ddSet.SetDisplayMode lntWid(intSel), lntHig(intSel), lntBB(intSel), lntRefR(intSel), DDSDM_DEFAULT
    '設置顯示模式
End Sub

Private Sub Form_Load()
    Set ddSet = dxSet.DirectDrawCreate("")
    'dxSet建立DirectDraw對象ddSet
    ddSet.SetCooperativeLevel Me.hWnd, DDSCL_NORMAL
    '設置協作水平
    Set DisModesEnum = ddSet.GetDisplayModesEnum(DDEDM_DEFAULT, dds2)
    'DisModesEnum獲得支持的顯示模式
     
     For i = 1 To DisModesEnum.GetCount()
        DisModesEnum.GetItem i, dds2
        '將指定的顯示模式的相關數據存入dds2
        lntWid(i) = dds2.lWidth
        '將該顯示模式下的寬度存入數組lntWid
        lntHig(i) = dds2.lHeight
        '將該顯示模式下的高度存入數組lntHig
        lntBB(i) = dds2.ddpfPixelFormat.lRGBBitCount
        '將該顯示模式下的色彩深度存入數組lntBB
        lntRefR(i) = dds2.lRefreshRate
        '將該顯示模式下的刷新率存入數組lntRefR
        List1.AddItem "顯示模式：" + Str(i - 1) + _
                      "      寬度" + Str(lntWid(i)) + _
                      "      高度" + Str(lntHig(i)) + _
                      "      顏色位數" + Str(lntBB(i)) + _
                      "      刷新率" + Str(lntRefR(i))
    Next
    '在列表框中顯示各種顯示模式的寬度、高度、色彩深度、刷新率，并為各顯示模式編號
End Sub