cs_ShadowMan
Messages postés8Date d'inscriptionvendredi 6 octobre 2000StatutMembreDernière intervention 6 février 2002
-
6 févr. 2002 à 09:44
simodel
Messages postés38Date d'inscriptionvendredi 29 février 2008StatutMembreDernière intervention19 juin 2009
-
9 juin 2009 à 05:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
simodel
Messages postés38Date d'inscriptionvendredi 29 février 2008StatutMembreDernière intervention19 juin 2009 9 juin 2009 à 05:07
Merci bcp booleen59 pour le partage
c généreux de ta part
cs_booleen59
Messages postés1Date d'inscriptionmercredi 24 janvier 2007StatutMembreDernière intervention14 février 2007 14 févr. 2007 à 12:08
ben écoute tu te permet de mettre 2 à un source et tu n'es meme pas capable de tester ta text box avec l'événement Keypress sur lequel tu pourrez dire que pour pouvoir saisir sur cette text box il faut que le code ASCII soit compris entre tel nombre et tel nombre
Et en tout cas, TOI atoguum, je te mets 0 car sa me soul les mecs comme toi qui critique les sources des autres! Tout n'a pas la science infuse !!!!
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Then
MsgBox "caractère non valide pour cette boite de texte"
End If
End Sub
atoguum4ever
Messages postés17Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention12 janvier 2005 11 févr. 2004 à 16:27
Bon...c pas tres utile ca!!! Qqun saurait plutot comment verifier qu'un ou une text box (ca a un kiki ou pas un text box?) ne contient QUE des lettres de l'alphabet[a..z][A..Z]. L'interet c'est de verifier qu'on a pas taper des caracters speciaux... Merci a tous
PS: ARKKO, je t'ai mis 2. Ta source est a chier. Bon courage man!!
chillboy007
Messages postés47Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention19 juin 2004 5 mars 2003 à 01:54
if text1.text <> "" then
'si il y a du text
else
'si il y en a pas
end if
edthefarmer
Messages postés52Date d'inscriptionjeudi 9 mai 2002StatutMembreDernière intervention15 juillet 2004 27 nov. 2002 à 13:02
Private Sub Command1_Click()
if text1.text = "" then
exit sub
end if
'si y'a du text, ici on place la fonction du bouton
End Sub
voila, sans msgbox ca fé pas mal aux oreilles ;)
magicyoda
Messages postés44Date d'inscriptionmardi 18 décembre 2001StatutMembreDernière intervention17 juillet 2005 8 févr. 2002 à 18:24
hey c'est trop cooool ton code ! moi jvais en faire un sur détecter si le text d'un textbox c'est : "prout" ! ;)
jdéconne !! ;))) continu ! tlaisse pas faire par les nuls qui comprennent pas que têtre tu viens de commencer le vb .. ?!?
Schouly
Messages postés45Date d'inscriptiondimanche 21 janvier 2001StatutMembreDernière intervention 6 octobre 2006 7 févr. 2002 à 21:57
Si y a un bouton avec la valeur Défault = true et que l'utilisateur presse [Enter] je pense pas que ton code fonctionnera ...
cs_Arkko
Messages postés192Date d'inscriptionmercredi 26 décembre 2001StatutMembreDernière intervention31 janvier 2007 6 févr. 2002 à 15:47
cet fonction remet le focus sur le text box ... sinon le mecanisme de check serait sauter ou
Private sub command1_CLick()
If text1.text = "" Then
MsgBox "Il faut d'aboud taper un texte !", vbExclamation, "Attention"
Cancel = True
end if
end sub
shervy
Messages postés62Date d'inscriptionlundi 24 décembre 2001StatutMembreDernière intervention15 octobre 2007 6 févr. 2002 à 14:44
Ce n'est pas dans mes habitudes de critiquer les sources mais je crois qu'il a de l'abus... Si c'est pour essayer rattraper le top 5 des plus gros publieurs de sources c'est peut être le moyen mais question pertinence du code et intérêt pour la "communauté" c'est vraiment limite dans la mesure où ces pseudo-sources ne sont ni plus ni moins que des copier/coller de l'aide VB...
Tu aurais par contre pu faire un projet plus global (et donc plus intéressant) qui aurait regroupé tes 3 ou 4 sources.
Allez sans rancune et bientôt.
thrakkazz2000
Messages postés39Date d'inscriptionmercredi 19 décembre 2001StatutMembreDernière intervention19 juin 2003 6 févr. 2002 à 12:51
et pour 2+2 deux tu fais appel à une fonction cosinus parce que là c'est un peu compliqué ton truc ;)
cs_seedorf
Messages postés23Date d'inscriptionjeudi 7 juin 2001StatutMembreDernière intervention 6 mars 2004 6 févr. 2002 à 09:58
je n'ai rien contre les débutant si t'en fais partie , mais sinon, tt sérieux qd tu as ecris ce code???
cs_ShadowMan
Messages postés8Date d'inscriptionvendredi 6 octobre 2000StatutMembreDernière intervention 6 février 2002 6 févr. 2002 à 09:44
Mdr trop compliqué ce code ;)
Y'a un meilleur truc pour voir si un texte contient juste 1 partie d'un autre texte c'est l'instruction If InStr(1, text1.text, "texte") <> 0 then blabla
9 juin 2009 à 05:07
c généreux de ta part
14 févr. 2007 à 12:08
Et en tout cas, TOI atoguum, je te mets 0 car sa me soul les mecs comme toi qui critique les sources des autres! Tout n'a pas la science infuse !!!!
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Then
MsgBox "caractère non valide pour cette boite de texte"
End If
End Sub
11 févr. 2004 à 16:27
PS: ARKKO, je t'ai mis 2. Ta source est a chier. Bon courage man!!
5 mars 2003 à 01:54
'si il y a du text
else
'si il y en a pas
end if
27 nov. 2002 à 13:02
if text1.text = "" then
exit sub
end if
'si y'a du text, ici on place la fonction du bouton
End Sub
voila, sans msgbox ca fé pas mal aux oreilles ;)
8 févr. 2002 à 18:24
jdéconne !! ;))) continu ! tlaisse pas faire par les nuls qui comprennent pas que têtre tu viens de commencer le vb .. ?!?
7 févr. 2002 à 21:57
6 févr. 2002 à 15:47
Private sub command1_CLick()
If text1.text = "" Then
MsgBox "Il faut d'aboud taper un texte !", vbExclamation, "Attention"
Cancel = True
end if
end sub
6 févr. 2002 à 14:44
Tu aurais par contre pu faire un projet plus global (et donc plus intéressant) qui aurait regroupé tes 3 ou 4 sources.
Allez sans rancune et bientôt.
6 févr. 2002 à 12:51
6 févr. 2002 à 09:58
6 févr. 2002 à 09:44
Y'a un meilleur truc pour voir si un texte contient juste 1 partie d'un autre texte c'est l'instruction If InStr(1, text1.text, "texte") <> 0 then blabla
voilu a pluche les DjeunZ