nesne varmı yokmu

[ekmekevi]

arkadaşlar merhaba bir konuda yardımınıza ihtiyacım var userform üzerinde bir frame yada label in var olup olmadığını yada framenin içinin dolu yada boş olduğunu nasıl kontrol edebiliriz teşekkürler

 

[Korhan Ayhan]

For-Each-Next döngüsü ile kontrol edebilirsiniz.

 

[ekmekevi]

false yada true değeri alabileceğim bir kod olamazmı

 

[Korhan Ayhan]

Nesne odaklı olarak aşağıdaki gibi sonuç alabilirsiniz.

Option Explicit

Private Sub CommandButton1_Click()
    Dim Kontrol As Control
    
    On Error Resume Next
    Set Kontrol = Nothing
    Set Kontrol = Controls("TextBox1")
    On Error GoTo 0
    
    If Not Kontrol Is Nothing Then
        MsgBox "Nesne var."
    Else
        MsgBox "Nesne yok!"
    End If
End Sub