Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Membuat Aplikasi Mengganti Wallpaper dengan VB

· · 1 comments
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

cara buat aplikasi wallpaper dengan VB (visual basic)

Desain Program wallpaper seperti dibawah ini.

membuat program pengganti wallpaper dengan VB

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

langkah mudah buat program rubah wallpaper menggunakan VB

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

1 comments:

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan