Döngü ile label leri renklendirme hk.

[kemal turan]

Merhaba,
label10 ile başlayıp label97 ile biten labellerim var.
Maus bu labellerin üserine geldiğinde sarı oluyor.
Tek tek aşağıdaki kod yerine döngü ile tamamını tek kodla yapabilirmiyiz.
Teşekkür ederim.

Private Sub Label10_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label10.ForeColor = &HFFFF&
End Sub

 

[Ömer]

Merhaba,

Deneyiniz.

Class Module

Public WithEvents LabelNesnesi As MSForms.Label

Private Sub LabelNesnesi_MouseMove(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  
    Dim d As Integer
    d = Split(LabelNesnesi.Name, "Label")(1)
    UserForm1.Controls("Label" & d).ForeColor = &HFFFF&
  
End Sub

UserForm

Dim LabelNesnesi() As New Class1
Private Sub UserForm_Initialize()

    Dim obj As Object, s As Integer

    For Each obj In Me.Controls
        If TypeOf obj Is MSForms.Label Then
            s = s + 1
            ReDim Preserve LabelNesnesi(1 To s)
            Set LabelNesnesi(s).LabelNesnesi = obj
        End If
    Next obj

    Set obj = Nothing

End Sub

 

[kemal turan]

Merhaba Ömer hocam,
Çok teşekkür ederim.
Selametle kalınız.