Windows 95’te dosya kopyalama işlemini gerçekleştirdiğinizde dosyanın kopyalandığını gösteren küçük bir animasyonla karşılaşırsınız. Bu animasyon aslında bir dizi resmin sırayla gösterilmesinden başka bir şey değildir. VB ile de böyle animasyonlar yapmak çok kolaydır.
Bu örneğimizi uygulamak için önceden seçeceğiniz ve ard arda gösterildiğinde bir hareket oluşturacak 3 resim bulun. Bu üç resmi sırayla oluşturacağınız 3 görüntü kutusuna (image) yerleştirin. Formun üzerine bunlardan başka bir resim kutusu, timer kontrolü ve bir tuş ekledikten sonra aşağıdaki kodları yazmaya başlayın. Burada dikkat etmeniz gereken çok önemli bir şey var, o da Formun başlık çubuğundaki resmi 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
Timer kontrolünün Interval özelliğini 500 gibi bir sayıyla değiştirmeyi unutmayıp programı çalıştırdığınızda
resim kutusuna sırayla üç görüntü kutusundaki simgelerin geldiğini göreceksiniz. İşin ilginç tarafı başlık çubuğundaki simgenin de resim kutusuyla eş zamanlı olarak değişmesidir.