Kode berikut dapat Ada gunakan untuk mematikan maupun menghidupkan power dari monitor, bukan menjadikannya StandBy lho, hanya
turn off monitor saja.
Pada kenyataannya untuk menghidupkan layar monitor, Anda tinggal menggerakkan mouse atau menekan salah satu tombol keyboard, tidak usah menggunakan program, soalnya layarnya kan mati
Komponen yang dibutuhkan:Tombol 1 - Command1, untuk mematikan layar
Tombol 2 - Command2, untuk menghidupkan layar (meski tidak dipakai)
Option Explicit
'Forum Informatika - htp://if.web.id
Private 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
Const SC_MONITORPOWER = &HF170&
Const MONITOR_ON = -1&
Const MONITOR_OFF = 2&
Const WM_SYSCOMMAND = &H112
Private Sub Command1_Click()
' Meng-OFF-kan monitor
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF
End Sub
Private Sub Command2_Click()
' Meng-ON-kan monitor
' Fungsi ini gak terlalu pengaruh
' untuk menghidupkan monitor, Anda tinggal menggerakkan mouse Anda.
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_ON
End Sub
' Prosedur di bawah ini hanya digunakan untuk
' menengahkan judul form (Caption)
' Kalau gak suka silakan dihapus semua bagian di bawah :)
Private Sub Form_Load()
Dim lebar As Integer, sisa As Integer
Dim l As String
Me.ScaleMode = 4 ' mode Character
lebar = Me.ScaleWidth + 10
l = "Monitor Switch On/Off"
sisa = lebar - Len(l)
Me.Caption = Space(sisa \ 2) & l '& Space(sisa \ 2)
End Sub
