Question simple.

Question

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.

cs_Jack · Answer

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

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

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

edethacom · Answer

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.

PCPT · Answer

salut, comme l'indique [../auteur/JACK/2204.aspx 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 à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PCPT · Answer

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)

Question simple.

5 réponses

Votre réponse

Discussions similaires