Mouse_move – Mouse Efekti Olusturma

Mouse_move - Mouse Efekti Olusturma

Buton Uzerinde Mouse Efekti Olusturma

Istegimiz Konu adindan da anlasilacagi uzere buton uzerine geldigimizde yandaki efekt ornegi gibi bir nesnenin gorunmesini saglamak ve butonun uzerinden aytildigimizda bu nesnenin yeniden gorunurlugunu kaybetmesini saglamak. bunuda Activesheet.Shapes kodunun visible ozelligini degistirerek yapacagiz.

Mouse_move

Bunu yapabilmek icin bir efekt nesnesi yaratip buna bir isim veriyoruz, ornegimiz icin biz mouse_move efekti ismini kullandik. Nesnemizi butonun uzerine geldigimizde yani Mouse_move yaptigimizda gostermesini kod ile saglayabiliriz. fakat cikildiginda nesnenin gorunurlugunu yitirmesi icin butonun etrafini bir label ile cevreliyoruz ve butonun uzerinden ciktigimizda label uzerine gelecegimizden efekt nesnesinin gorunurlugunu burada yok ediyoruz.

Kodlari paylasalim;

Mouse Efekti Olusturma

Buton icin;

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Shapes("mouse_efekti").Visible = True
End Sub

Label icin;

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Shapes("mouse_efekti").Visible = False
End Sub

Ornek dosyai inceleyiniz..

Buton Uzerinde Mouse Efekti Olusturma – Mouse_move

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


7 + 9 =