Ich möchte den Monitor (Touchscreen) an einem BDE-Terminal bei längerer
Nichtbenutzung von der BDE-Applikation abschalten lassen. Dazu habe ich
im Web diesen Beispielcode in VB gefunden. Ich kenn mich aber mit VB
nicht so gut aus und habe Zweifel, was sich hinter der Schreibweise
"-1&" und "2&" verbirgt. Ist das Binär, Oktal, Dezimal? Die beiden
Hex-Zahlen kenn ich, das ist kein Problem, aber die Werte für
Monitor_on/off ... ?
1 | Public Const WM_SYSCOMMAND = &H112
|
2 | Public Const SC_MONITORPOWER = &HF170
|
3 | Public Const MONITOR_ON = -1&
|
4 | Public Const MONITOR_OFF = 2&
|
5 |
|
6 | Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
|
7 |
|
8 | Aufruf: SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF
|
9 | oder: SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_ON
|
Danke, Frank