Assalamu'alaikum, wr.wb
Cara Membuat Aplikasi atau Program Mengganti Wallpaper dengan Visual Basic - Selamat datang kembali rekan-rekan, semoga kami jumpai dalam keadaan sehat dan dalam bimbingan HidayahNya. Ditulisan ini mengenai cara buat program wallpaper dengan VB (visual basic) 6.0 atau dikenal juga dengan destop wallpaper changer. Langkah-langkah merubah destop wallpaper dengan visual basic tidaklah begitu sulit.
Kita membutuhkan 3 buah command button 1 picturebox dan satu komponen commondialog. Sebelum masuk ke tutorial membuat program penggati wallpaper, terlebih dahulu kita menambahkan komponen common dialog dengan langkah sebagai berikut. Karena secara standar komponen tersebut belum tersedia pada toolbox.
Tekan Ctrl + T --> Microsoft Common Dialog Control 6.0--> OK
Desain Program wallpaper seperti dibawah ini.
Sengaja nilai properti dijadikan sebagai standar supaya lebih memudahkan rekan-rekan.
Masukkan mantera dibawah ini :
Option Explicit
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 SPIF_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1
Private imagePath As String
Private Sub Command1_Click()
CommonDialog1.Filter = "Image Files (**) "
CommonDialog1.DialogTitle = "Select the image to load."
CommonDialog1.ShowOpen
imagePath = CommonDialog1.FileName
Picture1.Picture = LoadPicture(imagePath)
End Sub
Private Sub Command2_Click()
SystemParametersInfo SPIF_SETDESKWALLPAPER, 0, imagePath, SPIF_UPDATEINIFILE
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Jalankan Programmnya
Silahkan rekan-rekan besarkan ukuran form dan pictureBoxnya. Disini saya buat dengan ukuran kecil supaya upload gambar di artikel ini tidak terlalu besar, karena berdampak pada speed loading dan tentu juga akan berdampak juga pada score serp saya di search engine, hehehe.
Demikian tulisan tentang cara mmebuat program pengganti wallpaper menggunakan bahasa pemograman visual basic 6.0. Moga bermanfaat. Nah..Begitulah kira-kira kayaknya.
Baca juga --> Cara buat jam digital dengan VB
Cara Membuat Aplikasi atau Program Mengganti Wallpaper dengan Visual Basic - Selamat datang kembali rekan-rekan, semoga kami jumpai dalam keadaan sehat dan dalam bimbingan HidayahNya. Ditulisan ini mengenai cara buat program wallpaper dengan VB (visual basic) 6.0 atau dikenal juga dengan destop wallpaper changer. Langkah-langkah merubah destop wallpaper dengan visual basic tidaklah begitu sulit.
Kita membutuhkan 3 buah command button 1 picturebox dan satu komponen commondialog. Sebelum masuk ke tutorial membuat program penggati wallpaper, terlebih dahulu kita menambahkan komponen common dialog dengan langkah sebagai berikut. Karena secara standar komponen tersebut belum tersedia pada toolbox.
Tekan Ctrl + T --> Microsoft Common Dialog Control 6.0--> OK
Desain Program wallpaper seperti dibawah ini.
Sengaja nilai properti dijadikan sebagai standar supaya lebih memudahkan rekan-rekan.
Masukkan mantera dibawah ini :
Option Explicit
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 SPIF_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1
Private imagePath As String
Private Sub Command1_Click()
CommonDialog1.Filter = "Image Files (**) "
CommonDialog1.DialogTitle = "Select the image to load."
CommonDialog1.ShowOpen
imagePath = CommonDialog1.FileName
Picture1.Picture = LoadPicture(imagePath)
End Sub
Private Sub Command2_Click()
SystemParametersInfo SPIF_SETDESKWALLPAPER, 0, imagePath, SPIF_UPDATEINIFILE
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Jalankan Programmnya
Silahkan rekan-rekan besarkan ukuran form dan pictureBoxnya. Disini saya buat dengan ukuran kecil supaya upload gambar di artikel ini tidak terlalu besar, karena berdampak pada speed loading dan tentu juga akan berdampak juga pada score serp saya di search engine, hehehe.
Demikian tulisan tentang cara mmebuat program pengganti wallpaper menggunakan bahasa pemograman visual basic 6.0. Moga bermanfaat. Nah..Begitulah kira-kira kayaknya.
Baca juga --> Cara buat jam digital dengan VB
siip
ReplyDelete