?? form1.frm
字號(hào):
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -