Merhaba Arkadaşlar,
ekteki örnekte Clsass Modüle ile metin1 içinde yazılan rakam hangi etikete eşit ise butona basıldığında renginin kırmızı ve kalın yazı şekli olmasını istiyorum. formdaki class modüle örneklerini inceledim fakat bir türlü yapamadım.
Private Sub Komut16_Click()
Dim Knt As Control
For Each Knt In Me.Controls
If Me.Controls(Knt.Name).Properties("ControlType") = 100 Then
Me.Controls(Knt.Name).FontWeight = 400
Me.Controls(Knt.Name).BackColor = RGB(180, 199, 231)
If CLng(Me.Controls(Knt.Name).Caption) = CLng(Me.Metin1) Then
Me.Controls(Knt.Name).BackColor = vbRed
Me.Controls(Knt.Name).FontWeight = 700
End If
End If
Next Knt
End Sub
