Tester un caractère dans une Textbox!Résolu

Question

Bonjour, 

J'ai un Form avec des Textbox. Dans l'une de ces Textbox, l'utilisateur doit saisir une extension de fichier.
Je voudrais tester la pr&#233;sente du point "." de l'extension paece que je r&#233;cup&#232;re cette cha&#238;ne pour la mettre dans un fichier.
Comment puis-je savoir si le point de l'extension a &#233;t&#233; saisi ou non?

econs · Accepted Answer

If InStr(1, text1.Text, ".", vbTextCompare) > 0 Then

' Il y a un point.

end if


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_dragon · Answer

instr(textebox.text,".") <> 0


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

Sensei01 · Answer

Sensei01 

dim index as integer
dim extension as string
extension = TextBox.Text()
index = extension.Length - 3 ' position du point par rapport a la fin de la chaine
if (extension.Chars(index) = ".") then
...
end if

...

/******** Sans audance pas de gloire !! ********/

Tester un caractère dans une Textbox!

3 réponses

Discussions similaires