Cara Membuat Tampilan Teks yang Menyerupai credit Title - Pada pertemuan kali ini tips dan trik VB akan membuat sebuah tips yang menarik dan sederhana namun memukau, yaitu Cara Membuat Tampilan Teks yang Menyerupai credit Title dengan VB6.
Apa itu Credit Title? Credit Title adalah sebuah tampilan teks yang berjalan dari atas ke bawah atau sebaliknya dari bawah ke atas dari akhir sebuah film, teks yang berjalan itulah yang dinamakan Credit Title. Credit Title ini memang biasanya muncul pada sebuah film yang memuat nama-nama pemain dan pihak yang terlibat dalam pembuatan film tersebut.Teks-teks dari Credit Title tersebut akan ditampilkan bergerak atau berjalan.
Tahukah anda kitapun bisa membuat Credit Title dengan bantuan visual Basic yang nantinya bisa anda gunakan untuk keperluan program Anda. Untuk membuat Credit Title ini sangat mudah tidak perlu menggunakan kode-kode yang panjang,Jika anda berminat untuk membuatnya silahkan anda pelajari tip berikut ini.
Cara Membuat Tampilan Teks yang Menyerupai credit Title dengan VB6
1. Buka Form standar Visual Basic6 Anda
2. Tanamkan 1 Frame dan 1 Timer di dalam Form
3. Kemudian tambahkan Label sebanyak yang anda perlukan untuk menuliskan teks, letakan Label kedalam frame1. Disini saya hanya menggunakan 1 Label saja dengan Caption:"Created By : http://tipandtrickunikvb.blogspot.com" (ini terserah anda)
4. setelah Anda menuliskan Label kedalam Frame sekarang geser Frame1 kebawah,lihat seperti contoh gambar dibawah ini :
 |
| Desai Form CreditTitle |
5. Kemudian Anda atur masing masing kontrol seperti berikut
Kontrol
|
Properti
|
| Form1 | BackColor :(pilih hitam) |
| Frame1 | BackColor :(pilih hitam) BordrStyle:0-None |
| Label1 | BackColor :(pilih hitam) ForeColor:(pilih putih/merah terserah) |
| Timer1 | Interval: 1 |
6. Langkah selanjutnya buka jendela kode, lalu ketik kode berikut dibawah
Private Sub form_Resize()
Frame1.Left = Me.Width / 2 - Frame1.Width / 2
End Sub
Private Sub Timer1_Timer()
If Frame1.Top < Me.Height - Me.Height - Frame1.Height Then
Frame1.Top = Me.Height - 1
Frame1.Top = Frame1.Top - 25
Else
Frame1.Top = Frame1.Top - 25
End If
End Sub
Demikianlah tips bagaimana Cara Membuat Tampilan Teks yang Menyerupai credit Title dengan VB6, semoga tulisan ini bermanfaat dan dapat menambah wawasan anda dalam dunia pemograman khusunya program Visual basic6.Selamat mencoba semoga berhasil.
No comments:
Post a Comment