Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Fonction personnalisée "In"

Fonction personnalisée "In"

3 réponses
Avatar
Patrick
Bonjour,

J'aimerais créer un fonction personnalisée (je n'ai pas trouvé son
équivalent en VB) que j'appellerais "In".
J'aimerais qu'elle fonctionne comme "Is" ou "Like", un peu comme dans du SQL :

If MaVariable In ("A", "B",) then
End if

Est-ce possible ?

Merci.

--
Patrick
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
jean-marc
"Patrick" a écrit dans le message de
news:
Bonjour,

J'aimerais créer un fonction personnalisée (je n'ai pas trouvé son
équivalent en VB) que j'appellerais "In".
J'aimerais qu'elle fonctionne comme "Is" ou "Like", un peu comme dans


du SQL :

If MaVariable In ("A", "B",) then
End if

Est-ce possible ?



Hello,

je ne pense pas, en tout cas pas avec la syntaxe que tu proposes car:
- "Like" et "Is" ne sont *pas* des Fonctions mais des Opérateurs
- On ne peut pas en VB (à ma connaissance) créer de nouveaux opérateurs

En revanche, il est possible de créer une Fonction du genre:

If IsInList(MaVariable, "A", "B") then
...

L'implémentation exacte dépendra de ce que doit être la
liste (types, etc.), du niveau de souplesse recquis, etc.
Ca peut être simple ou devenir très compliqué, ça dépend
de beaucoup de choses.

<pj>je ne pense pas que pour ce cas un SafeArray puisse être
utile, mais bon, il faut voir...</pj>

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Avatar
Picalausa François
"jean-marc" a écrit dans le message de news:
44c632e6$0$10456$
"Patrick" a écrit dans le message de
news:
<pj>je ne pense pas que pour ce cas un SafeArray puisse être
utile, mais bon, il faut voir...</pj>



/Prie longuement le grand SAFEARRAY pour trouver la voie avant de revenir
vers mpf.vb/

De toutes façons, même avec une fonction de type
Private Function IsInArray(Value As Variant, ParamArray List() As
Variant) As Boolean
on emploie un SAFEARRAY bien que ce ne soit pas explicite ;-)

/Se félicite pour son acte de mauvaise fo... euh d'esquive glorieuse/

(Cela étant, un mapping explicite accélérerais ... /regarde en l'air et se
met soudainement à siffler avant de prendre la porte/ Aïe! /ouvre la porte
et clique sur recommencer/)

Content de te revoir en tout cas! J'espère que tu as passé de bonnes
vacances!

--
Picalausa François
Avatar
jean-marc
"Picalausa François" a écrit dans le message de
news:O2URy$$
"jean-marc" a écrit dans le message de


news:
44c632e6$0$10456$
> "Patrick" a écrit dans le


message de
> news:
> <pj>je ne pense pas que pour ce cas un SafeArray puisse être
> utile, mais bon, il faut voir...</pj>



Hello !!

/Prie longuement le grand SAFEARRAY pour trouver la voie avant de


revenir
vers mpf.vb/

De toutes façons, même avec une fonction de type
Private Function IsInArray(Value As Variant, ParamArray List() As
Variant) As Boolean
on emploie un SAFEARRAY bien que ce ne soit pas explicite ;-)



Je me disais justement ...

/Se félicite pour son acte de mauvaise fo... euh d'esquive glorieuse/

(Cela étant, un mapping explicite accélérerais ... /regarde en l'air


et se
met soudainement à siffler avant de prendre la porte/ Aïe! /ouvre la


porte
et clique sur recommencer/)



Héhé ...

Content de te revoir en tout cas!



Merci, pareil !

J'espère que tu as passé de bonnes vacances!



Oui, les vacances furent excellentes, Merci!! Loin de tout compilateur,
à peine un accès à mes mails, tous les 3 jours...

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;