Code d'implémentation de l'événement :
Copiez le code comme suit :
Sous-privé mQuit_Click()
Texte1.Texte = ""
Fin
Fin du sous-marin
Sous-marin privé mNew_Click()
Texte1.Texte = ""
Form1.Caption = "Sans titre"
Fin du sous-marin
Sous-privé mopen_Click()
CommonDialog1.ShowOpen
Cadre = CommonDialog1.FileName
Si fname <> "" Alors
Form1.Caption = nomf
Texte1.Texte = ""
Ouvrir fname pour la saisie en tant que #1
b = ""
Faire jusqu'à EOF (1)
Entrée de ligne n° 1, ligne suivante
b = b & ligne suivante & Chr(13) & Chr(10)
Boucle
Fermer #1
Texte1.Texte = b
Fin si
Fin du sous-marin
Sous-privé mSave_Click()
Si Form1.Caption = "Sans titre" Ou Form1.Caption = "" Alors
CommonDialog1.ShowSave
fname = CommonDialog1.FileName
Autre
fname = Form1.Caption
Fin si
Si fname <> "" Alors
Form1.Caption = nomf
Ouvrir fname pour la sortie en tant que #1
Imprimer #1, Texte1.Texte
Fermer #1
Fin si
Fin du sous-marin
Sous-privé mNewSave_Click()
CommonDialog1.ShowSave
Si fname <> "" Alors
Form1.Caption = nomf
Ouvrir fname pour la sortie en tant que #1
Imprimer #1, Texte1.Texte
Fermer #1
Fin si
Fin du sous-marin
Besoin d'utiliser le contrôle CommonDialog !
Code de propriété :
Copiez le code comme suit :
Commencer VB.Menu mFile
Légende = "Fichier"
Commencer VB.Menu mNouveau
Légende = "Nouveau"
Fin
Commencer VB.Menu mOuvrir
Légende = "Ouvrir"
Fin
Commencer VB.Menu mSave
Légende = "Enregistrer"
Fin
Commencer VB.Menu mNewSave
Légende = "Enregistrer sous"
Fin
Commencer VB.Menu mQuitter
Légende = "Quitter"
Raccourci = ^E
Fin
Fin