Question simple.

Salut tout le monde...


J'ai une petite question.

Private Sub (name as String, adresse as String, tel as String)

End Sub


Je voudrais savoir s'il ya  un moyen de vérifier les paramètres de cette "Méthode", s'il sont différent de String.Empty ou Nothing,
sans passer un IF statement.

Private Sub (name as String, adresse as String, tel as String)
        If name <> String.Empty

        End If
End Sub

La question peut être stupide mais j'aimerais savoir.

Merci en avance de vos réponse.....

AdvancedNewBe.

Salut
Empty, peut-être, Nothing surement pas : les paramètres sont obligatoires (pas Optional)
Il me semble que, lorsqu'ils sont Optional, il y a un test nommé IsMissing
Mais non, sans If, difficile ...

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

---

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

lol, remarque si : Avec un Select Case à la place du If ...

Le but est de verifier si il y a un parmis ces parametres qui est egal a Nothing or String.Empty
sans les verifiers un a un....

comme si c'etait un tableau qu'on parcourait et retirer du tableau les valeurs nulls

sinon comment creer en vb une fonction qui peut recevoir un nombre illimiter de parametre sans passer par un tableau

est-ce faisable.???????




AdvancedNewBe.

salut,

comme l'indique jack , ISMISSING n'est valable qu'avec OPTIONAL (pour un arg de type variant = objet!!)

les parcourir tous sans tous les parcourir...., le but m'échappe pour 3 arguments!
mais c'est possible :


    'AVANT (préférable pour si peu)
    Private Sub truc(ByVal name As String, ByVal adresse As String, ByVal tel As String)
        If Not (name.Length = 0) Then
            If Not (adresse.Length = 0) Then
                If Not (tel.Length = 0) Then
                    MessageBox.Show("action")
                    'ton code ici !!!
                End If
            End If
        End If
    End Sub



    'APRèS (dépend de l'appel, s'il faut vérifier le count d'arguments, etc...)
    Private Sub truc2(ByVal ParamArray args() As String)
        For Each s As String In args
            If s.Length = 0 Then Exit Sub
        Next

        MessageBox.Show("action")
        'ton code ici !!!
    End Sub

Coloration syntaxique vb/vba/vb.net


++

---

Prenez un instant pour répondre à ce sondage svp 

j'oubliais cette variante :

    Private Sub truc3(ByVal name As String, ByVal adresse As String, ByVal tel As String)
        If ((name.Length = 0) OrElse (adresse.Length = 0) OrElse (tel.Length = 0)) Then Exit Sub

        MessageBox.Show("action")
        'ton code ici !!!
    End Sub

Coloration syntaxique vb/vba/vb.net

(le ORELSE n'évaluera pas les autres expressions s'il tombe sur un FALSE avant la fin de la condition)