Mouse hareketi ile commandbutton rengini değiştirmek.

[Korhan Ayhan]

Selam arkadaşlar,

Userform üzerinde bulunan commandbuttonların üzerine mouse ile geldiğimde renk değiştirmesini ve mouse u butonun üzerinden çektiğim anda eski rengine dönmesini hangi kodla sağlayabiliriz.

İyi çalışmalar dilerim. :hey:

 

[veyselemre]

[vb:1:1172c91c5a]Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = vbYellow
End Sub
Private Sub UserForm_Initialize()
CommandButton1.Tag = CommandButton1.BackColor
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = CommandButton1.Tag
End Sub
[/vb:1:1172c91c5a]

 

[aduhan22]

çok saolun hüseyinemre işime yaradı...