Med lidt arbejde , kan du skrive din egen version af edb notepad software i Visual Basic programmeringssprog. Dette vil gøre det muligt for brugeren at indtaste, udskrive og gemme tekst , ligesom Microsofts Notesblok -program gør. Ansøgningen kan være så grundlæggende som den er beskrevet her eller mere komplekse med ekstra funktioner , der skaber software , der ligner et tekstbehandlingsprogram . Programmet bruger fælles kontrol og dialog allerede er indbygget i Visual Basic. Instruktioner
1
Opret en ny Visual Basic 6.0 ( VB6 ) projekt ved hjælp af " Standard EXE " skabelon. Klik på " File" i øverste VB6 menuen og vælge " Save Project As. " Den første prompt beder om en form navn. Navngiv formularen " MyNotepad " og klik " OK". Den næste prompt beder om projektets navn . Name it " Min notesblok " og klik " OK".
2
Klik på "Projekt " i øverste VB6 menuen og vælge " komponenter ". Rul ned på listen over komponenter , indtil du ser "Microsoft Common Dialog kontrol 6,0. "Klik på afkrydsningsfeltet ved siden af dette til at tilføje denne kontrol , og klik " OK ". Dobbeltklik på denne kontrol bør der være det sidste element i værktøjskassen til venstre , for at føje det til formularen .
3
Find Properties boksen til højre på skærmen, og dobbeltklik på det første punkt , " (Navn) . " Change standard navn til " MyNotepad . \\ " Dobbelt-klik på " Caption " ejendom og ændre dette navn til "Min Notesblok . \\ "
4
Dobbeltklik på TextBox ikonet i værktøjskassen panel i venstre side af skærmen for at tilføje dette til formularen. Klik på den nye kontrol og bruge træk håndtagene for at forstørre tekstboksen til næsten på størrelse med selve formularen . Find TextBox kontrol i Properties panelet på højre side af skærmen og foretage disse ændringer :
(navn) = MyNote
Multiline = true
scrollbars = 3- Begge
5
Klik "Funktioner" i øverste VB6 menuen og vælge " menu Editor. " Make disse ændringer i menu Editor som åbner klikke på " Next " efter hver af de første to menuer og "Exit " efter den sidste som vist nedenfor:
Caption = Print
Name = mnuPrint
Klik "Næste" < br /> Caption = Gem
Name = mnuSave
Klik "Næste"
Caption = Afslut
Name = mnuExit
Klik på " OK" < br >
6
Åbn vinduet Kode ved at klikke på "Vis" og derefter " Code" i det øverste niveau VB6 menu. Skriv følgende linjer kode nøjagtigt som de vises nedenfor:
Sub form_load ()
End Sub
Function SaveMyNote ( MyNote som kontrol , CommonDialog1 Som CommonDialog , Filnavn As String ) Som Boolean
Dim fNum As Integer
Ved fejl GoTo ExitNow
CommonDialog1.Filter = \\ " tekstfiler