BLOC-NOTES.EXE

Signaler
Messages postés
33
Date d'inscription
jeudi 5 décembre 2002
Statut
Membre
Dernière intervention
2 novembre 2003
-
logisim
Messages postés
49
Date d'inscription
mardi 8 mai 2001
Statut
Membre
Dernière intervention
14 août 2004
-
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/5419-bloc-notes-exe

danounouche
Messages postés
33
Date d'inscription
jeudi 5 décembre 2002
Statut
Membre
Dernière intervention
2 novembre 2003

Il y a un gros bug, ou alors tu ne savais peut etre pas comment faire:

Quand tu colle la selection ou la date, tu colle a la fin de ton texte au lieu de le coller a l'emplacement du curseur !!!

Voici le code a rectifier pour que cela marche:

Dans la fonction qui colle:

Text1.Text = Mid$(Text1.Text, 1, Text1.SelStart) & texte$ & Mid$(Text1.Text, Text1.SelStart + 1)

Dans la fonction qui colle la date et l'heure:

Text1.Text = Mid$(Text1.Text, 1, Text1.SelStart) & he & ", le " & da & Mid$(Text1.Text, Text1.SelStart + 1)

Voila, j'espere que ca t'avancera un peu dans ton projet tout a fait sympatique.
logisim
Messages postés
49
Date d'inscription
mardi 8 mai 2001
Statut
Membre
Dernière intervention
14 août 2004

J'ai pas regardé le code, mais y'a encore plus simple :

Dans la fonction qui colle:

Text1.SelText = texte$

Dans la fonction qui colle la date et l'heure:

Text1.SelText = Format(Now, "hh:mm:ss, le dd/mm/yyyy")