Comment detecter un string
theyas
Messages postés
10
Date d'inscription
samedi 13 mai 2006
Statut
Membre
Dernière intervention
4 octobre 2008
-
21 janv. 2007 à 03:51
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 21 janv. 2007 à 04:31
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 21 janv. 2007 à 04:31
A voir également:
- Comment detecter un string
- As string ✓ - Forum Visual Basic
- C++ enum to string ✓ - Forum C++ & C++ .NET
- Delphi format string - Conseils pratiques -Delphi
- Vba date to string - Forum Visual Basic
- C# left string ✓ - Forum C# / .NET
2 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
21 janv. 2007 à 04:29
21 janv. 2007 à 04:29
salut,
tu ne peux pas.
tu va tester la propriété .Text qui sera forcément une chaîne
çà donnerait çà :
Option Explicit
Private Sub Form_Load()
Dim vVar As Variant
vVar = Text1.Text
If VarType(vVar) = vbString Then MsgBox "c'est une
chaîne"
Unload Me
End Sub
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
tu ne peux pas.
tu va tester la propriété .Text qui sera forcément une chaîne
çà donnerait çà :
Option Explicit
Private Sub Form_Load()
Dim vVar As Variant
vVar = Text1.Text
If VarType(vVar) = vbString Then MsgBox "c'est une
chaîne"
Unload Me
End Sub
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
21 janv. 2007 à 04:31
21 janv. 2007 à 04:31
Salut,
voici comment procéder :
If Not IsNumeric(Text1) Then
MsgBox "Vous avez tapez des lettres"
Else
MsgBox "Vous n'avez mis que des chiffres"
End If
~ <small>Mortalino ~ Colorisation automatique</small>
@++
<hr width="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
voici comment procéder :
If Not IsNumeric(Text1) Then
MsgBox "Vous avez tapez des lettres"
Else
MsgBox "Vous n'avez mis que des chiffres"
End If
~ <small>Mortalino ~ Colorisation automatique</small>
@++
<hr width="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
