Hvordan lage en Notepad Program - Visual Basic 6.0

Med litt arbeid, kan du skrive din egen versjon av datamaskin notepad programvare i Visual Basic programmeringsspråk. Dette vil tillate brukeren å gå inn, skrive ut og lagre tekst på samme måte som Microsoft Notisblokk programmet gjør. Søknaden kan være så enkel som den er beskrevet her eller mer kompleks med ekstra funksjoner, lage programvare som ligner på et tekstbehandlingsprogram. Programmet bruker vanlige kontroller og dialog som allerede er bygget inn i Visual Basic.

Bruksanvisning

1 Opprett en ny Visual Basic 6.0 (VB6) prosjekt ved hjelp av "Standard EXE" mal. Klikk på "File" øverst i VB6 menyen og velg "Lagre prosjekt som." Den første blir spurt om et skjema navn. Navn formen "MyNotepad" og klikk "OK." Den neste blir spurt for prosjektnavnet. Name it "My Notepad" og klikk "OK."

2 Klikk på "Prosjekt" i den øverste VB6 menyen og velg "komponenter." Bla nedover listen av komponenter til du ser "Microsoft Common Dialog Kontroll 6.0." Klikk på boksen ved siden av denne for å legge denne kontrollen, og klikk deretter "OK . "Dobbeltklikk på denne kontrollen, som skal være det siste elementet i verktøykassen til venstre, for å legge det til skjemaet.

3 Finn egenskapsboksen på høyre side av skjermen, og dobbeltklikk på det første elementet, "(navn)." Endre standard navn til "MyNotepad. \" Dobbeltklikk på "Caption" eiendom og endre dette navnet til " min Note Pad. \ "

4 Dobbeltklikk på TextBox ikonet i verktøykassen panelet til venstre på skjermen for å legge denne til skjemaet. Klikk på den nye kontrollen og bruke dra håndtakene for å forstørre TextBox til nesten størrelsen på selve skjemaet. Finn TextBox kontrollen i Properties panelet på høyre side av skjermen, og gjøre disse endringene: <br /> <br /> (navn) = MyNote <br /> Multi = True <br /> rullefelt = 3-Begge

5 Klikk "Verktøy" i den øverste VB6 menyen og velg Gjør disse endringene i Menyredigering boksen som åpnes, klikker "Next" etter hver av de to første menyer og "Exit" etter den siste som vist under "Menu Editor.": <br /> <br /> Caption = Skriv ut <br /> Name = mnuPrint <br /> Klikk "Next" <br /> Caption = Lagre <br /> Name = mnuSave <br /> Klikk "Next" <br /> Caption = Exit <br /> Name = mnuExit <br /> Klikk på "OK"

6 Åpne Kode vinduet ved å klikke på "View" og deretter "Code" i VB6 menyen øverste nivå. Skriv inn følgende linjer med kode nøyaktig slik de vises nedenfor: <br /> <br /> Sub Form_Load () <br /> End Sub <br /> Funksjon SaveMyNote (MyNote Som Control, CommonDialog1 Som Common, Name As String) As boolsk <br /> Dim fNum As Integer <br /> On Error GoTo ExitNow <br /> CommonDialog1.Filter = \ "Tekstfiler filer~~POS=HEADCOMP | * .txt \" <br /> CommonDialog1.Filename = Filnavn <br /> CommonDialog1. CancelError = True <br /> CommonDialog1.ShowSave <br /> Filename = CommonDialog1.Filename <br /> fNum = Freefile () <br /> Åpne Name For Output As #fNum <br /> Skriv ut #fNum, MyNote.Text <br /> GÅ <br /> Lukk #fNum <br /> SaveMyNote = True <br /> ExitNow: <br /> End Function <br /> Private Sub mnuPrint_Click () <br /> Med CommonDialog1 <br /> .PrinterDefault = True <br /> .ShowPrinter <br /> Printer.Print MyNote.Text <br /> Printer.EndDoc <br /> End Med <br /> End Sub <br /> Private Sub mnuSave_click () <br /> Dim filnavn som String <br /> Hvis SaveMyNote (MyNote, CommonDialog1, Filnavn) Deretter <br /> MsgBox \ "kommentarer har blitt lagret til \" & Filnavn <br /> End If <br /> End Sub < br /> Private Sub mnuExit_Click () <br /> End <br /> End Sub

7 Trykk "F5" for å kjøre programmet. Skriv hva du vil i boksen og skrive ut eller lagre den med menyelementene.

Hint

  • Du kan legge til flere menyelementer til toppen av den nye notepad ved å bruke meny Editor som i trinn 5 og skrive tilhørende kode. Du kan også bruke MenuEditor å lage undermenyer under hovedalternativene.
  • The Common Dialog Kontroll 6.0 er inkludert i en egen Microsoft fil, COMDLG32.OCX. Hvis du kompilere dette programmet til å lage et program som kan installeres og brukes av andre, må du distribuere denne filen sammen med (EXE-fil) kjørbar.