v\:* {behavior:url(#default#VML);}o\:* {behavior:url(#default#VML);}w\:*
{behavior:url(#default#VML);}..shape {behavior:url(#default#VML);}
Sekedar menambahkan
Private SubForm_Load()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private SubTimer1_Timer()
If shape1.width =1000 then ‘angka 1000 sesuai kebutuhan
Timer1.enabled =false
Else
Shape1.Width = Shape1.Width + 10
End if
End Sub
---------------------------------
From:[email protected] [mailto:[EMAIL PROTECTED] On Behalf Of By -
you
Sent: Wednesday, May 16, 200700:25
To: [email protected]
Subject: Re: [Programmer-VB] vbanimasi
Coba buat 1 shape (rectangle) dan 1 Timer,
Private SubForm_Load()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private SubTimer1_Timer()
Shape1.Width = Shape1.Width + 10
End Sub
Atau pakai aja Component "Microsof Windows Common Control6.0", ada Fungsi
ProgressBar disitu
Best Regards
Thoyib<[EMAIL PROTECTED]> wrote:
Dear programmer vb,
Bisa ngga kita buat suatu animasi dr vb misal :
Suatu batang, awalnya dr pendek kemudian memanjang(kaya ProgressBar) tapi
pergerakannya berdasarkan timer.
Jika ada yg pernah buat, boleh minta source codenya ? Atausaya bisa download
dmn ?
Mohon bantuan dr rekan2.
Best Regards,
THOYIB
---------------------------------
Now that's room service! Choosefrom over 150,000 hotels
in 45,000 destinations on Yahoo! Travel to find your fit.
---------------------------------
Need a vacation? Get great deals to amazing places on Yahoo! Travel.
