Fungsi VB6 - Untuk Memperoleh Time Out Screen Saver

Mengenai fungsi VB6 untuk memperoleh timeout screen saver - Bagaimanakah kita dapat memperoleh time out dari screen saver melalui kode VB6, berikut adalah jawabanya:

Option Explicit 
 
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long 
Private Const SPI_GETSCREENSAVETIMEOUT = 14 
 
Function ScrTimeOut() As Integer 
    Dim intValue As Integer 
    Call SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, vbNull, intValue, 0) 
    ScrTimeOut = intValue 
End Function 

Cara menggunakan fungsi VB6 diatas:

Private Sub Command1_Click() 
    MsgBox ("Screen saver time-out value: " & ScrTimeOut & " seconds.") 
End Sub 

READ MORE - Fungsi VB6 - Untuk Memperoleh Time Out Screen Saver

VB6 Code - Fungsi Untuk Merubah Desktop Wallpaper

Mengenai procedure VB6 untuk mengganti atau merubah gambar desktop (desktop wallpaper) - Ini merupakan procedure VB6 yang digunakan untuk mengganti gambar yang terdapat pada desktop (desktop wallpaper). Dengan menggunakan 1 buah fungsi API SystemParametersInfoA dan beberapa konstanta (SPIF_SENDWININICHANGE, SPIF_UPDATEINIFILE, SPIF_SETDESKWALLPAPER)

Option Explicit 
 
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long 
 
Private Const SPIF_SENDWININICHANGE = &H2 
Private Const SPIF_UPDATEINIFILE = &H1 
Private Const SPIF_SETDESKWALLPAPER = 20 
 
Public Function ChangeWallPaper(imgFile As String) 
    Call SystemParametersInfo(SPIF_SETDESKWALLPAPER, 0&, imgFile, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE) 
End Function

Adapun cara menggunakan procedure VB6 diatas adalah sebagai berikut:

Private Sub Command1_Click() 
    Call ChangeWallPaper("C:\Windows\Blue.bmp") 
End Sub 

Demikian procedure VB6 untuk mengganti atau merubah desktop wallpaper.

READ MORE - VB6 Code - Fungsi Untuk Merubah Desktop Wallpaper

Menyembunyikan Dan Menampilkan Windows Taskbar

Di bawah ini merupakan contoh standar untuk menyembunyikan dan menampilkan windows taskbar.

Option Explicit 
 
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
 
Const SWP_HIDEWINDOW = &H80 
Const SWP_SHOWWINDOW = &H40 
 
Public Sub HideTaskBar() 
    Dim hWnd1 As Long 
    hWnd1 = FindWindow("Shell_traywnd", "") 
    Call SetWindowPos(hWnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) 
End Sub 
 
Public Sub ShowTaskBar() 
    Dim hWnd1 As Long 
    hWnd1 = FindWindow("Shell_traywnd", "") 
    Call SetWindowPos(hWnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) 
End Sub 

Contoh penggunaan untuk menyembunyikan windows taskbar

Private Sub Command1_Click() 
    HideTaskBar 
End Sub 

Contoh penggunaan untuk menampilkan windows taskbar

Private Sub Command2_Click() 
    ShowTaskBar 
End Sub 

READ MORE - Menyembunyikan Dan Menampilkan Windows Taskbar

Menampilkan Kotak Dialog ShutDown Menggunakan Fungsi API

Di bawah ini merupakan fungsi API untuk menampilkan kotak dialog shutdown. Fungsi yang digunakan adalah SHShutDownDialog yang terdapat pada Shell32.dll.

Option Explicit 
 
Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal sParam As Long) As Long 

Contoh penggunaan fungsi API di atas:

Private Sub Command1_Click() 
    SHShutDownDialog 0 
End Sub 

READ MORE - Menampilkan Kotak Dialog ShutDown Menggunakan Fungsi API