TextBox Mouse Efektleri Yapma

Bu dosya, bir UserForm üzerindeki TextBox kutularına fare efekti vermeyi gösteren makro örneğidir. Fare bir kutunun üzerine geldiğinde ya da kutuya girildiğinde o kutunun kenarlığı renklenir, fare kutudan ayrıldığında kenarlık eski rengine döner.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosya .xlsm biçimindedir.

Dosyanın içeriği​

• UserForm1: Altı TextBox (TextBox1 - TextBox6) içeren form ve efektleri sağlayan olay kodları.
• Module1: Formu açan ac adlı makro.

Makrolar​

• ac: UserForm1 formunu ekranda gösterir. Dosyada çalıştırılması gereken tek makro budur.
• TextBox1_Enter ... TextBox6_Enter: Bir kutuya tıklanıp odaklanıldığında kutunun BorderColor özelliğini yeşilimsi bir tona (&HC0C0&) çevirir.
• TextBox1_Exit ... TextBox6_Exit: Kutudan çıkıldığında kenarlığı varsayılan rengine (&H8000000D) döndürür.
• TextBox1_MouseMove ... TextBox6_MouseMove: Fare bir kutunun üzerinde gezdirildiğinde döngü ile formdaki adı "TextBox" ile başlayan tüm kutuların kenarlığını varsayılan renge çeker, ardından yalnızca fare altındaki kutuyu renklendirir. Böylece aynı anda tek kutu vurgulanır.
• UserForm_MouseMove: Fare kutuların dışında, form zemininde gezdirildiğinde altı kutunun da kenarlığını varsayılan renge döndürür.

Kodda dosya silme, dış bağlantı gibi zararlı bir işlem bulunmaz; kod yalnızca kenarlık renklerini değiştirir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. ALT+F8 ile makro listesini açıp ac makrosunu çalıştırın.
3. Açılan formda fareyi kutuların üzerinde gezdirin; kenarlık renginin değiştiğini görürsünüz.
4. Bir kutuya tıklayarak Enter olayının, başka kutuya geçerek Exit olayının etkisini deneyin.
5. Kendi formunuzda kullanmak için aynı olay kodlarını kopyalayıp kutu adlarını ve renk değerini uyarlayın.