Hvordan redigere Notepad Med VB6

March 24

Notisblokk er en vanlig tekst-editor tilgjengelig med operativsystemet Windows. Dokumenter redigert eller laget i Notepad kan lagres med Unicode, ANSI, UTF-8 eller big-endian Unicode-koding. Andre eksempler på koding er morse og ASCII. Den type koding valgt bestemmer hvordan teksten skal tolkes av datamaskinen. Grunnleggende tekstfiler som er lagret med "txt" forlengelse er vanligvis Unicode. Notepad kan også brukes til å lage websider ved å lagre tekst som ".html" eller "XML".

Bruksanvisning

1 Åpne en ny Standard EXE-prosjekt i VB6. Velg "Prosjekt", "Komponenter" fra menyen og klikk på boksen ved siden av "Microsoft Rich Tekstboks' Kontroll 6.0 (SP6)." Klikk på "OK" -knappen for å lagre og lukke skjermen. Du må skrive en wrapper for å få tilgang til .NET "Filestream" class. Innpakningen bør ha en linje som ser slik ut: ". Return New Stream (StreamParameters)"

2 Velg Rich Text Box kontroll fra verktøylinjen og klikk på skjemaet for å legge til en ny Rich Text Box kontroll heter "RichTextBox1" som standard. Endre navnet til noe meningsfullt som "rtbNotePad."

3 Definere en variabel til å holde en fil og navnet på filen. Variabelen for filnummeret skal være et heltall og heter noe sånt som "iFileNum" og variabelen for filnavnet bør være en streng og heter noe sånt som "sMyFile." Få en gratis filnummer ved koding "iFileNum = Freefile."

4 Åpne Notisblokk-fil og vise innholdet i Rich Text Box:

Åpne sMyFile For Input As iFileNum

Innholdet i "sMyFile" kan leses byte for byte eller alle samtidig. For å lese litt etter litt, kode denne linjen "rtbNotepad.text = Inngang (10, iFileNum)." For å lese hele filen, kode denne linjen "rtbNotepad.text = Input (LOF (iFileNum), iFileNum)." "LOF" er "lengden av fil" -funksjon.

5 Legg til en knapp i skjemaet og gi den navnet "cmdSave" og sette sin bildetekst til "Lagre". Legge til, fjerne eller redigere innholdet i "rtbNotePad" og klikk på "Lagre" -knappen når du er ferdig. For å lagre innholdet i de rike tekstboksen kontroll, kode denne linjen "Skriv iFileNum, rtbNotepad.text."