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 like Microsofts Notepad program gjør. Søknaden kan være så enkel som den er beskrevet her eller mer komplekse med flere funksjoner , lage programvare som ligner på et tekstbehandlingsprogram . Programmet bruker vanlige kontroller og dialog allerede er bygget inn Visual Basic. Instruksjoner
en
Lag 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 meldingen ber om en form navn. Navngi skjemaet " MyNotepad " og klikk " OK . " Det neste blir spurt om prosjektets navn . Name it " Min Portefølje " og klikk " OK ".
2
Klikk på "Prosjekt" i den øverste VB6 menyen og velg " Components ". Bla nedover listen over komponenter til du ser "Microsoft Common dialogkontroll 6.0. "Klikk på boksen ved siden av denne for å legge denne kontrollen , og klikk deretter på " OK ". Dobbeltklikk på denne kontrollen , som skal være det siste elementet i verktøykassen til venstre , for å legge det til skjemaet .
3
Finn Properties -boksen på høyre side av skjermen, og dobbeltklikk på det første elementet, " (navn) . " Endre standard navn til " MyNotepad . \\" Dobbeltklikk på " Bildetekst " eiendom og endre dette navnet til " My Notatblokk . \\"
4
Dobbeltklikk på TextBox ikonet i verktøykassen panelet til venstre på skjermen for å legge dette til skjemaet. Klikk på den nye kontrollen og bruke dra håndtakene for å forstørre TextBox til nesten på størrelse med selve skjemaet . Finn TextBox kontroll i Egenskaper-panelet på høyre side av skjermen, og gjøre disse endringene :
( Navn ) = MyNote
Multiline = true
ScrollBars = 3 - Både
5
Klikk "Verktøy " øverst i VB6 menyen og velg " Menu Editor. " Gjør disse endringene i Menu Editor boksen som åpnes, klikker "Next " etter hver av de første to menyer og " Exit " etter den siste som vist nedenfor :
Caption = Utskrift
Name = mnuPrint
Klikk "Next"
Caption = Lagre
Name = mnuSave
Klikk "Next"
Caption = Exit
Name = mnuExit
Klikk "OK"
6
Åpne kode-vinduet ved å klikke på "Vis" og deretter " Code" i den øverste nivå VB6 menyen . Skriv inn følgende linjer med kode nøyaktig slik de vises nedenfor :
Sub Form_Load ( )
End Sub
Funksjon SaveMyNote ( MyNote Som Control, CommonDialog1 As CommonDialog , Filnavn As String ) As Boolean
Dim fNum As Integer
On Error GoTo ExitNow
CommonDialog1.Filter = \\ " tekstfiler
