Monday, May 28, 2012

Animasi Ketikan Tanpa Flicker

Fungsi di bawah ini digunakan untuk animasi yang menyerupai text yang sedang di ketik. Animasinya sangat halus nyaris tanpa kedipan.
Option Explicit 

Dim
sAnimation As String

Private Sub
Form_Load()
sAnimation = "Test : http://4basic-vb.blogspot.com"
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
Picture1.Print sToAnimate
End With
If
iAnimation >= Len(sAnimation) Then
iAnimation = 0
End If
End Sub