For i = 0 To Form1.Controls.Count - 1 Form1.Controls(i).Visible = False Next i
SetNewDisplayMode InitSurf End Sub
Private Sub Form_Click() Cleanup End Sub
Private Sub Form_Load() Command1.Caption = "结束" Command2.Caption = "设置显示模式"
On Error GoTo ErrHandler:
Dim ddsd As DDSURFACEDESC2 Dim i As Long, lgCount As Long
Set objDx = New DirectX7 '建立 DirectDraw 对象 Set objDraw = objDx.DirectDrawCreate("")
'将DirectDraw对象支持的显示模式设置到DirectDrawEnumModes对象中 Set objEnumModes = objDraw.GetDisplayModesEnum(DDEDM_DEFAULT, ddsd)
'将数据设置到ListBox中 lgCount = objEnumModes.GetCount() For i = 1 To lgCount objEnumModes.GetItem i, ddsd List1.AddItem CStr(ddsd.lWidth) & "x" & CStr(ddsd.lHeight) & "x" _ & CStr(ddsd.ddpfPixelFormat.lRGBBitCount) Next i
ErrHandler:
Select Case Err.Number Case 0 ''没有错误 Case Else Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpContext, _ Err.HelpContext Call Cleanup End Select End Sub 现在程序全部完成了，运行程序，点击列表中的任意显示模式，然后点击"设置显示模式"按钮，可以看到位图被显示在屏幕上并且在屏幕上显示出程序中的文本。
精品推荐
