Userform üzerindeki commandbuttonun üzerine gelince renklenmesi

[akmes]

Selamlar,

Bu konu ile ilgili bu forumda aşağıdaki kodu buldum.Ama benim istediğim birden fazla CommandButton olunca seçmeli olarak yazabileceğimiz bir kod varmı.Mesela bendeki userfrom üzerinde 25 tane CommandButton var ama bunların bazılarının renklenmesini istiyorum.İlginiz için şimdiden teşekkür ederim.
Kolay gelsin,

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

 

[Erhan Üstünel]

Selamlar,

Bu konu ile ilgili bu forumda aşağıdaki kodu buldum.Ama benim istediğim birden fazla CommandButton olunca seçmeli olarak yazabileceğimiz bir kod varmı.Mesela bendeki userfrom üzerinde 25 tane CommandButton var ama bunların bazılarının renklenmesini istiyorum.İlginiz için şimdiden teşekkür ederim.
Kolay gelsin,

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

Merhaba,

Kodları çoğaltmak işini görür

user formda 3 ader commad button olduğunu varsayarsak,

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = vbYellow ' commoand buton 1
End Sub
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton2.BackColor = vbYellow 'commoand buton 2
End Sub

Private Sub CommandButton3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton3.BackColor = vbBlue 'commoand buton 3
End Sub







Private Sub UserForm_Initialize()
CommandButton1.Tag = CommandButton1.BackColor 'commoand buton 1
CommandButton2.Tag = CommandButton2.BackColor 'commoand buton 2
CommandButton3.Tag = CommandButton3.BackColor 'commoand buton 3


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 'commoand buton 1
CommandButton2.BackColor = CommandButton2.Tag 'commoand buton 2
CommandButton3.BackColor = CommandButton3.Tag 'commoand buton 3


End Sub

 

[akmes]

Çok teşekkür ederim.Kolay gelsin

 

[halit3]

Selamlar,

Bu konu ile ilgili bu forumda aşağıdaki kodu buldum.Ama benim istediğim birden fazla CommandButton olunca seçmeli olarak yazabileceğimiz bir kod varmı.Mesela bendeki userfrom üzerinde 25 tane CommandButton var ama bunların bazılarının renklenmesini istiyorum.İlginiz için şimdiden teşekkür ederim.
Kolay gelsin,

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

Aşağıdaki linkdeki dosyayı bir incele bu dediğine örnek uygulama var.

http://www.excel.web.tr/f48/zin-takip-caly-masy-t70216.html

 

[akmes]

Hocam çok teşekkür ederim linkiniz faydalı oldu.Kolay gelsin

 

[halit3]

Hocam çok teşekkür ederim linkiniz faydalı oldu.Kolay gelsin

iyi çalışmalar