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