• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Butonların hareketlenmesi veya renk değişmesi

zulfuernek

Altın Üye
Katılım
24 Haziran 2017
Mesajlar
761
Excel Vers. ve Dili
türkçe
Mause ile butonların üzerinde gezinirken ön plana çıkması ( büyümesi gibi) veya renk turuncu olması

saygılaımla
 
Örnek dosyayı inceleyiniz.
 

Ekli dosyalar

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

saygılarımla
 
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
 
ok çözdüm frame değilde frame 1 yazınca düzledi. emeğinize sağlık :)))
 
Geri
Üst