Cara Mengganti Wallpaper Layar PC Windows dengan Visual Basic 6.0

Cara mengganti layout wallpaper pada layar pc merupakan hal yang sangat sering kita lakukan apalagi dirasa layout tidak sesuai dengan selera kita dan merupakan suatu hal yang sangat mudah. Pada kesempatan ini admin akan sedikit share sebuah tutorial Visual Basic 6.0 (VB6) tentang bagaimana cara merubah layout wallpaper pada layar pc. Langsung saja ke pokok pembahasan, buka Microsoft Visual Basic 6.0 (VB6) buatkan sebuah project kemudian tambahkan beberapa komponen pendukung yaitu

1. Label

2. CommandButton

3. Image

4. CommonDialog Control

Desainlah form dan atur tata letak komponen-komponen diatas kurang lebih seperti tampilan gambar dibawah ini

Double klik pada form diatas kemudian pilih prosedur (General) dan copykan coding dibawah ini

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1
Private imagePath As String

Pada CommandButton Browse copikan juga coding dibawah ini

    dlg.Filter = "(*.bmp)|*.bmp|(*.jpg)|*.jpg"
    dlg.DialogTitle = "Plih Gambar Wallpaper"
    dlg.ShowOpen
    imagePath = dlg.FileName
    pic.Picture = LoadPicture(imagePath)

Dan yang terakhir CommandButton Set As Wallpaper copykan juga coding dibawah ini

SystemParametersInfo SPI_SETDESKWALLPAPER, 0, imagePath, SPIF_UPDATEINIFILE

Simpan kemudian jalankan RUN/F5, klik pada CommandButton Browse dan pilihlah gambar yang ada PC agan, kemudian setelah tampil di ImageBox klik CommandButton Set As Wallpaper. Apa yang terjadi coba minimize Visual Basic 6.0 dan lihat perubahan Wlalpaper pada layar PC agan. Untuk lebih detailnya sourcode ini bisa didownload di LINK INI dan Semoga bermanfaat.