High-Tech
Santé-Médecine
Droit-Finances
CodeS-SourceS
Inscription
Plan
Connexion
Rechercher un code, un tuto, une réponse
Accueil
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Tous les langages
Delphi / Pascal
Java
Python
SQL
RegEx
Flash
ASM
IRC
Graphisme
PDA
ColdFusion
Foxpro
Flex
Visual Basic / VB.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
PHP
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C/C++/C++.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Javascript
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C#/.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
ASP/ASP.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Accueil
Connexion
Déposer un code
Code
Recherche
Haut
Forum
Commentaires sur une source
Sujet Précédent
Sujet Suivant
BLOC-NOTES.EXE
danounouche
Messages postés
33
Date d'inscription
jeudi 5 décembre 2002
Statut
Membre
Dernière intervention
2 novembre 2003
- 23 déc. 2002 à 09:38
logisim
Messages postés
49
Date d'inscription
mardi 8 mai 2001
Statut
Membre
Dernière intervention
14 août 2004
-
23 déc. 2002 à 11:42
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
logisim
Messages postés
49
Date d'inscription
mardi 8 mai 2001
Statut
Membre
Dernière intervention
14 août 2004
23 déc. 2002 à 11:42
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")
danounouche
Messages postés
33
Date d'inscription
jeudi 5 décembre 2002
Statut
Membre
Dernière intervention
2 novembre 2003
23 déc. 2002 à 09:38
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.
Votre réponse
Discussions similaires
bloc note simple php edité et enregistrer dans un txt
Zelda78
-
24 mai 2011 à 16:44
Zelda78
-
26 mai 2011 à 17:29
Erreur 91 "Variable objet ou bloc with non définie" ???????
doomVB
-
3 mai 2004 à 15:52
crenaud76
-
4 mai 2004 à 10:58
mettre en commentaire tout un bloc
Daydayer
-
26 mai 2005 à 14:46
Daydayer
-
26 mai 2005 à 15:30
vba autocad,changer la mesure d'un block dynamique
amormeu
-
22 mai 2010 à 12:13
Clampin42
-
25 mai 2011 à 13:59
passer en commentaire plusieurs lignes de code VBA rapidement
zncpo
-
3 nov. 2004 à 17:06
zncpo
-
3 nov. 2004 à 17:17
Rejoignez-nous
A voir également
Commentaire
VBA Excel : Commentaire
Bloc copie
Question idiote : mise en commentaire de plusieures lignes
Erreur 91 : variable non défini
23 déc. 2002 à 11:42
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")
23 déc. 2002 à 09:38
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.