Bloc-notes

Résolu/Fermé

fafabien - 8 janv. 2010 à 18:52
Tuty - 18 janv. 2010 à 01:13

Bonjour,
Ce n'est pas une question, mais c'est pour faire part de ma création.
J'ai créé un gadget bloc-notes/post-it.
Il est compatible avec toutes les versions de windows.(normalement...)

1- Créer Bloc.hta (peut être renommé) :
<html>
<HEAD>

<STYLE TYPE="text/css">
body{margin:0}
textarea{border:0;overflow:auto;}
input{font-size:0.7em}
</STYLE>

<TITLE>Bloc-notes</TITLE>

<HTA:APPLICATION ID = 'AppScripting' innerborder="no" APPLICATIONNAME="hta-post-it" SINGLEINSTANCE="Yes" VERSION="2.3" ICON="notepad.exe" MINIMIZEBUTTON="No" MAXIMIZEBUTTON="No" SHOWINTASKBAR="yes" SCROLL="No">

<SCRIPT TYPE="text/Vbscript">
Sub bouton_apropos_onclick()
Msgbox "Auteur de l'application : Fabien" & vbcrlf & "Version de l'application : 2.3" , vbInformation, "À propos"
End Sub
</SCRIPT>

<script language="VBScript">
Sub ChoixFichier
Const ForReading = 1, ForWriting = 2
Dim oFso, f
Dim stFichier
stfichier = "Note.txt"
Set oFso = CreateObject("Scripting.FileSystemObject")
if oFSO.FileExists(stfichier) then
Set f = oFso.OpenTextFile(stFichier, ForReading)
txtFichier.value = f.ReadALL
f.Close
else
msgbox "Fichier " & vbCrlf & stFichier & vbCrlf & "Inaccessible !",vbCritical,"interface-hta"
end if
set f = Nothing
set oFso = Nothing
end sub
'
' Sauvegarde du fichier texte
'
Sub btSauver_OnClick
Const ForReading = 1, ForWriting = 2
Dim oFso, f
Dim stFichier
stfichier = "Note.txt"
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile(stFichier, ForWriting)
f.write txtFichier.value
f.close
set f = Nothing
set oFso = Nothing
end sub

</script>
</HEAD>
<BODY onload="ChoixFichier">
<SCRIPT TYPE="text/javascript">
window.resizeTo(221,253);
</script>
<INPUT TYPE="button" NAME="bouton_apropos" VALUE="À propos">
<input type="button" value="Sauver" name="Sauver" onclick="btSauver_OnClick">
<input type="button" value="Quiter" name="btSauver" onclick="window.close()">
<BR>
<TEXTAREA NAME="txtFichier" ROWS="40" COLS="100">
</TEXTAREA>

</BODY>
</html>

2- Créer Note.txt , le mettre dans le même répertoire que bloc.hta, ne pas le renommer, ou modifier le script de bloc.hta.
Il contiendra vos notes.

Je met ceci ici car j'ai eu un mal fou pour le faire fonctionner sans bugs.

Remarque:
Je me suis grandement inspiré du site du Zéro, qui proposait un exemple qui, chez moi ne fonctionnait pas.

Et surtout, n'hésitez pas à faire part de remarques, bugs, ou améliorations.

A voir également:

Bloc-notes
Bloc-notes (windows) - Télécharger - Traitement de texte
Bloc note gratuit - Télécharger - Agendas & Calendriers
Retrouver une musique avec les notes - Guide
Code bloc - Télécharger - Langages
Bloc invisible minecraft - Forum Minecraft

3 réponses

Réponse 1 / 3

fafabien
8 janv. 2010 à 19:07

C'tite amélioration :
bloc.hta:

<html>
<HEAD>

<STYLE TYPE="text/css">
body{margin:0}
textarea{border:0;overflow:auto;}
input{font-size:0.7em}
</STYLE>

<TITLE>Bloc-notes</TITLE>

<HTA:APPLICATION ID = 'AppScripting' innerborder="no" APPLICATIONNAME="hta-post-it" SINGLEINSTANCE="Yes" VERSION="2.3" ICON="notepad.exe" MINIMIZEBUTTON="No" MAXIMIZEBUTTON="No" SHOWINTASKBAR="yes" SCROLL="No">

<SCRIPT TYPE="text/Vbscript">
Sub bouton_apropos_onclick()
Msgbox "Auteur de l'application : Fabien" & vbcrlf & "Version de l'application : 2.3" , vbInformation, "À propos"
End Sub
</SCRIPT>

<script language="VBScript">
Sub ChoixFichier
Const ForReading = 1, ForWriting = 2
Dim oFso, f
Dim stFichier
stfichier = "Note.txt"
Set oFso = CreateObject("Scripting.FileSystemObject")
if oFSO.FileExists(stfichier) then
Set f = oFso.OpenTextFile(stFichier, ForReading)
txtFichier.value = f.ReadALL
f.Close
else
msgbox "Fichier " & vbCrlf & stFichier & vbCrlf & "Inaccessible !",vbCritical,"interface-hta"
end if
set f = Nothing
set oFso = Nothing
end sub
'
' Sauvegarde du fichier texte
'
Sub btSauver_OnClick
Const ForReading = 1, ForWriting = 2
Dim oFso, f
Dim stFichier
stfichier = "Note.txt"
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile(stFichier, ForWriting)
f.write txtFichier.value
f.close
set f = Nothing
set oFso = Nothing
end sub

</script>
</HEAD>
<BODY onload="ChoixFichier">
<SCRIPT TYPE="text/javascript">
window.resizeTo(221,253);
</script>
<INPUT TYPE="button" NAME="bouton_apropos" VALUE="À propos"><input type="button" value="Sauver" name="Sauver" onclick="btSauver_OnClick"><input type="button" value="Quiter" name="btSauver" onclick="window.close()">
<BR>
<TEXTAREA NAME="txtFichier" ROWS="40" COLS="100">
</TEXTAREA>

</BODY>
</html>

Réponse 2 / 3

Apaachee Messages postés 248 Date d'inscription mardi 13 novembre 2007 Statut Membre Dernière intervention 25 août 2011 47
8 janv. 2010 à 22:37

Ca fait quoi ?

Réponse 3 / 3

fafabien
11 janv. 2010 à 17:24

C'est un bloc notes.
Essaie !

Tuty
18 janv. 2010 à 01:13

bonjour je n'ai pa compri comment on avai un bloc note pouver vs m'éclairer sur les bloc note svp je ss entrin d'apprendre les html là , mai cela ne me sére a rien si je peu pa les mètre sur un bloc note dc vla si vs pouvez me dir comment avoir 1 bloc note é 2- 3 astuce + prinsipal a savoir koi sa seré sympa mici :)

Discussions similaires

nom de metier

comment donner les droits sur fichier partage

Le bloc lu n'est pas un bloc

Comment avoir des barrières invisible Minecraft pe

Séparer les notes de bas de pages du bloc texte principal.