Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic ipuçları » Animasyon Yapmak
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Asp ile MS SQL Server?dan Gelen Dataları XML olarak Aktarım

Yazar: lagrange
Veri aktarımında XML kullanımına yönelik makale.


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 1228
Yayın Tar:02.11.2004
Yazar : myadas
Hit :3518

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

OCX KULLANMADAN ANİMASYON YAPMAK.

Animasyonlu Gif'leri oynatmak için her zaman bir OCX gereklidir. Ancak bu OCX 'ler bazen doğru çalışmaz bazen de ne kadar FreeWare olursa olsun illaki kayıt falan yaptırmanızı isteyen can sıkıcılıkları vardır. Bu sıkıntılardan kurtulmanın en iyi yolu bu animasyon işini OCX kullanmadan yapmaktır.

OCX kullanmadan nasıl animasyon yapılacağını aşağıda görüyoruz.

Bir Form üzerine bir adet PictureBox , bir adet Timer ve gösterilecek resim sayısı kadar da Image yerleştirin. Bu Imageların indexlerini sıfırdan başlayarak 14 'e kadar ayarlayın ve Imageların Picture özelliklerine de gösterilecek resimleri sırasıyla atayın. (15 adet resim gösterileceğini varsayıyoruz)
Timer 'ın Interval özelliğini 100 'e ayarlayın.
Aşağıdaki kodu kopyalayıp yapıştırın ve çalıştırın.

Dim Y As Integer
Y=0

Private Sub Timer1_Timer()
If Y = 15 Then Y = 0
Picture1.Picture = Image1(Y).Picture
Y = Y + 1
End Sub

Elinizdeki hazır animated gif dosyalarını Jasc Software Animation Shop programı ile karelerine ayırabilirsiniz.




Yorumlar, eklemeler ve düşünceler
        çok güzel yöntem bulmuşsun teşekkürler

   3dman, 31.03.2008 01:32
   calıstıramadım bıraz daha acık yazabilirmisiniz acaba

   bloodlife, 23.09.2011 00:52
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin