LAB - créateur de menus ! | Créez des menus pour vos DivX | Créez des menus autorun pour vos CDs

NGSoft-fr.com > MenusLAB.com : LAB - créateur de menus !

NGSoft-fr.com I Accueil I Téléchargements I Trucs et astuces I F.A.Q. I Centre d'aide
Forum I Suport/Contact I Livre d'or I Diffusions I Dons I Plan

Rejoindre les 10996 utilisateurs priviliègés gratuitement

Créer un bloc note !!!

Voila, juste pour le fun !

J'utilise LAB depuis la v1.4 donc il me semble que ceci ne fonctionnera que sur la v1.6 et plus.

1/ Créez une boite à texte qui servira à afficher/éditer le texte.
2/ Créez un premier bouton VBS qui servira à ouvrir, attribuez lui ce code :

che=inputbox("Nom du fichier à ouvrir ?","","")
if che<>"" then
    on error resume next
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fich=fso.opentextfile(che,1)
    tot=fich.ReadAll
    fich.close
    Fixe "Texte1",tot
End If
3/ Créez un 2nd bouton VBS qui servira à enregistrer, attribuez lui ce code :

che=inputbox("Enregistrer dans le fichier :","","")
if che<>"" then
    on error resume next
     Set FsError = CreateObject("Scripting.FileSystemObject")
     Set LeFichierTexte = FsError.OpenTextFile(che,2, True)
     LeFichierTexte.Write Obtient("Texte1")
     LeFichierTexte.Close
End If
4/ Et voila !!! Laissez vos commentaires

Commentaires sur l'article :

Retour au menu

accès aux pages

Pour obtenir le Banner explode ID de ce site cliquez ici !