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 makaleleri » VB 6 Butonlara efekt vermek
Ü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

İki bilinmeyenli denklem çözümü: acaromer

Yazar: byimparator
İki bilinmeyenli denklem çözümü:
txtA,txtB,txtC, txtCozum adlı textboxları ve cmdCozum adlı butonu hazırlayın program hazır...



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 № : 11068
Yayın Tar:26.02.2009
Yazar : darkerius
Hit :1445

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

İnternet üzerinde butonları,formları yada diğer bütün nesnelere efekt vermek için genelde programlar yada çeşitli componentler kullanılır.Fakat bunun daha basit, aslında daha özel bir yolu var.Visual Basic’te, javascript’te olduğu gibi onmouseover tarzı kodlar mevcut fakat bunlar birebir aynı değil.İlk olarak tanıtacağım, mousemove olayıdır. Kullanımı ‘kontrol_mousemove(….)’ şeklindedir.Mouse kontrolun(buton,label vs.) üzerine geldiğinde olmasını istediğiniz olaylar bu kalıba yazılır.Bunun gibi mouseup ve mousedown olayları vardır.MouseUp buton tıklanıp bırakıldığında olmasını istediğiniz olaylar bu kalıba yazılır.Mousedown ise nesneye tıklandığında olmasını istediğiniz
olaylardır.Hep olduğu gibi bunu da örneklerle açıklayalım.
Örnek:
İlk olarak açtığımız projeyi mutlaka kaydedelim.dosyayı kaydettiğimiz dizine iki tane resim koyalım. ilk resmin ismi 1.jpg, ikincisi ise 2.jpg olsun.Şimdi formumuza geri dönelim.Forma bir image nesnesi
ekleyelim.Dikkat edin picture nesnesi eklerseniz sonuç istediğiniz gibi olmayabilir.Sonra kod kısmına:

Private Sub Form_Load()
Image1.Picture = LoadPicture("1.jpg") 'Form açıldığında resim
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("1.jpg") 'Normal Durumdaki hali
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("2.jpg") 'Mouse Üzerine Geldiğindeki Hali
End Sub

Programı çalıştırdığınız zaman image1.nesnesinin olduğu yer 1.jpg resmi gözükecek, fakat mouse üzerine geldiğinde bu resim 2.jpg resmine dönüşecek.Mouse’u tekrar çektiğinizde yine resim eski halini alacak.
Eğer bunun butonla ne alakası var derseniz, image1 nesnesinin click olayına , normalde butonun click olayına yazacağınız kodları yazıp buton gibi kullanabilirsiniz.Uzun bir yol olduğu doğru.Ama programcı olarak her zaman farklı olmaya çalışın.Eğer bunu biraz daha kısaltmak isterseniz, fonksiyon haline getirip %50 zaman kazanabilirsiniz.




Yorumlar, eklemeler ve düşünceler
        Merhaba arkadaşım uğraşmışsın eline sağlık. Ancak bu basit kodda en sevmediğim olay butonun üzerindeyken çok hızlı bir şekilde mouse'unu formun dışına çektiğinde cok hızlı yaptığın için bu işlemi formun mousemove eventi tetiklenmiyor ve hala butonun üzerindeymişsin gibi aynı imaj gözükmeye devam ediyor...

   Mysticfalcon, 05.03.2009 16:58
© 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