VB ile animasyon

[AcimasiZz-]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

'de değiştireceğimizden Image kutularına
'yerleştireceğiniz resimleri simge (ICO) olmasıdır.

General - Declarations bölümüne yazılacak
Dim y As Integer

General bölümüne yazılacak
Private Sub degistir()
y = y + 1: If y = 4 Then y = 1
‘Formun Simgesini değiştir
Form1.Icon = Image1(y).Picture
‘Resim kutusundaki resmi değiştir.
Picture1.Picture = Image1(y).Picture
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Timer1_Timer()
‘Timer`ın kontrolünün her bir vuruşunda...
‘degistir alt yordamını cagir.
degistir
End Sub