Blocnote siller

Soyez le premier à donner votre avis sur cette source.

Vue 4 112 fois - Téléchargée 488 fois

Description

Voici un petit BlocNote mixé a un NotePad
Je sais qu'il y en a deja beaucoup par ici, mais pour moi l'important était de comprendre comment marche les Menus, les toolbar, et les CommonDialog !
C'est a peu pres réussi .. :p
Il n'y a plus de bug que je connaisse .. réglé grace a Darksidious :)

Sinon j'espere que vous aprécirai .. et si vous comprenez d'ou vient mon prob .. je vous met le code du mnu_ouvrir_Click et mnu_enr_Click

________________________________________________________________
Ajout d'un convertisseur et d'une calculette intégré !
+ meilleur gestion des enregistrements (si vous avez enregistré avant de partir alors pas de confirmation => merci Dark Sidious)

Source / Exemple :


'___________________________________________'
'          BlocNote by -=$iller=-                        '
'_________________________________________ _'
'                                                                '
'  Temps de programmation : 5h                   '
'  Aidé par : DARK_SIDIOUS (merci)               '
'___________________________________________'
'                                                                '
'  Version 1.0 :                                            '
'  Bugs Connus (et non résolus) :                  '
'  Bah y'en a plus la ... a caue de qui ? :p       '
'___________________________________________'
'  J'ai mis des commentaires un peu partout    '
'___________________________________________'
' Options utilisés :                                        '
' - 3 CommonDialog                                     '
' - 1 Toolbar                                                '
' - 1 Menu                                                   '
' - 1 RichTextBox                                         '
'                                                                '
' Note : J'espere que cette source vous           '
' Aidera ou vous Servira ;)                             '
' Fini le : 08/04/2003                                    '
'___________________________________________'
'                                                                '

Private Sub mnu_enr_Click()
'quand on clique sur enregistrer on charge un CommonDialog qui va permettre
'de choisir l'enregistrement
Dim INT_Numéro_Fichier As Integer
BoiteSauve.CancelError = True
'les types de formats possibles d'enregistrer
BoiteSauve.Filter = "Fichier Texte (*.txt)|*.txt"
'on charge dans le CommonDialog l'enregistreur
BoiteSauve.ShowSave

'on définit un numéro de fichier
INT_Numéro_Fichier = FreeFile
If BoiteSauve.FileName <> "" Then
    'on enregistre le fichier
    Open BoiteSauve.FileName For Output As #INT_Numéro_Fichier

        Print #INT_Numéro_Fichier, Text1.Text

    Close #INT_Numéro_Fichier
End If
If vbCancel Then
End
End If
'attention il y a un bug :
'Lorsque l'on sauve un doc a partir du menu et que l'on annule y'a une erreur ..
End Sub

Conclusion :


Merci a tout ceux qui feront un commentaire, que ce soit pour m'insulter ou pour m'aider ;)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
34
Date d'inscription
lundi 13 février 2006
Statut
Membre
Dernière intervention
24 août 2011

salut,

l'idée est bonne mais impossible d'imprimmer et un bug au niveau de la calculatrice
Messages postés
34
Date d'inscription
lundi 13 février 2006
Statut
Membre
Dernière intervention
24 août 2011

salut,

l'idée est bonne mais impossible d'imprimmer et un bug au niveau de la calculatrice
Messages postés
107
Date d'inscription
lundi 24 mai 2004
Statut
Membre
Dernière intervention
5 mai 2010

euh je veux bien que ce soit pour les nouveaux, mais je ne vois pas du tout, à partir d'une form vide et de ton exemple, comment je met une toolbar ou un menu.
Messages postés
15
Date d'inscription
lundi 13 septembre 2004
Statut
Membre
Dernière intervention
30 juillet 2006

Euh moi perso j'ai juste remplacé BoiteSauve.CancelError = True
par :
BoiteSauve.CancelError = False et voila !
Enfin c peut etre un cou de chance car chez moi sa marche nickel .
Voila @+
Messages postés
20
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
8 avril 2003

DARKSIDIOUS : j'avais essayé un truc genre :On error Resume next mais j'ai du me tromper parce qu'elle faisait buggé :p
Sinon je vais enlever les 3lignes :p

anduril22 : si j'ai mis beaucoup de commentaire c'est pour que n'importe qui puisse tout comprendre .. meme s'il débute (comme moi)
Et pis au cas ou .. si je me souviens plsu de ce a quoi corresppondait quelquechose je peux le retrouver ;)

Merci de vos replys

PS : ouai je vais aller mettre ca sur progotop aussi Darksidious ;)
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.