begin process at 2012 02 10 22:31:41
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

API

 > BLOCNOTE SILLER

BLOCNOTE SILLER


 Information sur la source

Note :
8,5 / 10 - par 2 personnes
8,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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é :3 117 / 352
Auteur : Siller

Ecrire un message privé
Site perso
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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture GESTION_CDS
Source avec Zip Source avec une capture PETITE CALCULETTE -=$ILLER=-
Source avec Zip CONVETISSEUR HEXA/BIN/DEC
Source avec Zip Source avec une capture CONVERSION EURO/FRANC/DOLLAR/LIVRE
Toutes les sources de Siller

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) .NET DEPENDENCY VIEWER : ARBRE DES DÉPENDANCES D'UN ASSEMBLY... par ShareVB
Source avec Zip Source .NET (Dotnet) UTILITAIRE SKYDRIVE par MasterShadows
Source avec Zip ROTATION RAPIDE D'IMAGE par trex70
Source avec Zip Source avec une capture ENUMERATION DES PORTS TCP ET IDENTIFCATION DU PROCESS (PID) ... par Renfield
Source avec Zip Source avec une capture MOUSE SPEED AND WEIGHT : RETOUR DE FORCE VIRTUEL ! par ScSami
Toutes les sources de la catégorie API

Commentaires et avis

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

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,452 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)