Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 00:04:50

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

DéSACTIVER L'AUTOCOMPLéTION DANS OPENOFFICE CALC par MadMatt

ON A éTé TECHCRUNCHé ! par Nix

GOOGLE OS par Bidou

RE : MACRO EXCEL - FILTRE éLABORé ET MISE EN FORME CONTIONNELLE par fngoagouni

VBA EXCEL, PROGRAMMATION D'UN FILTRE AVANCé : "ET/OU /NE CONTIENT PAS" par fngoagouni

RE : SUPPRESSION ITEM D'UNE LISTBOX ET MISE à JOUR AUTOMATIQUE LB par Tursiop60

RE : VALIDER TEXTBOX par anwar666

ECHEC SUPPRESSION LIGNE SOUS CONDITION DE LA PREMIERE CELLULE par didyvine

+ de logiciels à télécharger

1 467 574 membres
631 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 107 codes, 1 304 649 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

BLOCNOTE SILLER

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 678 / 340

Auteur : Siller

Site perso

Ecrire un message privé

Note :

8,50 / 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

GESTION_CDS

PETITE CALCULETTE -=$ILLER=-

CONVETISSEUR HEXA/BIN/DEC

CONVERSION EURO/FRANC/DOLLAR/LIVRE

Toutes les sources de Siller

Sources de la même categorie

IP_PUBLIQUE_INTERNETGETCONNECTEDSTATE par marco62118

TOUTES LES RÉSOLUTIONS D'ÉCRAN ET TAILLE MAXI DE LA FORM AUD... par marco62118

UTILISER L'API DE GOOGLE (CALENDRIER) par Any_Problem_Have_Solution

WIFI MANAGÉ (WLANAPI) EN VB.NET par fadelovesky

GÉNÉRER UN DOCUMENT RTF EN VBA/VB AMÉLIORÉ par Triboutmatthieu

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.