Determinando o tipo de objeto (Visual Basic)

Variáveis de objeto genéricas (ou seja, variáveis que você declara como Object) podem conter objetos de qualquer classe. Ao usar variáveis do tipo Object, você pode precisar executar ações diferentes com base na classe do objeto, por exemplo, alguns objetos podem não suportar uma propriedade ou método específico. Visual Basic fornece dois meios de determinar que tipo de objeto é armazenado em uma variável de objeto: a TypeName função e o TypeOf...Is operador.

TypeName e TypeOf... É

A TypeName função retorna uma cadeia de caracteres e é a melhor opção quando você precisa armazenar ou exibir o nome da classe de um objeto, conforme mostrado no seguinte fragmento de código:

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

O TypeOf...Is operador é a melhor escolha para testar o tipo de um objeto, porque é muito mais rápido do que uma comparação de cadeia de caracteres equivalente usando TypeName. O fragmento de código a seguir usa TypeOf...Is dentro de uma If...Then...Else instrução:

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

Impõe-se aqui uma palavra de prudência. O TypeOf...Is operador retorna True se um objeto é de um tipo específico, ou é derivado de um tipo específico. Quase tudo o que você faz com o Visual Basic envolve objetos, que incluem alguns elementos normalmente não pensados como objetos, como cadeias de caracteres e inteiros. Esses objetos são derivados e herdam métodos de Object. Quando Integer é passado e Integer é avaliado com TypeOf...Is, True operador retorna . O exemplo a seguir relata que o parâmetro InParam é um Object e um 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

O exemplo a seguir usa ambos TypeOf...Is e TypeName para determinar o tipo de objeto passado para ele no Ctrl argumento. O procedimento TestObject chama ShowType utilizando três tipos diferentes de controlos.

Para executar o exemplo

  1. Crie um novo projeto de aplicativo do Windows e adicione um Button controle, um CheckBox controle e um RadioButton controle ao formulário.

  2. No botão do formulário, chame o procedimento TestObject.

  3. Adicione o seguinte código ao seu formulário:

    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

Ver também

  • Last updated on