Membuat Teks Berjalan Ke Atas Dengan VB6

webnank - Sudah lama rasanya saya tidak membahas tentang vb6, di kesempatan ini saya akan memcoba memberikan sedikit trik supaya teks berjalan ke atas layaknya ketikan sebuah film selesai maka akan ada teks yang berjalan ke atas berisikan rincian film tersebut.
Saya sendiri menggunakan ini dalam program yang saya buat, walaupun cuma sekedar untuk about.
Coba kalian ikuti langkah-langkah yang akan saya jelaskan di bawah ini:

1. Bukalah project baru (hanya untuk sekedar contoh)
2. Masukan component Label

3. Masukan 1 Timer

atur interval timer menjadi 100 atau bisa sesuaikan semau kalian
4. Isi di bagian General - Declaration seperti di bawah ini:

Dim Webnank

5. Isi di bagian Timer1_Timer()

If Label1.Top <= -(Label1.Height) Then
    Webnank = 0
End If
    Label1.Top = Label1.Height - Webnank
    Webnank = Webnank + 30

6. Isi di  Form_Load()

Label1.Caption = "Terima kasih untuk webnank.com" & vbCrLf & "atas tutorialnya"

 7. Cobalah run project kalian dan lihat hasilnya.

Terima kasih, semoga bisa bermanfaat

Terima kasih sudah menyempatkan waktu untuk membaca artikel Membuat Teks Berjalan Ke Atas Dengan VB6. Jika terdapat link error silahkan langsung hubungi saya di menu Contact supaya bisa langsung di perbaiki dan jangan lupa tinggalkan komentar kamu setelah selesai membaca artikel ini. Salam Admin

Ditulis oleh: Unknown - Friday 18 April 2014