Butonların hareketlenmesi veya renk değişmesi

[zulfuernek]

Mause ile butonların üzerinde gezinirken ön plana çıkması ( büyümesi gibi) veya renk turuncu olması

saygılaımla

 

[Korhan Ayhan]

Örnek dosyayı inceleyiniz.

 

[zulfuernek]

Korhan bey iyi günler. Altın üye olmadığımdan dosyayı inceleyemiyorum www.dosya.co dan paylaşabilirmisiniz rica etsem

saygılarımla

 

[dellerlim]

Merhaba, ben yükleyeyim, dosya Korhan Bey'in yüklediği dosyadır.
http://dosya.co/w3whkwsnzbji/ÖRNEK.xlsm.html

 

[zulfuernek]

emeğinize sağlık istediğim gibi. teşekkür ederim.

 

[zulfuernek]

kodları yapıştırdım dediğim gibi renkleniyor evet ancak ufak bi sorun var ben mi çözemedim acaba. butonun üzerine gelince renkleniyor faka butonun üzerinden ayrılınca renkli kalıyor. butonlar userform üzerindeki frame çerçevesi içerisinde. mause frame içindeyken butonlar renkli kalıyor ancak userforma geçince sönüyor. ben kodun üzerindeki userform seçeneğini frame olarak değiştirmeme rağmen hiç sönmedi bu kezde. acaba nerde hata yapıyorum.

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton2.BackColor = &H80FF&
End Sub



Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Nesne As Control
For Each Nesne In Me.Controls
If TypeName(Nesne) = "CommandButton" Then
Nesne.BackColor = vbButtonFace
End If
Next
End Sub

 

[zulfuernek]

ok çözdüm frame değilde frame 1 yazınca düzledi. emeğinize sağlık ))