BLOCNOTE SILLER , Source N°6672

Information sur la source

Catégorie :API Niveau : Débutant Date de création : 08/04/2003 Date de mise à jour : 11/04/2003 16:32:39 Vu / téléchargé: 2 564 / 330

Auteur : Siller

Site perso

Ecrire un message privé

Note :

8,50 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (8)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

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

'___________________________________________'
' 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

'___________________________________________'
'          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 ;)

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

A_Propos.frm 3 123 octets
A_Propos.frx645 octets
Form_BlocNote.frm 21 190 octets
Form_BlocNote.frx5 330 octets
Form_Calculette.frm 16 016 octets
Form_Calculette.frx1 343 octets
Form_Conversion.frm 7 459 octets
Form_Conversion.frx1 090 octets
MSSCCPRJ.SCC200 octets
Projet_BlocNote.vbp 1 092 octets
Projet_BlocNote.vbw 208 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de Siller

Sources de la même categorie

Toutes les sources de la catégorie API

Commentaires

Commentaire de tich3012 le 08/04/2003 16:52:40

BoiteOuvrir.CancelError = False
Commentaire de DARKSIDIOUS le 08/04/2003 17:50:34 administrateur CS

Merci de préciser que je t'ai aidé ;-) Sinon, pourquoi ne pas le publier également sur ProgOtoP ??? ;-)

Bon résolution des bugs :

Fait une routine de traitement d'erreur dans ton mnu_enr_Click() :

On error Resume next

avant tout, ou comme te le dit tich3012 : fait : BoiteOuvrir.CancelError = False

Pour le bug qu'il quitte le programme lorsque tu enregistre, ca vient de ton :

If vbCancel Then
End
End If

qui n'a rien à faire : ton test sera toujours réussi, c'est comme si tu mettais :

If LE_CHAT then
End
EndIf

Donc, tu peux supprimer ces 3 lignes.

Sinon, bon boulot dans l'ensemble, ca vaut 8/10. Je vois que tu as pris mon habitude de beaucoup commenter, et c'est très très bien ;-p

DARK SIDIOUS
Commentaire de anduril22 le 08/04/2003 18:16:56

Trop de commentaires je dirais moi. Ya plus de commentaires que de lignes de code dans ce que je viens de voir.

Exemple d'un commentaire qui ne sert strictement a rien :
'quand on clique sur enregistrer on charge un CommonDialog qui va permettre
'de choisir l'enregistrement

Après si c'est pour faire du didactique je suis d'accord. Mais trop de commentaire c'est vraiment pas bon.
Commentaire de Siller le 08/04/2003 18:33:04

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 ;)
Commentaire de Crash_overide12 le 17/09/2004 03:30:53

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 @+
Commentaire de toutphp le 24/01/2005 21:29:42

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.
Commentaire de Sepi62500 le 28/07/2006 16:01:26

salut,

l'idée est bonne mais impossible d'imprimmer et un bug au niveau de la calculatrice
Commentaire de Sepi62500 le 28/07/2006 16:01:28

salut,

l'idée est bonne mais impossible d'imprimmer et un bug au niveau de la calculatrice