Userform Class_terminate

[tamer42]

Merhaba,
Aşağıdaki kod ile userform üzerindeki label etiketlerine class (ClsLabel) ataması yapabiliyoruz,
Burada öğrenmek istediğim bu atamaları nasıl iptal edebiliriz,

Örnek bir butona tıklayınca ; bu label etiketleri üzerinde tanımlı bu class atamalarının tamamını kaldırma işlemi
desteğiniz için şimdiden teşekkürler,
iyi Çalışmalar.

Userform:

Dim LblEve() As New ClsLabel
Private Sub UserForm_Initialize
    i = 0
    For Each ctrl In Me.Frame2.Controls
        If TypeName(ctrl) = "Label" Then
            If ctrl.Name Like "bk*" Then
                ReDim Preserve LblEve(i)
                Set LblEve(i).buton = ctrl
                i = i + 1
            End If
        End If
    Next
End Sub

Class Module:

Private Sub buton_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
Dim deg
    deg = Replace(buton.Name, "bk", "")
    msgbox deg
End Sub

 

[Levent Menteşoğlu]

Nesneleri bağladığınız diziyi sildirin.

Erase LblEve

 

[tamer42]

Nesneleri bağladığınız diziyi sildirin.

Erase LblEve

çok teşekkürler Levent Hocam,
iyi ki varsınız

 

[MusaPEKEL]

Merhaba,
Aşağıdaki kod ile userform üzerindeki label etiketlerine class (ClsLabel) ataması yapabiliyoruz,
Burada öğrenmek istediğim bu atamaları nasıl iptal edebiliriz,

Örnek bir butona tıklayınca ; bu label etiketleri üzerinde tanımlı bu class atamalarının tamamını kaldırma işlemi
desteğiniz için şimdiden teşekkürler,
iyi Çalışmalar.

Userform:

Dim LblEve() As New ClsLabel
Private Sub UserForm_Initialize
    i = 0
    For Each ctrl In Me.Frame2.Controls
        If TypeName(ctrl) = "Label" Then
            If ctrl.Name Like "bk*" Then
                ReDim Preserve LblEve(i)
                Set LblEve(i).buton = ctrl
                i = i + 1
            End If
        End If
    Next
End Sub

Class Module:

Private Sub buton_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
Dim deg
    deg = Replace(buton.Name, "bk", "")
    msgbox deg
End Sub

Private Sub CommandButton1_Click()
    ' Tüm Label etiketlerine atanmış ClsLabel nesnelerini kaldır
    Dim i As Integer
    For i = LBound(LblEve) To UBound(LblEve)
        Set LblEve(i) = Nothing
    Next i
End Sub