ABOUT LIKE SUB7 !!!
flint
-
28 avril 2001 à 21:12
Noxid Messages postés 78 Date d'inscription lundi 13 mai 2002 Statut Membre Dernière intervention 4 mai 2008 - 16 juin 2004 à 17:19
Noxid Messages postés 78 Date d'inscription lundi 13 mai 2002 Statut Membre Dernière intervention 4 mai 2008 - 16 juin 2004 à 17:19
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1014-about-like-sub7
https://codes-sources.commentcamarche.net/source/1014-about-like-sub7
16 juin 2004 à 17:19
Donc je mets 7... :)
++
3 janv. 2003 à 09:52
23 déc. 2002 à 19:58
Si oui, est ce que le tien est detecté aussi par les antivirus?
merci de me repondre, je debute en programmation...
=)
14 juil. 2002 à 15:11
Private Sub Timer1_Timer()
i = i + 1
rtf.TextRTF = Left(texte, i) & "_"
rtf.SelStart = 0
rtf.SelLength = i
rtf.SelColor = vbGreen
rtf.SelStart = i
rtf.SelLength = 1
rtf.SelColor = vbWhite
rtf.SelUnderline = True
rtf.SelStart = 0
If i = Len(texte) Then ' COMME SA IL S'ARRETE A LA FIN
Timer1.Interval = 0
End If
End Sub
Allez, c tout de meme très joli et je te dis bravo, continue !
Merci pour la srce !
@+
p.s.: C vrai que sub7 c super bien ^!!
5 juin 2002 à 19:34
Et le about de sub7 2.2 tu orai du dire les plus récente ne sont pas comme sa
13 mai 2002 à 22:30
8 nov. 2001 à 15:16
28 sept. 2001 à 22:01
29 avril 2001 à 19:54
non g pas sub7 c pour ca !
ok donc je comprend :-)
@+
fabs
29 avril 2001 à 15:07
29 avril 2001 à 14:59
@+
fabs ;-)
28 avril 2001 à 22:53
28 avril 2001 à 22:52
avec la picture je sais comment faire.
c'est avec forecolor, print et cls
ciao
28 avril 2001 à 22:02
y'a ausi un moyen de le faire avec une picture box, et la y'a plus de cligontement du tou, c parfait.
si y'en a ki veule savoir, k'il le dise et je rajouterai un commentaire ki explique comment faire ;-)
@+
fabs
Ps : gm bien komment ca fait, le truc, c pour ca ke je m'y interresse et essay de l'améliorer ;-)
28 avril 2001 à 21:38
pke a tu utilisé un RitchTextBox ????? ;-)
@+
fabs
28 avril 2001 à 21:33
effacer le RitchTextBox
et le remplacer par un label, mettez la couleur de text et du fond comme bon vous semble
et dans le timer mettez ceci:
Private Sub Timer1_Timer()
i = i + 1
label1 = Left(texte, i) & "_"
End Sub
bcp plus propre ;-)
28 avril 2001 à 21:27
dommage ke ca "clignote"
@+
fabs
28 avril 2001 à 21:12