?? modchangedisplay.bas
字號:
Attribute VB_Name = "ModChangeDisplay"
Option Explicit
Public OldX As Long
Public OldY As Long
Public OldColor As Long
Public Sub GetOldScreen()
Dim DevM As DEVMODE
Dim nDC As Long
OldX = Screen.Width / Screen.TwipsPerPixelX
OldY = Screen.Height / Screen.TwipsPerPixelY
nDC = CreateDC("DISPLAY", vbNullString, vbNullString, DevM)
OldColor = GetDeviceCaps(nDC, BITSPIXEL)
DeleteDC nDC
End Sub
Public Sub ChangeDisplay(IsChangeNew As Boolean)
Dim DevM As DEVMODE, ScInfo As Long, ReMsg As Long
If IsChangeNew Then
EnumDisplaySettings 0&, 0&, DevM
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
DevM.dmPelsWidth = 640
DevM.dmPelsHeight = 480
DevM.dmBitsPerPel = 16
ReMsg = ChangeDisplaySettings(DevM, CDS_TEST)
Select Case ReMsg
Case DISP_CHANGE_RESTART
MsgBox "初始化遇到嚴重錯誤!", vbYesNo + vbSystemModal, "Error"
Case DISP_CHANGE_SUCCESSFUL
Case Else
MsgBox "設備不支持,該游戲需要 640*480*16(增強) 顯示模式", vbOKOnly + vbSystemModal, "Error"
End Select
Else
EnumDisplaySettings 0&, 0&, DevM
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
DevM.dmPelsWidth = OldX
DevM.dmPelsHeight = OldY
DevM.dmBitsPerPel = OldColor
ChangeDisplaySettings DevM, CDS_TEST
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -