Cara Merubah Wallpaper Desktop PC atau Laptop di Visual Basic 6.0 (VB6)

Pada pertemuan yang kesekian kali ini saya akan memberikan sebuah trik yang menarik yaitu bagaimana Cara Merubah Wallpaper Desktop PC atau Laptop di Visual Basic 6.0 (VB6) dengan sangat mudah.

Mungkin kita tidak asing lagi ketika mendengar kata Wallper Desktop dan pastinya anda selalu melihat wallpaper atau gambar atau background  ini ketika anda menghidupkan komputer. Nah itulah gambar wallpaper yang sealalui menghiasi dinding layar Komputer atau laptop Anda.

Pada umumnya untuk men-set sebuah gambar menjadi Wallpaper dalam komputer kita harus mengklik kanan pada desktop kemudian memilih menu yang bernama Personalize disiniah kita dapat memilih gambar yang akan kita jadikan Wallpaper.

Tapi pada artikel kali Saya akan membagikan sebuah trik untuk men-set Wallpaper dengan menggunakan VB6.

Pada artikel terdahulu saya sudah memberikan sebuah trik yaitu kebalikan dari trik ini yaitu menjadikan Wallpaper PC atau laptop sebagai Wallpaper Form VB,tapi pada kali ini kita akan menset Wallpaper PC atau laptop lewat Form VB.

Cara Merubah Wallpaper Desktop PC atau Laptop di Visual Basic 6.0 (VB6)

Baiklah kita lannsung saja ke tutorialny.Berikut adalah langkah-langkahnya :

• Buka Form VB6 Anda dengan standar EXE
• Tambahkan 1 Image kedalam form
• Tambahkan 2 CommandButton
• Tambahkan CommonDialog1 di form

Bila CommonDialog control tidak ada di tool silahkan tambahkan dengan cara CTRL+T lalu cari dan ceklist Microsoft Common Dialog Control 6.0

Setelah semuanya sudah ditambahkan, desainlah form seperti gambar dibawah ini :

Desain Form

Langkah selanjutnya adalah ketik kode dibawah ini pada perintah masing-masing :

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

    

Private Sub Command1_Click()

SystemParametersInfo SPI_SETDESKWALLPAPER, 0, imagePath, SPIF_UPDATEINIFILE

End Sub

Private Sub Command2_Click()

CommonDialog1.Filter = "(*.bmp)|*.bmp|(*.jpg)|*.jpg"

CommonDialog1.DialogTitle = "Plih Gambar Wallpaper"

CommonDialog1.ShowOpen

imagePath = CommonDialog1.FileName

Image1.Picture = LoadPicture(imagePath)

End Sub

Dan yang terakhir jalankan program Anda dengan F5.

Jika tidak ada error eksekusi program Anda, silahkan tekan Cari untuk mencari gambar yang akan di jadikan Walpaper kemudian tekan Set Walpaper.

Sekarang lihatlah dan perhatikan. Sekarang Walpaper Dsektop Anda sudah berganti dengan gambar pilihan Anda.

Bagaimana cukup mudah bukan?

Demikinalah artikel kali tentang Cara Merubah Wallpaper Desktop PC atau Laptop di Visual Basic 6.0 (VB6), semoga artikel ini bermanfaat buat kita semua.Amin.

Tunggu trik saya selanjutnya yang lebih menarik lagi

Related Post: Image Windows