Comment faire pour créer un programme Notepad - Visual Basic 6.0

Instructions

1. Créez un nouveau projet Visual Basic 6.0 (VB6) en utilisant le "EXE standard" modèle. Cliquer sur "Fichier" dans le menu supérieur et sélectionnez VB6 "Enregistrer le projet sous." La première invite demande un nom de formulaire. Nommez le formulaire "MyNotepad" et cliquez sur "D'ACCORD." L'invite suivante vous demande le nom du projet. Nommez "Mon bloc-notes" et cliquez sur "D'ACCORD."

2. Cliquer sur "Projet" dans le menu supérieur et sélectionnez VB6 "Composants." Faites défiler la liste des composants jusqu'à ce que vous voyez "Microsoft Common Dialog Control 6.0." Cliquez sur la case à côté de cette option pour ajouter ce contrôle, puis cliquez sur "D'ACCORD." Double-cliquez sur ce contrôle, qui devrait être le dernier élément de la boîte à outils sur la gauche, pour l'ajouter à la forme.

3. 
   
   
   

   Localisez la boîte de propriétés sur la droite de l'écran et double-cliquez sur le premier point, "(Nom)." Changez le nom par défaut "MyNotepad." Double-cliquez sur le "Légende" la propriété et de changer ce nom pour "Mon bloc-notes."

4. Double-cliquez sur l'icône de la zone de texte dans le panneau de la boîte à outils sur la gauche de l'écran pour ajouter ceci à la forme. Cliquez sur le nouveau contrôle et utilisez le poignées de glissement pour agrandir la zone de texte à peu près la taille de la forme elle-même. Localisez le contrôle zone de texte dans le panneau Propriétés sur la droite de l'écran et de faire ces changements:
   
   (Nom) = MyNote
   Multiligne = Vrai
   ScrollBars = 3-deux

5. 
   
   
   

   Cliquez "Outils" dans le menu supérieur et sélectionnez VB6 "Éditeur de menu." Effectuez ces modifications dans la boîte de éditeur de menu qui apparaît, cliquez sur "Suivant" après chacun des deux premiers menus et "Sortie" après le dernier comme illustré ci-dessous:
   
   Légende = Imprimer
   Name = mnuPrint
   Cliquez "Suivant"
   Légende = Enregistrer
   Name = mnuSave
   Cliquez "Suivant"
   Légende = Quitter
   Name = mnuExit
   Cliquez "OK"

6. Ouvrez la fenêtre de code en cliquant sur "Vue" et puis "Code" dans le menu de VB6 de haut niveau. Tapez les lignes suivantes de code exactement comme ils apparaissent ci-dessous:
   
   Sub Form_Load ()
   End Sub
   Fonction SaveMyNote (MyNote As Control, CommonDialog1 Comme CommonDialog, Nom As String) As Boolean
   Dim fNum As Integer
   On Error GoTo ExitNow
   CommonDialog1.Filter = "Fichiers texte | * .txt"
   CommonDialog1.Filename = Nom de fichier
   CommonDialog1.CancelError = True
   CommonDialog1.ShowSave
   Filename = CommonDialog1.Filename
   fNum = FreeFile ()
   Ouvrir Nom du fichier Pour la sortie Comme #fNum
   Imprimer #fNum, MyNote.Text
   GO
   Fermer #fNum
   SaveMyNote = True
   ExitNow:
   End Function
   Private Sub mnuPrint_Click ()
   Avec CommonDialog1
   .PrinterDefault = True
   .ShowPrinter
   Printer.Print MyNote.Text
   Printer.EndDoc
   End With
   End Sub
   Private Sub mnuSave_click ()
   Nom du fichier Dim As String
   Si SaveMyNote (MyNote, CommonDialog1, Nom du fichier) Puis
   MsgBox "Votre note a été enregistrée à " & Nom De Fichier
   End If
   End Sub
   Private Sub mnuExit_Click ()
   Fin
   End Sub

7. Presse "F5" pour exécuter le programme. Type de ce que vous voulez dans la boîte et l'imprimer ou l'enregistrer en utilisant les options de menu.