Creare un nuovo Visual Basic 6.0 ( VB6 ) di progetto utilizzando il modello " standard EXE" . Fare clic su "File " nel menu VB6 alto e selezionare " Salva progetto con nome . " Il primo prompt richiede un nome di modulo . Nome del modulo " MyNotepad " e fare clic su " OK . " Il prompt successivo chiede il nome del progetto . Il nome " Mio Archivio " e fare clic su " OK ". 
 2 
 Clicca su "Progetto " nel menu VB6 alto e selezionare " Componenti ". Scorrere l' elenco dei componenti finché non viene visualizzato "Microsoft Common Dialog Control 6.0 . "Fare clic sulla casella di controllo accanto a questo per aggiungere questo controllo , quindi fare clic su " OK ". Fare doppio clic su questo controllo , che dovrebbe essere l'ultima voce nella casella degli strumenti a sinistra , per aggiungerlo al modulo . 
 3 
 Individuare la casella Proprietà sulla destra dello schermo e fare doppio clic sulla prima voce , " (nome) . " Modifica il nome predefinito di " MyNotepad . \\ " Fare doppio clic sulla proprietà " Caption " e cambiare questo nome in " Note Pad . \\ " 
 4 
 doppio clic sull'icona TextBox nel pannello Casella degli strumenti sulla sinistra dello schermo per aggiungi questo al modulo . Fare clic sul nuovo controllo e utilizzare il trascinamento maniglie per allargare il TextBox a quasi le dimensioni della forma stessa . Individuare il controllo TextBox nel pannello Proprietà sulla destra dello schermo e rendere queste modifiche : 
 
 ( Nome ) = MyNote 
 Multiline = True 
 ScrollBars = 3 - Sia 
 5 
 Clicca su "Strumenti " nel menu in alto VB6 e selezionare " Menu Editor . " Make questi cambiamenti nel dialogo Editor di menu che si apre , fare clic su " Avanti " dopo ciascuno dei primi due menu e " Exit ", dopo l' ultimo , come illustrato di seguito : 
 
 Caption = Stampa 
 Nome = mnuPrint 
 Cliccare su "Avanti " < br /> Caption = Salva 
 Nome = mnuSave 
 Cliccare su "Avanti " 
 Didascalia = Esci 
 Nome = mnuExit 
 Fare clic su "OK " 
 Pagina 6 
 Aprire la finestra del codice cliccando su "Visualizza" e poi "Codice " nel menu VB6 livello superiore . Digitare le seguenti righe di codice esattamente come appaiono qui sotto : 
 
 Sub Form_Load ( ) End Sub 
 
 Funzione SaveMyNote ( MyNote As Control , CommonDialog1 Come CommonDialog , Nome As String ) As Boolean 
 Dim fNum Come 
 Integer On Error GoTo ExitNow 
 CommonDialog1.Filter = \\ " File di testo 
              
Programmazione © www.354353.com