form1.frm

大量优秀的vb编程

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "获得显卡支持的DirectX显示模式"
   ClientHeight    =   4428
   ClientLeft      =   60
   ClientTop       =   348
   ClientWidth     =   4176
   LinkTopic       =   "Form1"
   ScaleHeight     =   4428
   ScaleWidth      =   4176
   StartUpPosition =   3  'Windows Default
   Begin VB.ListBox List1 
      Height          =   4080
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DirectX As New DirectX7
Dim DDraw As DirectDraw7
Dim DDrawEnum As DirectDrawEnumModes
Dim DDSurfEnum(63) As DDSURFACEDESC2


Private Sub Form_Load()
    Dim ddsurf As DDSURFACEDESC2
    
    Set DDraw = DirectX.DirectDrawCreate("")
    Set DDrawEnum = DDraw.GetDisplayModesEnum(DDEDM_DEFAULT, ddsurf)
    
    For i = 1 To DDrawEnum.GetCount
        DDrawEnum.GetItem i, DDSurfEnum(i - 1)
        List1.AddItem Str(DDSurfEnum(i - 1).lWidth) & "x" & Str(DDSurfEnum(i - 1).lHeight) & _
            "x" & Str(DDSurfEnum(i - 1).ddpfPixelFormat.lAlphaBitDepth)
    Next i
'    myFont.Name = "宋体"

    Set DDraw = Nothing
    Set DirectX = Nothing
End Sub