|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Determinando se um objeto foi definido (Set)
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
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
|
|
|
|
|
