Cara Membuat Efek Animasi Text Yang Sedang di Ketik dengan Code VB6

Pada artikel kali ini Admin akan barbagi sebuah kode animasi untuk mejalankan sebuah efek teks yang sedang diketik, kelebihan dari kode animasi ini yaitu sangat halus nyaris tanpa kedipan.

Untuk menjalankan kode ini Anda harus menanamkan Control Timer dan Picturebox kedalam Form, apabila Anda sudah menambahkan beberapa Control di Form silakan ketik kode dibawah ini :

Option Explicit 

Dim sAnimation As String

 

Private Sub Form_Load()

    sAnimation = "http://tipandtrickunikvb.blogspot.com" 'teks yang akan ditampilkan di picturebox

    Timer1.Interval = 100 'angka 100 untuk mengatur kecepatan

End Sub

 

Private Sub Timer1_Timer()

    Dim sToAnimate As String

    Static iAnimation As Integer

    Dim c As Integer

    iAnimation = iAnimation + 1

 

    sToAnimate = Mid(sAnimation, 1, iAnimation)

    With Picture1

        .Cls

        .CurrentX = 25

        .CurrentY = 100

        .FontBold = True

        Picture1.Print sToAnimate

    End With

    If iAnimation >= Len(sAnimation) Then

      iAnimation = 0

    End If

End Sub

Setelah membuat kode diatas, silahkan jalan program Anda dan lihat bagaimana hasilnya.

Demikian artikel pada hari ini semoga bermanfaat buat kita semua dan dapat menambahwawasan kita.

Selamat mencoba semoga berhasil....

Related Post: Animasi