Notesblok er en almindelig tekst editor tilgængelig med Windows-styresystemet. Dokumenter, redigeret eller oprettet i Notesblok kan gemmes med Unicode , ANSI, UTF -8 eller big- endian Unicode-kodning . Andre eksempler på kodning er morsekode og ASCII. Den type kodning valgt bestemmer, hvordan teksten skal fortolkes af computeren. Grundlæggende tekstfiler gemt med " . Txt " udvidelse er normalt Unicode. Memo kan også bruges til at skabe web-sider ved at gemme teksten som " . Html " eller " . Xml . " Instruktioner
1
Åbn en ny standard-EXE -projekt i VB6 . Vælg " Projekt ", " Components" fra menuen og klikke på afkrydsningsfeltet ud for " Microsoft Rich Textbox Kontrol 6.0 ( SP6 ) . " Klik på "OK" knappen for at gemme og lukke skærmbilledet. Du bliver nødt til at skrive en wrapper for at få adgang til . NET " FileStream " klassen. Wrapper skal have en linje , der ser sådan ud: "Return Ny Stream ( StreamParameters ) ".
2
Vælg Rich tekstboks på værktøjslinjen , og klik på formularen til at tilføje en ny RTF Box kontrol navnet " RichTextBox1 " som standard. Omdøbe den til noget meningsfuldt som " rtbNotePad ".
3
Definer en variabel til at holde en fil nummer og navnet på filen. Den variable for filen nummer skal være et heltal og navngivet noget lignende " iFileNum ", og variabel for filnavnet skal være en streng og navngivet noget lignende " sMyFile ". Få en gratis fil nummer ved kodning
4
Åbn Notesblok -fil og vise indholdet i Rich Text Box " iFileNum = FreeFile . " : Hej
Open sMyFile For Input Som iFileNum < br >
indholdet af " sMyFile " kan læses byte ved byte eller alle på én gang . Hvis du vil læse lidt efter lidt , kode denne linje " rtbNotepad.text = Input (10, iFileNum ) . " For at læse hele filen , kode denne linje " rtbNotepad.text = Input ( LOF ( iFileNum ) iFileNum ) . " " LOF " er " længden af filen "-funktion.
5.
Tilføj en knap til formularen og navngive den " cmdSave " og sæt dens billedtekst til "Gem". Tilføje, fjerne eller redigere indholdet af " rtbNotePad " og klik på "Gem" knappen, når du er færdig. Hvis du vil gemme indholdet af den rige tekstboks , kode Denne linje "Write iFileNum , rtbNotepad.text . "
