cameleon
-
1 août 2001 à 21:12
Ced-2
Messages postés4Date d'inscriptiondimanche 1 avril 2001StatutMembreDernière intervention23 décembre 2001
-
7 juin 2002 à 14:35
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
J'ai pas trop compris à quoi sert le code. Le seul truc que j'ai remarqué, c'est que ça oblige de marquer à la fin de ligne, sauf qu'il y a un caractère en trop, alors, on peut mettre ça, à la place:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode >= 65 And KeyCode <= 90 Then Text1.SelStart = Len(Text1.Text)
End Sub
Puis, si c'est pas ça, alors, j'ai pas compris ton code.
@+ Johjo
C'est en effet tout simple mais le résultat n'est pas très exact. Cela ne fait rien du tout. Il faut peut être lui indiquer à quoi est égal Text1.Text. Enfin si tu as plus d'info ce serait interessant. D'avance merci.
7 juin 2002 à 14:35
La solution que j'avais trouvée était :
If Text1.Len > 10000 then Text1.Text = Mid$(Text1.Text, (Text1.Len - 200)
ou quelque chose comme ca, je sais plsu trop étant donné que je ne fais plus de visual basic.
7 juin 2002 à 13:09
1 nov. 2001 à 13:11
1 nov. 2001 à 13:10
2 août 2001 à 16:30
2 août 2001 à 12:08
2 août 2001 à 00:04
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode >= 65 And KeyCode <= 90 Then Text1.SelStart = Len(Text1.Text)
End Sub
Puis, si c'est pas ça, alors, j'ai pas compris ton code.
@+ Johjo
1 août 2001 à 21:18
1 août 2001 à 21:12