[VB] Tipo di oggetti di un form

[DilanDog]

Come si fa a capire il tipo di oggetto corrente (textbox, button ecc.) quando si itera su tutti gli oggetti di un form come in questo esempio?

Codice: Seleziona tutto

Dim Obj as Object

For Each Obj in Me
    If Obj is TextBox Then
        'L'oggetto è un testo
    Else If Obj is CommandButton Then
        'L'oggetto è un bottone
    End If
Next


Ovviamente l'espressione "Obj is TextBox" è inventata e non funziona
Non funziona nemmeno creando una variabile da confrontare in questo
modo:

Codice: Seleziona tutto

Dim objTxt as TextBox

...
If Obj is objTxt Then
...


qual è il giusto modo??

[Robby78]

io uso questo metodo:

Codice: Seleziona tutto

            For z = 0 To (frmMyForm.Controls.Count - 1)
                With frmMyForm.Controls(z)
                    Select Case UCase$(TypeName(frmMyForm.Controls(z)))
                        Case UCase$("Label")
         
         Case UCase$("CheckBox")
         
         Case UCase$("CommandButton")

                        Case Else
                                'ecc.......

                    End Select
                End With
            Next z


[DilanDog]

Perfetto, funziona ed è proprio quello che cercavo!