Langsung saja ya. Pertama sekali, buatlah sebuah form dengan tampilan sebagai berikut.
Komponen yang kita butuhkan adalah Timer, Image1(gambar panah kecil) di copy paste kemudian diganti gambarnya sehingga akan menjadi Image(0) – Image(3) dan Image2(gambar panah besar). Untuk gambar panahnya bisa dicari alternatif lainnya juga di Google ya.
Ok, setelah formnya jadi, berikutnya kita akan membuat listing programnya. Supaya lebih mudah dicoba dan gak susah mikir lama, saya akan tampilkan listing lengkapnya dibawah ini. Gak panjang kok.
Berikut listingnya:
Private Sub Command1_Click()Setelah diketik semuanya dengan tepat dan lengkap. Langsung jalankan dan lihat hasilnya. Untuk logikanya saya anggap Anda sudah dapat mendefinisikan dengan membaca urutan perintahnya ya.
Timer1.Enabled = Not (Timer1.Enabled)
End Sub
Private Sub Timer1_Timer()
Static picnum As Integer
picnum = picnum + 1
If picnum > 3 Then picnum = 0
Image2.Picture = Image1(picnum).Picture
End Sub
Selamat mencoba & Semoga berguna. Tetap semangat belajar. (dwp)
Tidak ada komentar:
Posting Komentar