動態改變螢幕設定 解析度、顏色等。 (轉)
動態改變螢幕設定 解析度、顏色等。 (轉)[@more@]動態改變螢幕設定
'- 定義
Private Declare Function lstrcpy _
Lib "kernel32" Alias "lstrcpyA" _
(lpString1 As Any, lpString2 As Any) _
As Long
Const CCHDEVICENAME = 32
Const CCHFORMNAME = 32
Private Type DEVMODE
dmDeviceName As String * CCHDEVICENAME
dmSpecVersion As Integer
dmVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefault As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCHFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
Private Declare Function _
ChangeDisplaySettings Lib _
"User32" Alias "ChangeDisplaySettingsA" (_
ByVal lpDevMode As Long, _
ByVal dwflags As Long) As Long
'-
Public Function SetDisplayMode(Width As _
Integer,Height As Integer, Color As _
Integer) As Long
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Const DM_BITSPERPEL = &H40000
Dim NewDevMode As DEVMODE
Dim pDevmode As Long
With NewDevMode
.dmSize = 122
If Color = -1 Then
.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
Else
.dmFields = DM_PELSWIDTH Or _
DM_PELSHEIGHT Or DM_BITSPERPEL
End If
.dmPelsWidth = Width
.dmPelsHeight = Height
If Color <> -1 Then
.dmBitsPerPel = Color
End If
End With
pDevmode = lstrcpy(NewDevMode, NewDevMode)
SetDisplayMode = ChangeDisplaySettings(pDevmode, 0)
End Function
例子:改變為 640x480x24位:
i = SetDisplayMode(640, 480, 24)
如果成功返回 0 。
'- 定義
Private Declare Function lstrcpy _
Lib "kernel32" Alias "lstrcpyA" _
(lpString1 As Any, lpString2 As Any) _
As Long
Const CCHDEVICENAME = 32
Const CCHFORMNAME = 32
Private Type DEVMODE
dmDeviceName As String * CCHDEVICENAME
dmSpecVersion As Integer
dmVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefault As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCHFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
Private Declare Function _
ChangeDisplaySettings Lib _
"User32" Alias "ChangeDisplaySettingsA" (_
ByVal lpDevMode As Long, _
ByVal dwflags As Long) As Long
'-
Public Function SetDisplayMode(Width As _
Integer,Height As Integer, Color As _
Integer) As Long
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Const DM_BITSPERPEL = &H40000
Dim NewDevMode As DEVMODE
Dim pDevmode As Long
With NewDevMode
.dmSize = 122
If Color = -1 Then
.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
Else
.dmFields = DM_PELSWIDTH Or _
DM_PELSHEIGHT Or DM_BITSPERPEL
End If
.dmPelsWidth = Width
.dmPelsHeight = Height
If Color <> -1 Then
.dmBitsPerPel = Color
End If
End With
pDevmode = lstrcpy(NewDevMode, NewDevMode)
SetDisplayMode = ChangeDisplaySettings(pDevmode, 0)
End Function
例子:改變為 640x480x24位:
i = SetDisplayMode(640, 480, 24)
如果成功返回 0 。
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-987917/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 動態改變螢幕設定 (轉)
- 動態改變Drawable中我們自定義背景的顏色並設定顏色以16進位制進行設定
- 靜態文字顏色背景改變示例源程式 (轉)
- CentOS7.0怎麼設定螢幕解析度?CentOS7.0設定螢幕解析度教程CentOS
- Mac螢幕解析度怎麼設定Mac
- Unreal Cook Book:動態改變材質的顏色等引數Unreal
- Flutter改變狀態列字型、狀態列背景顏色、Appbar背景顏色的方式FlutterAPP
- 設定div高度等於螢幕高度
- 智慧變色T恤 顏色隨運動狀態變
- CardView改變陰影顏色View
- 改變SVG圖的顏色SVG
- CSS改變文字選中狀態下的顏色CSS
- Android開發——Java程式碼動態改變顏色字型的方法AndroidJava
- iOS button背景顏色狀態設定iOS
- 設定grub配置檔案中的螢幕解析度
- win10怎麼改變工作列顏色 w10系統如何設定工作列顏色Win10
- 【RPG Maker MV外掛】【MND_ChangeScreenSize】改變遊戲螢幕解析度遊戲
- CSS 改變文字選中顏色CSS
- 滑鼠移動到button顏色改變的實現
- IOS設定狀態列的背景顏色iOS
- 螢幕設定成淺綠色可以保護眼睛
- 在LCD螢幕上漸變顯示sRGB所有範圍顏色, 最大可漸變16,581,375種顏色
- JS 操作 DOM 改變方塊顏色JS
- Android 圓形ProgressBar 改變顏色Android
- web前端 改變SVG圖的顏色Web前端SVG
- 改變UITableView選中行高亮的顏色UIView
- 設定TextView按下時變換文字顏色TextView
- android狀態列一體化(改變狀態列的背景顏色)Android
- 設定toast的字型顏色和背景顏色AST
- 設定文字的選中狀態背景顏色
- Android的RadioButton隨著選中狀態的改變字型顏色也改變Android
- GBA顏色特效的設定方法(轉)特效
- win10電腦螢幕顏色不正常怎麼調 win10電腦螢幕顏色發黃怎麼處理Win10
- JavaScript WebGL 設定顏色JavaScriptWeb
- AUTOCAD——設定顏色
- css 設定背景顏色CSS
- 設定Toast字型顏色AST
- ProgressBar 顏色的設定