USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Determinando se um objeto foi definido (Set)
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
VB providencia uma série de novas capacidades de uso de objetos. Porém, um objeto deve ser "setado" (definido) antes de ser referenciado. Existem formas de verificar se um objeto já foi definido é através do código de erro (91).

Por exemplo:

Public Function IsSomething (ob As Object) As Long
  Dim J as Long
  Err.Clear
  On Error Resume Next
  If TypeOf ob Is TextBox Then
    J = 1
  End If
  Select Case Err.Number
    Case 91
      'error 91 = object not set
      IsSomethig = false
    Case 0
      IsSomething = true
    Case Else
      '... outro erro ocorreu
  End Select
  On Error GoTo 0
End Function

' Outra maneira simples seria apenas:

If Not MeuObjeto Is Nothing Then
  ' Se chegou aqui é pq foi definido.....
Else
  ' O objeto não foi definido.....
End If
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página