Explizites Codieren - Informationtypen

Nutze TypeName, VarType und TypeOf

Diese drei Visual Basic Funktionen sind bei nativen Varianten und Objektvariablen sehr nützlich:

Sub ShowUsers(User As Object)
    If TypeName(User) = "UserObject" Then
        MsgBox "The User Name is: " & User.Name
    End If
End Sub
 
Sub ShowUsers(UserName As Variant)
    If VarType(UserName) = vbString Then
        MsgBox "The User Name is: " & UserName
    End If
End Sub
 
Sub ShowUsers(User As Object)
    If TypeOf User Is UserObject Then
        MsgBox "The User Name is: " & User.Name
    End If
End Sub


Zurück Explizites Codieren - Initialisierung | Inhalt | Argumente - ByRef und ByVal Weiter