Userform Label_Click

[tamer42]

Merhaba,
Userformda Label1_Click olayını aşağıdaki başka bir prosedürden (Test1) çağırabiliyoruz.

Test2' de olduğu gibi Me.Controls("Label1") şeklinde nasıl düzenleyebiliriz? yazdığım şekilde hata veriyor.
Başka bir Userform' dan ulaşıp Label1_Click olayını çalıştırmak istiyorum.

ilgi ve alakanız için şimdiden teşekkürler.

Private Sub Label1_Click()

If Me.Label2.Visible = True Then
    Me.Label2.Visible = False
Else
    Me.Label2.Visible = True
End If
End Sub

Public Sub Test1()

Call Label1_Click

End Sub

Public Sub Test2()

Call Me.Controls("Label1").Click

End Sub

 

[tamer42]

Merhaba,
Userformda Label1_Click olayını aşağıdaki başka bir prosedürden (Test1) çağırabiliyoruz.

Test2' de olduğu gibi Me.Controls("Label1") şeklinde nasıl düzenleyebiliriz? yazdığım şekilde hata veriyor.
Başka bir Userform' dan ulaşıp Label1_Click olayını çalıştırmak istiyorum.

ilgi ve alakanız için şimdiden teşekkürler.

Ben aslında ekli dosyadaki CommandButton' ın Label versiyonunu arıyorum

Me.Controls("cmd" & vntBut).Value = True

Label olarak uygulayınca hata veriyor.

Private Sub CommandButton6_Click()

    Dim vntBut As Variant
    
    On Error Resume Next
    
    For Each vntBut In Split(UCase(TextBox1.Text), ",")
        Me.Controls("cmd" & vntBut).Value = True
    Next
    
End Sub
[code]