Cara Membuat Wallpaper Background di VB6 - Pada pertemuan kali ini tip dan trik visual basic akan membuat sebuah tip Cara Membuat Wallpaper Background di VB6.
Bagi Anda yang baru saja memulai mengenal visual basic mungkin belum mengetahui sebenarnya visual basic sudah menyediakan banyak sekali fungsi yang sangat bermanfaat dalam pembuatan aplikasi di dalam lingkunagan VB. Berbeda dengan bagian sebelumnya, pada bagian ini kode-kode yang digunakan sudah mulai menggunakan fungsi-fungsi bawaan visual basic tersebut.
Dengan tip berikut ini, wallpaper yang Anda gunakan sebagai Beckground Wimdows dapat Anda tampilkan sebagai background bagi form.
Bagi Anda yang baru saja memulai mengenal visual basic mungkin belum mengetahui sebenarnya visual basic sudah menyediakan banyak sekali fungsi yang sangat bermanfaat dalam pembuatan aplikasi di dalam lingkunagan VB. Berbeda dengan bagian sebelumnya, pada bagian ini kode-kode yang digunakan sudah mulai menggunakan fungsi-fungsi bawaan visual basic tersebut.
Dengan tip berikut ini, wallpaper yang Anda gunakan sebagai Beckground Wimdows dapat Anda tampilkan sebagai background bagi form.
Akan tetapi jangan salah mengerti bahwa background yang akan tampilkan akan sama persis dengan wallpaper yang Anda gunakan, karena hal di pengaruhi oleh besar-kecilnya form Anda.
Tip yang yang Saya berikan berikut ini memiliki keistimewaan, karena hanya akan menampilkan wallpaper windows yang pada saat itu tepat berada dibelakang form (setelah tombol Command di klik). Jadi jika Anda menggeser-geserletak form, background yang akan ditampilkan bagi form Anda juga akan berlainan.
Bagi Anda yang penasaran untuk membuatnya mari kita ikuti langkah-langkah berikut dibawah ini :
Bagi Anda yang penasaran untuk membuatnya mari kita ikuti langkah-langkah berikut dibawah ini :
1. Tambahkan Satu buah CommandButton pada form tuliskan captionnya: "TAMPILKAN
BACKGROUND" lalu buka jendela kode, pada bagian General Declaration ketikan kode
dibawah ini:
BACKGROUND" lalu buka jendela kode, pada bagian General Declaration ketikan kode
dibawah ini:
Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long
Private Sub Command1_Click()
PaintDesktop Form2.hdc
End Sub
Private Sub Command1_Click()
PaintDesktop Form2.hdc
End Sub
Pada kode diatas terdapat kode "PaintDesktop Form2.hdc" diletakan pada tombol command yang properti captionnya sudah di ubah menjadi " TAMPILKAN BACKGROUND". Nama Form sesuaikan dengan form Anda. Disini saya menggunakan Form2.
Untuk membuktikan program ini berjalan dengan baik atau tidak, kita buat pemisah antara form dengan background windows atau Desktop, misalnya kita menggunakan tampilan Windows Explorer sebagai pemisah.
2. Selanjutnya jalankan program dan letakan diatas Windows Explorer ata Desktop.Selama tombol "BACKGROUND" tidak di klik tampilan akan sepeti biasa saja (persis pada saat baru di Run).Namun setelah tombol "BACKGROUND" di klik akan tampil di form sebuah background di form dari background windows explorer atau Desktop. Berikut dibawah ini adalah Gambar hasil dari Background Desktop.
Untuk membuktikan program ini berjalan dengan baik atau tidak, kita buat pemisah antara form dengan background windows atau Desktop, misalnya kita menggunakan tampilan Windows Explorer sebagai pemisah.
2. Selanjutnya jalankan program dan letakan diatas Windows Explorer ata Desktop.Selama tombol "BACKGROUND" tidak di klik tampilan akan sepeti biasa saja (persis pada saat baru di Run).Namun setelah tombol "BACKGROUND" di klik akan tampil di form sebuah background di form dari background windows explorer atau Desktop. Berikut dibawah ini adalah Gambar hasil dari Background Desktop.
 |
| Hasil Background Desktop |
Demikian tip Cara Membuat Wallpaper Background di VB6. Selamat mencoba.....!!!
No comments:
Post a Comment