请问如何编程关闭显示器 和 调整屏幕亮度?
显卡的设计界面中都有调整视频亮度对比度的功能,请问我如何编程实现?

[解决办法]
Option Explicit

Private Declare Function SendScreenMessage Lib "user32 " _
Alias "SendMessageA " _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Const MONITOR_ON = -1&
Private Const MONITOR_LOWPOWER = 1&
Private Const MONITOR_OFF = 2&
Private Const SC_MONITORPOWER = &HF170&
Private Const WM_SYSCOMMAND = &H112

'关闭 显示器
Private Function MonitorOff(Form As Form)

Call SendScreenMessage(Form.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_OFF)

End Function

'开启显示器
Private Function MonitorOn(Form As Form)

Call SendScreenMessage(Form.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_ON)

End Function



[解决办法]
调整屏幕亮度需要使用这个API:

SetDeviceGammaRamp

代码很简单,查一下MSDN
[解决办法]
http://www.google.com/search?q=VB%20SetDeviceGammaRamp&hl=zh-CN&lr=&nxpt=10.134210891149857244538

自己看看