Blocnote siller
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)
Merci a tout ceux qui feront un commentaire, que ce soit pour m'insulter ou pour m'aider ;)
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 ;)
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.