Cara Mengganti Wallpaper Layar Pc Windows Dengan Visual Basic 6.0

14 views
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) perihal bagaimana cara merubah layout wallpaper pada layar pc. Langsung saja ke pokok pembahasan, buka Microsoft Visual Basic 6.0 (VB6) buatkan sebuah project lalu 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 menyerupai tampilan gambar dibawah ini

Double klik pada form diatas lalu pilih mekanisme (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 lalu jalankan RUN/F5, klik pada CommandButton Browse dan pilihlah gambar yang ada PC agan, lalu sesudah 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 dapat didownload di LINK INI dan Semoga bermanfaat.
Author: 
    author
    No related post!