Assalamualaikum Wr.Wb, Apa kabar semua sobat setia vb6.0, pada kesempatan pertemuan kali ini saya ingin share kepada sobat pencinta vb6.0 Bagaimana membuat Slide show foto di form VB. Beberapa hari yang lalu Saya sudah memberikan trik bagaimana menyimpan foto/gambar kedatabase, dari tutorial tersebut kita bisa jadikan slide show.
Tentu kalian tahu apa itu slide show.Slid show adalah sebuah tampilan gambar atau teks dan sejenisnya yang disusun secara urut untuk ditampilkan dalam sebuah proses presentasi yang dilengkapi dengan efek tertentu.Aplikasi untuk membuat Slide show ini biasanya adalah Power Point yang telah dirancang khusus untuk keperluan persentasi.Nah pada pertemuan kali tip dan trik akan membuat sebuah Slide show dengan menggunakan visual Basic. Adapun langkah-langkah dalam pembuatanya adalah sebagai berikut :
Tentu kalian tahu apa itu slide show.Slid show adalah sebuah tampilan gambar atau teks dan sejenisnya yang disusun secara urut untuk ditampilkan dalam sebuah proses presentasi yang dilengkapi dengan efek tertentu.Aplikasi untuk membuat Slide show ini biasanya adalah Power Point yang telah dirancang khusus untuk keperluan persentasi.Nah pada pertemuan kali tip dan trik akan membuat sebuah Slide show dengan menggunakan visual Basic. Adapun langkah-langkah dalam pembuatanya adalah sebagai berikut :
Cara Membuat Slide Show Foto/Gambar di Form Visual Basic 6.0
1. Buka VB 6.0 Anda, pilih form Standar EXE klik OK
2. Tanamkan 1 Control Timer dan 1 Control Image di Form Anda.
Atur properti masing-masing :
Timer >> Interval = 500 (sesuai kebutuhan)
Image1 >> Stretch = True, Border Style=Fixed Single
 |
| Desain Form Slide |
3. Kemudian buatlah folder baru khusus gambar beri nama "gambar" tempatkan satu folder dengan form slide
4. Kemudian masukan gambar/foto sebanyak yang anda inginkan saya memberi contoh 3 gambar/foto.
5. Setelah Anda selesai memasukan gambar/foto ,kemudian gambar yang akan di buat slide ganti namanya file-nya menjadi "gbr1",gbr2 dan gbr3.
6. Kembali ke form VB, dobel klik Control Timer dan ketikan kode dibawah ini
Private Sub Timer1_Timer()
On Error Resume Next
gambar = gambar + 1
Image1.Picture = LoadPicture(App.Path & "\gambar\gbr" & gambar & ".jpg")
If gambar > 3 Then '3 banyaknya gambar
gambar = 1
Image1.Picture = LoadPicture(App.Path & "\gambar\gbr" & gambar & ".jpg")
End If
Image1.Picture = LoadPicture(App.Path & "\gambar\gbr" & gambar & ".jpg")
If gambar > 3 Then '3 banyaknya gambar
gambar = 1
Image1.Picture = LoadPicture(App.Path & "\gambar\gbr" & gambar & ".jpg")
End If
End Sub
7. Kemidian klik ganda form kosong,lalu pada Sub Form_Load() ketik kode dibawah ini:
Private Sub Form_Load()
gambar = 1
Image1.Picture = LoadPicture(App.Path & "\gambar\gbr" & gambar & ".jpg")
Image1.Picture = LoadPicture(App.Path & "\gambar\gbr" & gambar & ".jpg")
End Sub
8. Kemudian pada bagian General Declaration ketik kode berikut :
Dim gambar As Integer
Simpan hasil pekerjaan Anda jalankan program.
Demikian tip Cara Membuat Slide Show Foto/Gambar di Form Visual Basic 6.0. selamat mencoba semoga berhasil
Demikian tip Cara Membuat Slide Show Foto/Gambar di Form Visual Basic 6.0. selamat mencoba semoga berhasil
6 comments:
pak saya mau nanya,, cara memperkecil photo di form vb 6.0 gmna yah, setiap di perkecil selalu terpotong gambarnya.
Tempatkan gambar/foto pada image atau picturebox.
Kalau agan menggunakan picturbox atur di propertiesny: Autosize=true,
Tapi kalau agan pake image atur di propertiesnya strech=true
Lengkapnya >> http://tipandtrickunikvb.blogspot.co.id/2016/05/menampilkan-gambarimage-di-dalam-form.html
terima kasih pak, sangat membantu saya dalam membuat aplikasi.
kalau masukin video codingnya gimana gan? yang selalu muter klo durasi sudah habis kembali lagi ke awa./
terima kasih
kalau gambar slidenya 5 gbr, apanya yang harus di ganti pak?
error gan...
Image1.Picture = LoadPicture(App.Path & "\gambar\gbr" & gambar & ".jpg")
udah sama persis buatnya padahal.
mohon bantuannya..
Post a Comment