Bonjour
J'ai reçu un message privé de jpmaton auquel je ne puis répondre ( sûrement car celui-ci n'a pas autoriser les autres membres a lui envoyé des messages privés )
Voulant tout de même lui répondre j'ouvre ce post en espérant qu'il le verra
Voici l'intitulé du message qu'il m'a envoyé
Concernant le mot clé
Val
je maintiens que celui-ci est un mot clé de VB 6
Dans le lien que jpmaton a mis dans son message il dit que Val fait bien partie de *Microsoft Net .
jpmaton écrit : ce mot clé est cependant décrit par Micosoft .NET dans https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.conversion.val?view=netframework-4.8 Lorsque l'on ouvre ce lien on s'aperçoit que ce mot clé fait partie de l'espace de nom Microsoft VisualBasic comme le montre cette image
Cet espace de nom n'est juste que l'importation automatique dans VB Net de l'ensemble des instructions VB 6 ce qui souvent même à confusion .
Pour faire du "pur" VB Net il suffit d'aller dans les propriétés du projet et de clique dans l'onglet Reférences. Une fois ceci fait dans la liste en bas on repère l'entrée Microsoft VisualBasic et on la décoche ( la 4° entrée comme sur l'image suivante)
ainsi on ne peut plus utiliser aucun mot clé VB 6 dans VB Net .
Maintenant par quoi remplacer
Val
si on fait du "pur" VB Net
C'est là qu'entre en jeu les conversions entre type de variables
On va utiliser
Convert.ToInt32
pour convertir une chaine de caractères numérique en une valeur de type Integer
Donc
Dim intAge as Integer = Convert.ToInt32("48")
nous donne bien la valeur numérique pour l'age
Cependant l'instruction VB 6
Val
présente un avantage
On peut faire
Dim intAge as Integer = Val("48ans")
: la conversion s'arrêtera au premier caractère non numérique alors que ceci n'est pas possible avec
Convert.ToInt32
si on précise "ans" derrière "48"
Pour contrer ceci on peut faire
Dim Age as String = "48ans"
Dim intAge as Integer = 0
For i = 0 to Age.Length - 1
' pour chaque caractère de la chaine Age
' si ce n'est pas un chiffre on sort de la boucle
If Age.Substring(i,1) < "0" And Age.Substring(i,1) > "9" then Exit For
intAge = (intAge * 10) + Convert.Toint32(Age.Substring(i,1) )
Next
Maintenant chacun peut choisir : ou faire du "pur" VB Net ou mélanger les torchons et les serviettes en mettant du VB 6 dans VB Net . Le premier choix est bien plus judicieux à mon avis .