Buton Renklendirme Hk.

[serqet]

Merhaba Üstadlarım bir konuda yardıma ihtiyacım var. Oluşturmuş olduğum UserForumda 30 tane buton var benim amacım sadece hangi butonun üstüne gelirse o buton farklı renk alsın ve mouseyi buton üzerinden çektiğinizde eski rengine dönsün.. aslında bunu yapabildim ama çok fazla buton oldugu için UserForumda sürekli bir dalgalanma oluyor. Çünkü CommandButton1_MouseMove yi örneğin CommandButton1.BackColor = &H80000002 yapıyorum üzerine gelince rengi değşsin diye ve UserForm_MouseMove öğesindende tekrar mouse userform üzerine geldiğinde eski rengine dönsün diyorum gayet güzel çalışıyor ama mouseyi userform üzerinde gezdirdiğimde 30 tane buton için sorgulama yaptıgından sürekli bir dalgalanma oluyor.. Anlatabilmişimdir umarım bununla ilgili daha kestirme bir yol varmı acaba? dalgalanmanın önüne nasıl geçebilirim? Teşekkürler.

 

[mancubus]

NOT: KOD'lar alıntıdır.



3 commandbutton'lı bir userform için, userform'un kod modülüne:

Private Sub CommandButton1_Enter()
Call dugme_renk_degis
End Sub

Private Sub CommandButton1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call dugme_renk_degis
End Sub

Private Sub CommandButton2_Enter()
Call dugme_renk_degis
End Sub

Private Sub CommandButton2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call dugme_renk_degis
End Sub

Private Sub CommandButton3_Enter()
Call dugme_renk_degis
End Sub

Private Sub CommandButton3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call dugme_renk_degis
End Sub

Private Sub dugme_renk_degis()

Dim obj As Object
Set obj = UserForm1.ActiveControl

If obj.Name Like "Comm*" Then
    If obj.BackColor = &HFF& Then
        obj.BackColor = &H8000000F
    Else
        obj.BackColor = &HFF&
    End If
End If

Set obj = Nothing

End Sub

 

[Levent Menteşoğlu]

Class modül konularını incelemenizi öneririm.

Class Module Uygulamaları