frame de hareketli ve renkli buton

[zulfuernek]

http://dosya.co/qoh9dz12l2e1/HAREKETLİ_BUTON_EFEKTİ.xlsm.html

yukarıdaki linkte örnek dosyada mevcut ;
userform üzerinde buton renklenmesini yapıyorum.
multipage üzerinde yapıyorum

fakat frame üzerinde kodun başlığında nasıl bir değişiklik yapmalıyım.

 

[Saban Sertkaya]

Deneyiniz...

'USERFORM İÇİN GEÇERLİ
'MAUS ÜSERİNE GELİNCE BUTONDA EFEKT
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &HC0& 'ARKA PLAN RENGİ
CommandButton1.ForeColor = &HFFFFFF 'YAZI RENGİ
CommandButton1.Width = 80 'BUTON GENİŞLİĞİ
CommandButton1.Caption = "KAYDET" 'BUTONDA YAZMASINI İSTEDİĞİN YAZI
End Sub

'MAUS ÜZERİNDEN AYRILINCA BUTONLARIN ESKİ HALİNE DÖNMESİ (USERFORMDA)
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &H8000000F 'ARKA PLAN RENGİ
CommandButton1.ForeColor = &H808080 'YAZI RENGİ
CommandButton1.Width = 24 'BUTON GENİŞLİĞİ
CommandButton1.Caption = "" 'BUTONDA YAZMASINI İSTEDİĞİN YAZI
End Sub

'MULTİPAGE İÇİN GEÇERLİ
'MAUS ÜSERİNE GELİNCE BUTONDA EFEKT
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton2.BackColor = &HC0& 'ARKA PLAN RENGİ
CommandButton2.ForeColor = &HFFFFFF 'YAZI RENGİ
CommandButton2.Width = 80 'BUTON GENİŞLİĞİ
CommandButton2.Caption = "KAYDET" 'BUTONDA YAZMASINI İSTEDİĞİN YAZI
End Sub
'MAUS ÜZERİNDEN AYRILINCA BUTONLARIN ESKİ HALİNE DÖNMESİ (MULTİPAGEDE)
Private Sub MultiPage1_MouseMove(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton2.BackColor = &H8000000F 'ARKA PLAN RENGİ
CommandButton2.ForeColor = &H808080 'YAZI RENGİ
CommandButton2.Width = 24 'BUTON GENİŞLİĞİ
CommandButton2.Caption = "" 'BUTONDA YAZMASINI İSTEDİĞİN YAZI
End Sub

'FRAME İÇİN GEÇERLİ
'MAUS ÜSERİNE GELİNCE BUTONDA EFEKT
Private Sub CommandButton3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton3.BackColor = &HC0& 'ARKA PLAN RENGİ
CommandButton3.ForeColor = &HFFFFFF 'YAZI RENGİ
CommandButton3.Width = 80 'BUTON GENİŞLİĞİ
CommandButton3.Caption = "KAYDET" 'BUTONDA YAZMASINI İSTEDİĞİN YAZI
End Sub

[COLOR="Red"]Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton3.BackColor = &H8000000F 'ARKA PLAN RENGİ
CommandButton3.ForeColor = &H808080 'YAZI RENGİ
CommandButton3.Width = 24 'BUTON GENİŞLİĞİ
CommandButton3.Caption = "" 'BUTONDA YAZMASINI İSTEDİĞİN YAZI
End Sub[/COLOR]

 

[zulfuernek]

saban hocam emeğine sağlık

 

[Saban Sertkaya]

Rica ederim, kolay gelsin.