December 21
Con un po 'di lavoro, è possibile scrivere la propria versione del software per computer blocco note nel linguaggio di programmazione Visual Basic. Questo permetterà all'utente di entrare, stampare e salvare il testo come Blocco note programma di Microsoft fa. L'applicazione può essere di base come quella qui descritta o più complesso con funzioni aggiuntive, creando un software che è simile ad un programma di elaborazione testi. L'applicazione utilizza i controlli comuni e dialogo già integrate in Visual Basic.
1 Creare un nuovo progetto di Visual Basic 6.0 (VB6) utilizzando il modello "EXE standard". Fare clic su "File" nel menu VB6 in alto e selezionare "Salva progetto". Il primo prompt chiede un nome modulo. Nome forma "MyNotepad" e fare clic su "OK". La richiesta successiva chiede il nome del progetto. Il nome "Il mio promemoria" e fare clic su "OK".
2 Clicca su "Progetto" nel menu VB6 in alto e selezionare "Componenti". Scorrere l'elenco dei componenti fino a vedere "Microsoft Common Dialog Control 6.0." Fare clic sulla casella di controllo accanto a questo per aggiungere questo controllo, e quindi fare clic su "OK . "Fare doppio clic su questo controllo, che dovrebbe essere l'ultimo elemento nella casella degli strumenti a sinistra, per aggiungerlo al form.
3 Individuare il dialogo Proprietà sulla destra dello schermo e fare doppio clic sul primo elemento, "(nome)." Cambiare il nome predefinito di "MyNotepad. \" Fare doppio clic sulla proprietà "Caption" e cambiare questo nome in " Il mio block notes. \ "
4 Fare doppio clic sull'icona TextBox nel pannello degli strumenti sulla sinistra dello schermo per aggiungere questo al form. Fare clic sul nuovo controllo e utilizzare la resistenza gestisce per ingrandire la TextBox a quasi le dimensioni della forma stessa. Individuare il controllo TextBox nel pannello Proprietà sulla destra dello schermo e apportare queste modifiche: <br /> <br /> (Nome) = MyNote <br /> multilinea = True <br /> ScrollBars = 3-Both
5 Fai clic su "Strumenti" nel menu VB6 in alto e selezionare Fare questi cambiamenti nel dialogo Editor menu che si apre, fare clic su "Next" dopo ciascuno dei primi due menu e "Exit", dopo l'ultimo come mostrato di seguito "Menu Editor.": <br /> <br /> Caption = Stampa <br /> Name = mnuPrint <br /> Fare clic su "Avanti" <br /> Caption = Salva <br /> Name = mnuSave <br /> Fare clic su "Avanti" <br /> Caption = Esci <br /> Name = mnuExit <br /> Fare clic su "OK"
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 di seguito: <br /> <br /> Sub Form_Load () <br /> <br /> End Sub Function SaveMyNote (MyNote Come controllo, CommonDialog1 Come CommonDialog, nome del file come stringa) come Boolean <br /> Dim fnum come numero intero <br /> On Error GoTo ExitNow <br /> CommonDialog1.Filter = \ "File di testo | * .txt \" <br /> CommonDialog1.Filename = Nome del file <br /> CommonDialog1. CancelError = true <br /> <br /> CommonDialog1.ShowSave Nome file = CommonDialog1.Filename <br /> fnum = FreeFile () <br /> Apri Nome file per l'output come #fNum <br /> stampa #fNum, MyNote.Text <br /> <br /> GO Chiudere #fNum <br /> SaveMyNote = true <br /> ExitNow: <br /> <br /> End Function Private Sub mnuPrint_Click () <br /> <br /> Con CommonDialog1 .PrinterDefault = true <br /> <br /> .ShowPrinter Printer.Print MyNote.Text <br /> <br /> Printer.EndDoc End With <br /> <br /> End Sub Private Sub mnuSave_click () <br /> Dim Nome As String <br /> Se SaveMyNote (MyNote, CommonDialog1, nome del file) <br /> Poi MsgBox \ "La tua nota è stata salvata a \" & Nome file <br /> End If End Sub <br /> < br /> Private Sub mnuExit_Click () <br /> <br /> End End Sub
7 Premere il tasto "F5" per eseguire il programma. Tipo quello che vuoi nella casella e stampare o salvare utilizzando le voci di menu.