Compartir a través de

Determinar tipos de objeto (Visual Basic)

  • Artículo

Las variables de objeto genéricas (es decir, las variables que se declaran como Object) pueden contener objetos de cualquier clase. Cuando se usan variables de tipo Object, es posible que tenga que realizar diferentes acciones según la clase del objeto; por ejemplo, puede que algunos objetos no admitan una propiedad o un método concretos. Visual Basic proporciona dos medios para determinar qué tipo de objeto se almacena en una variable de objeto: la función TypeName y el operador TypeOf...Is.

TypeName y TypeOf…Is

La función TypeName devuelve una cadena y es la mejor opción cuando necesita almacenar o mostrar el nombre de clase de un objeto, como se muestra en el siguiente fragmento de código:

Dim Ctrl As Control = New TextBox
MsgBox(TypeName(Ctrl))

El operador TypeOf...Is es la mejor opción para probar el tipo de un objeto, ya que es mucho más rápido que una comparación de cadenas equivalentes mediante TypeName. El fragmento de código siguiente usa TypeOf...Is dentro de una instrucción If...Then...Else:

If TypeOf Ctrl Is Button Then
    MsgBox("The control is a button.")
End If

Aquí hay que hacer una advertencia. El operador TypeOf...Is devuelve True si un objeto es de un tipo específico o se deriva de un tipo específico. Casi todo lo que se hace con Visual Basic implica el uso de objetos, entre los cuales se incluyen algunos elementos que normalmente no se consideran objetos, como cadenas y enteros. Estos objetos se derivan de Object y heredan sus métodos. Cuando se pasa un Integer y se evalúa con Object, el operador TypeOf...Is devuelve True. En el ejemplo siguiente se informa de que el parámetro InParam es un Object y un Integer:

Sub CheckType(ByVal InParam As Object)
    ' Both If statements evaluate to True when an
    ' Integer is passed to this procedure.
    If TypeOf InParam Is Object Then
        MsgBox("InParam is an Object")
    End If
    If TypeOf InParam Is Integer Then
        MsgBox("InParam is an Integer")
    End If
End Sub

En el ejemplo siguiente se usan TypeOf...Is y TypeName para determinar el tipo de objeto que se le pasa en el argumento Ctrl. El procedimiento TestObject llama a ShowType con tres tipos diferentes de controles.

Para ejecutar el ejemplo

  1. Cree un nuevo proyecto de aplicación de Windows y agregue un control Button, un control CheckBox y un control RadioButton al formulario.

  2. Desde el botón del formulario, llame al procedimiento TestObject.

  3. Agregue el código siguiente al formulario:

    Sub ShowType(ByVal Ctrl As Object)
    'Use the TypeName function to display the class name as text.
    MsgBox(TypeName(Ctrl))
    'Use the TypeOf function to determine the object's type.
    If TypeOf Ctrl Is Button Then
        MsgBox("The control is a button.")
    ElseIf TypeOf Ctrl Is CheckBox Then
        MsgBox("The control is a check box.")
    Else
        MsgBox("The object is some other type of control.")
    End If
End Sub

Protected Sub TestObject()
    'Test the ShowType procedure with three kinds of objects.
    ShowType(Me.Button1)
    ShowType(Me.CheckBox1)
    ShowType(Me.RadioButton1)
End Sub

Consulte también