8. LAGRE OG LESE INFORMASJON

For å sikre at all data som er opprettet i minnet ikke går tapt etter at programmet er fullført, må du kunne lagre informasjon på harddisken. Ellers vil all informasjon forsvinne sporløst. Data kan lagres og leses på en rekke måter. For å jobbe med informasjon i ulike størrelser og formater kan du bruke binære filer og tekstfiler. For å lagre små mengder informasjon kan du bruke Windows-registeret. Og for de mest komplekse oppgavene er det lurt å bruke databaser.

8.1. Åpne filer med operatøren "Åpen "

En fil er et navngitt område på en hvilken som helst ekstern lagringsenhet. Data "live" i datamaskinens minne, og filer live på harddisken. Programmet fungerer ikke med filer direkte, men bruker operativsystemet som mellomledd.

Det er to typer filnavn: full - i tillegg til filnavnet, er plasseringen av filen på eksterne medier også angitt (for eksempel "C:\Program Files\Microsoft Visual Studio\VB98\VB 6.EXE" ) og kort - bare filnavnet (VB 6.EXE ). Hvis filplasseringen ikke er spesifisert, vil den bli søkt i gjeldende mappe, som standard mappen der applikasjonen din ligger. Det direkte filnavnet består av to deler: det faktiske unike filnavnet og filtypen. Selve navnet identifiserer filen, og filtypen indikerer vanligvis filformatet eller hvilket program den ble opprettet av.

Før du begynner å jobbe med filen, må du spørre operativsystemet pekeren (beskrivelse) fil. For å få det, bruk "FreeFile"-funksjonen. Deretter, ved å bruke "Open"-operatoren, er denne pekeren knyttet til den nødvendige filen. Først etter dette vil programmet kunne jobbe med det. Syntaksen for å åpne en fil er som følger:

'få en gratis filpeker og tilordne den til en variabel

FileHandle% = FreeFile

'åpne filen

Åpne FilePath_

Som [#]FileHandle%

...(arbeider med en fil)

Lukk [#]FileHandle

· FileHandle % – en variabel som lagrer filpekeren;

· FreeFile – navnet på funksjonen som returnerer filpekeren;

· Åpen – operatørnavn;

· FilePath – fullt filnavn;

· For – et nøkkelord etterfulgt av en beskrivelse av filtilgangsmodusen;

· Modus – filtilgangsmodus (se tabell 15);

Tabell 15

Filtilgangsmoduser

Tilgangsmoduser	Beskrivelse
Legg til	Legge til data på slutten av en eksisterende tekstfil. Hvis filen ikke eksisterer, vil den bli opprettet
Binær	Åpne en fil i binær modus, dvs. som et sett med byte. Hvis filen ikke eksisterer, men vil bli opprettet
Inndata	Åpne en fil for lesing i tekstformat
Produksjon	Åpne en fil for å skrive en tekstfil. I dette tilfellet vil all gammel informasjon bli slettet. Hvis filen ikke eksisterer, men vil bli opprettet
Tilfeldig	Åpne en fil i tilfeldig tilgangsmodus. Denne modusen brukes til å arbeide med enkle poster. Hvis filen ikke eksisterer, men vil bli opprettet

· Access – et valgfritt nøkkelord etterfulgt av en beskrivelse av tilgangstypen;

· AccessType – beskrivelse av tilgangstypen:

· Les – lesing;

· Skriv – ta opp;

· Les Skriv – lesing og skriving.

Merk	Med tilgangsmodusene Tilføy og Utdata er bare skrivetilgangstypen tilgjengelig, med kun inndata Les, og med binær og tilfeldig er alle tre tilgangstypene tilgjengelige.

· LockType er en valgfri parameter som bestemmer om andre programmer kan bruke denne filen mens programmet jobber med den. Det er vanligvis forbundet med arbeid på nettverket (se tabell 16).

Tabell 16

Mulige verdier for LockType-parameteren

Betydning	Beskrivelse
Delt	Alle brukere med nødvendige rettigheter vil ha full tilgang til filen
Lås Les	Lesing av filen er blokkert, men skriving er tillatt
Lås Skriv	Skriving til filen er blokkert, men lesing er tillatt
Lås Les Skriv	Både lesing og skriving til den er forbudt

· Som er et nøkkelord etterfulgt av en filpeker.

· # er et symbol som indikerer at verdien etter den er en filpeker.

· Len er et valgfritt nøkkelord som må følges av en parameter som spesifiserer lengden på oppføringen.

· CharInBuffer % - postlengde for en fil åpnet i tilfeldig tilgangsmodus (Random).

· Lukk er en setning som lukker filen knyttet til det angitte håndtaket.

Det er viktig å lukke en fil når du er ferdig med å jobbe med den. "Close"-setningen frigjør filpekeren og det tilhørende minneområdet.

Når du arbeider med en fil, nemlig når du leser fra den, er det veldig viktig å bestemme slutten av filen. Den kan defineres ved hjelp av EOF-funksjonen (End Of File):

EOF(Filhåndtak)

· EOF – funksjonsnavn;

· FileHandle er en peker til filen hvis slutten blir bestemt.

Funksjonen returnerer True hvis slutten av filen er nådd, ellers returnerer False.

8.2. Lese og skrive til en tekstfil

Tekstfilen åpnes i "Input", "Output" eller "Append" tilgangsmodus (se tabell 15). Det særegne med denne modusen er at den bare fungerer med spesifikke utskrivbare tegn. Det nytter ikke å jobbe med tjenestesymboler.

For å registrere informasjon, bruk to operatorer "Skriv ut" og "Skriv", hvis syntaks er som følger:

Skriv ut #FileHandle%, VarBuffer [;]

Skriv #FileHandle%, VarBuffer [;]

· Skriv ut /Skriv – operatørnøkkelord.

· #FileHandle % - peker til filen som informasjonen skal plasseres i.

· VarBuffer – verdien som vil bli skrevet til filen.

· ; – en valgfri parameter som brukes når du skriver til en tekstfil, betyr at neste verdi skrives til samme linje, og hvis den er fraværende, til neste.

For å lese informasjon fra en fil, bruk "Input" og "Line Input" operatorene. Syntaksen er lik hverandre:

Linjeinngang #FileHandle%, VarBuffer

Inndata #FileHandle%, VarBuffer

· Line Input / Input – operatørnøkkelord.

· #FileHandle % - peker til filen som informasjonen skal leses fra.

· VarBuffer – en variabel som informasjon skal leses inn i.

Forskjellen mellom "Line Input" og "Input" -operatørene er at den første er kun beregnet for tekstfiler, og den andre - for alle. Når det gjelder tekstfiler, leser "Input" dataene på én linje opp til første skilletegn (for tekstdata er skilletegn "," (komma), og for numeriske data - "" (mellomrom) og ",") , og "Linjeinput" leser hele linjen på en gang, og ignorerer eventuelle skilletegn.

Merk	I Visual Basic det er ingen måte å kontrollere formatet på tidligere opprettede filer. Derfor kan symbolet "2" leses som det tilsvarende tallet og omvendt.

8.3. Arbeide med binære filer

Filer åpnes i binært format operatør "Åpne" i "Binær"-modus. Et særtrekk ved denne modusen er at arbeidet med filen er fokusert utelukkende på spesifikke byte. Siden Visual Basic direkte kan adressere ønsket plassering i en fil, kalles denne modusen også − direkte tilgangsmodus. En annen funksjon i denne modusen er muligheten til å skrive og lese informasjon samtidig i forskjellige deler av filen uten å åpne den på nytt. Skriving til en fil åpnet i binær modus gjøres ved å bruke følgende syntaks:

Sett #FileHandle%, , NameVar

· Sett – navnet på informasjonsregistreringsoperatøren.

· RecNumber – bytenummeret til filen som informasjonen skal skrives inn i (valgfri parameter).

· NameVar er en variabel hvis innhold vil bli skrevet til filen.

Lesing av informasjon fra en fil i binær modus gjøres ved å bruke følgende operator:

Få #FileHandle%, , NameVar

· Get – navnet på informasjonsregistreringsoperatøren.

· FileHandle % - filhåndtak.

· RecNumber – bytenummer på filen som informasjonen skal leses fra (valgfri parameter).

· NameVar – navnet på variabelen som den leste informasjonen skal plasseres i.

Siden den binære modusen er fokusert på byte med informasjon, må buffervariabelen ha en strengt definert type ved lesing fra en fil: enten "Byte", da vil den numeriske verdien til byten bli lest, eller et tegn med fast lengde på ett tegn, vil byten leses som et tegn, ANSI , hvis kode tilsvarer bytestørrelsen. Dette tegnet kan til og med være et kontrolltegn, som ikke kan oppnås i tilfelle av tekstfiler.

Merk

I fravær av "RecNumber"-parameteren, vil skriving eller lesing av informasjon forekomme i neste byte av filen etter den som den tidligere ble jobbet med.

8.4. Grafikk manipulasjon

Du kan også lagre og trekke ut grafiske bilder fra filer. For å trekke ut et bilde fra en bitmap- eller ikonfil og tilordne det til "Picture"-egenskapen til "PictureBox" og "Image"-kontrollene, bruk funksjonen "LoadPicture()" med følgende syntaks:

ImageCtrl.Picture = LoadPicture(FilePath)

· ImageCtrl – navnet på en bildevindukontroll, bildekontroll eller form;

· LoadPicture – funksjonsnavn;

· FilePath – fullt filnavn.

SavePicture ImageCtrl .Picture, FilePath

· SavePicture – operatørnavn;

· ImageCtrl – navnet på en bildevindukontroll, bildekontroll eller form;

· Bilde – navnet på objektegenskapen som er ansvarlig for bildet;

· FilePath – det fulle navnet på filen som indikerer plasseringen på disken.

8.5. Arbeid med data i registeret

Windows-registeret kan brukes til å lagre små informasjonsbiter i tegnformat. Visual Basic har fire prosedyrer som du kan bruke for å få tilgang til den. De er veldig enkle å bruke, men har en hovedulempe: du kan bare få tilgang til data fra en spesifikk registernøkkel: "MyComputer\HKEY_CURRENT_USER\Software\VB and VBA Program Settings". For å få tilgang til andre deler av registeret, må du bruke spesialfunksjonene "Win ​​32 API".

For å få verdien av en innstilling fra Visual Basic-delen av Windows-registret, må du bruke følgende funksjon:

MyString = GetSetting(VBKeyName, Section, Key [,Default])

· MyString – en streng for å lagre verdien returnert av funksjonen;

· GetSetting – funksjonsnavn.

· VBKeyName er en strengverdi som er navnet på den interne VB/VBA-undernøkkelen.

· Key er en strengverdi som representerer navnet på parameteren i seksjonen.

· Standard – et valgfritt argument, hvis verdi vil bli returnert i tilfelle feil (manglende parameter).

For å lagre en verdi i Windows-registret, bruk følgende setning:

SaveSetting VBKeyName, Section, Key, MyString

· SaveSetting – operatørnavn.

· MyString er en strengvariabel som den funnet verdien skal plasseres i.

For å få en matrise fra registret som inneholder alle parameterverdier fra en bestemt undernøkkel, bruk følgende funksjon:

MyVariant = SetAllSettings(VBKeyName, Section)

· MyVariant er en rekke verdier av typen "Variant" returnert av funksjonen.

· SetAllSettings – funksjonsnavn.

· Seksjon – En strengverdi som representerer en seksjon eller underseksjon av en bestemt applikasjon.

For å fjerne en hel parameterdel, bruk en setning med følgende syntaks:

DeleteSetting VBKeyName, Section, Key

· DeleteSetting – operatørnavn.

Testspørsmål for selvtest

1. Hvordan kan du lagre noe informasjon på lang sikt?
2. Hva er en fil?
3. Hvilke filnavn vet du?
4. Angi syntaksen til "Open"-operatoren. Forklar formålet med parameterne.
5. Hvordan kan flere applikasjoner dele tilgang til én fil samtidig?
6. Hvordan fastslå at informasjonen i en fil er oppbrukt?
7. Hvorfor anbefales det å lukke den etter å ha jobbet med en fil?
8. Hva ser du på som forskjellen mellom tekst- og binære filmoduser?
9. Hvordan leses og skrives data i tekstfilmodus?
10. Hvordan leses og skrives data i binær filmodus?
11. Hva er forskjellen mellom "Skriv ut" og "Skriv" operatørene når du arbeider med filer?
12. Hva er forskjellen mellom "Input" og "Line Input" operatørene når du arbeider med filer?
13. Hvordan kan du jobbe med grafiske data?
14. Hva er de grunnleggende prinsippene for å jobbe med Windows-registeret?

Hvert program må lagre data til disk og lese det fra disk. Dette er for eksempel nødvendig for å lagre programinnstillinger det er usannsynlig at brukeren liker programmet, som må konfigureres på nytt neste gang det startes.

I denne artikkelen vil vi snakke om å jobbe med tekstfiler ved hjelp av Visual Basic.

Filbeskrivelse

Å jobbe med filer operativsystem bruker I/O-kanaler, dvs. hver åpen fil har sitt eget nummer.

I Visual Basic er det en funksjon FreeFile, som returnerer nummeret til en ledig kanal som kan brukes til å jobbe med filen. Hvis det ikke er ledige kanaler, oppstår det en feil.

FreeFile[(RangeNumber) ]

RangeNumber-valgfri parameter som lar deg definere verdiområdet til gratis kanaler hvis RangeNumber= 0 (standard), så returneres kanalnummeret fra området 1 - 255, og hvis 1, deretter fra området 256 - 511.

MyFile = FreeFile "MyFile-variabelen er tildelt gratis kanal og nå kan den brukes til å jobbe med filer

Arbeid med tekstfiler

Oftest møter du tekstfiler. Tekstfiler består av tegnsettet ASCII (American Standard Code for Information Interchange).

Før du begynner å skrive/lese data, må filen åpnes ved hjelp av operatøren Åpen (Filnavn) For som #Filnummeret, Hvor:

Inndata- åpne filen for lesing, hvis filen ikke eksisterer, oppstår det en feil;

Produksjon- for skriving, hvis filen ikke eksisterer, vil den bli opprettet, og hvis filen eksisterer, vil den bli overskrevet;

Legg til- for å legge til, hvis filen ikke eksisterer, vil den bli opprettet, og hvis filen eksisterer, vil dataene bli lagt til på slutten av filen.

Lesing av tekstfiler kan gjøres på to måter: les tegn for tegn, for dette bruk funksjonen Inndata(Antall_karakterer_lest, #Filnummeret) og linje for linje brukes funksjonen til dette Linjeinngang #Filnummeret, Hvor_å lese.

Demp MyFile

Dim S As String "Variabel for lagring av lesedata

MyFile = FreeFile

Åpne("C:\TEST.txt") For Input As #MyFile

Linjeinngang #MyFile, S "Les den første linjen fra filen TEST.TXT inn i variabelen S

Demp MyFile "Deklarer en variabel for en gratis fil

Dim i As Integer "Variabel for loop

Dim tS As String "Variabel for lesing av strenger

Dim S As String "Variabel for lagring av endelige data

MyFile = FreeFile "Tilordne en gratis kanal for arbeid med filer

"Åpne filen TEST.TXT for lesing

For i = 1 til 5

Linjeinngang #MyFile, tS "Leser filen TEST.TXT linje for linje

Hvis i => 5, så er S = tS "Hvis den femte linjen, lagre den i variabelen S

Neste i

Lukk #MyFile "Lukk filen

Dim MyFile "Deklarer en variabel for en gratis fil

Dim S As String "Variabel for lagring av lesedata

MyFile = FreeFile "Tilordne en gratis kanal for arbeid med filer

Åpne("C:\TEST.txt") For Input As #MyFile "Åpne filen TEST.TXT for lesing

S = Input$(LOG(1), 1) "Les hele filen inn i variabelen S

Lukk #MyFile "Lukk filen

Det finnes operatører for å skrive til en fil Skrive ut #Filnummeret, Data Og Skrive #Filnummeret, Data. Den eneste forskjellen mellom disse operatørene er det Skrive skriver data i anførselstegn, og Skrive ut uten sitater.

Følgende kode vil opprette en ny fil TEST.TXT på C:\-stasjonen og skrive to linjer til den, den første uten anførselstegn og den andre med anførselstegn:

Demp MyFile "Deklarer en variabel for en gratis fil

MyFile = FreeFile "Tilordne en gratis kanal for arbeid med filer

Åpne("C:\TEST.txt") for utdata som #Min fil "Åpne filen TEST.TXT for skriving

Skriv ut #MyFile, "Denne linjen ble skrevet av Print-operatøren, den er uten anførselstegn..."

Skriv #MyFile, "Denne linjen ble skrevet av Write-operatøren, den står i anførselstegn..."

Lukk #MyFile "Lukk filen

Det er alt. Som du sikkert allerede har forstått, brukes operatøren til å lukke en fil Lukk #Filnummeret, hvori, # Filnummeret det er ikke nødvendig å indikere.

Artikkelen er litt grov, men den vil være nyttig for nybegynnere. Neste gang skal jeg snakke om å jobbe med binære filer.

Windows

Målet med arbeidet: Lære og bruke VB 6-språkoperatører for å jobbe med filer forskjellige typer: sekvensielle (tekst) filer, tilfeldig tilgang filer, binære filer. Forskning og bruk av verktøyet FellesDialog for å åpne og lagre filer, velge font og farge og bruke objektet Utklippstavle for lagring av tekstfragmenter, ved å bruke eksemplet med å lage et enkelt tekstredigeringsprogram.

Kontrollspørsmål:

1. På hvilke måter kan du åpne en tekstfil? Hvordan lukker jeg en tekst eller annen åpen fil?

2. Hvordan skrives data til en tekstfil som er åpen for skriving? Hva er forskjellen mellom skrive- og skriv-utsagnene?

3. Hvordan data leses fra åpen for lesing tekstfil? Hvordan er Input- og Line Input-operatørene forskjellige fra hverandre? Hvilken funksjon kan brukes til å lese et spesifisert antall tegn fra en fil? Hvordan lese alle tegnene i en fil?

4. Hva er en brukerdatatype og hvordan brukes dette konseptet når du arbeider med tilfeldig tilgangsfiler ( raf)?

5. Bruke hvilke operatorer fra filen raf poster leses også inn i filen raf Blir det skrevet nye innlegg?

6. Til hvilket formål bestemmes og brukes indeksen når man arbeider med en fil? raf?

7. Hva er funksjonene ved bruk av binære filer? Hvordan åpner de? Hvordan går det å lese fra en binær fil og skrive til en binær fil?

8. Hvordan bruke kontrollen FellesDialog laste inn innholdet i en tekstfil i et tekstfelt? Hvordan kan jeg bruke den samme kontrollen til å lagre den redigerte teksten i en tekstfil?

9. Hvordan bruke kontrollen FellesDialog for å laste ned filinnhold rtf i felt RikTekstboks? Hvordan bruke samme kontroll for å lagre den redigerte teksten til en fil rtf?

10. Hvordan bruke kontrollen FellesDialog for å endre fontparameterverdiene og for å endre tekstfargen i vinduet Tekstboks(eller et valgt tekststykke i vinduet RikTekstboks)?

Eksempel 7.1. Vurder en applikasjon som demonstrerer skriving til en tekstfil (og lesing fra en tekstfil) "ansattinformasjon" - linjer, som hver inneholder identifikasjonsnummer, fullt navn, fødselsdato og fødselssted til den ansatte. Radene danner en tabell, som på skjermformen vil bli imitert av 4 Combo Box-kontroller (fig. 7.1), og danner en rekke Comb(i)-objekter, hvis Style-egenskap har verdien 1 – SimpleCombo.

Velg linjen som skal slettes", vbExclamation

Comb(j).Fjernelement i

'Sett inn Ny inngang til bordet:

Private Sub mnuInsert_Click()

i% = Comb(0).ListIndex

Hvis jeg< 0 Then

MsgBox "Uthev linjen som skal settes inn foran den", vbUtrop

Comb(0).AddItem InputBox("Skriv inn nummer"), dvs

Comb(1).AddItem InputBox("Skriv inn navnet ditt"), dvs

Comb(2).AddItem InputBox("Skriv inn bursdagen din."), dvs

Comb(3).AddItem InputBox("Skriv inn fødested."), dvs

' Endre en tabelloppføring:

Private Sub mnuUpdate_Click()

i% = Comb(0).ListIndex

Hvis jeg< 0 Then

MsgBox "Uthev foranderlig streng", vbUtrop

Comb(0).List(i) = InputBox("Skriv inn nummer", Comb(0).List(i))

Comb(1).List(i) = InputBox("Skriv inn navnet ditt", Comb(1).List(i))

Comb(2).List(i) = InputBox("Skriv inn bursdagen din.", Comb(2).List(i))

Comb(3).List(i) = InputBox("Skriv inn fødested.", Comb(3).List(i))

’ Rydder hele bordet:

Privat Sub mnuClear_Click()

' Fylle en tabell med informasjon fra en tekstfil:

Privat Sub mnuLoad_Click()

Åpne "person. txt" for Input As #1

Inngang #1, numb, fio, bdate, bloc

Comb(0).AddItem nummer

Comb(1).AddItem fio

Comb(2).AddItem bdate

Comb(3).AddItem-blokk

' Skrive tabellinformasjon til en tekstfil:

Privat Sub mnuSave_Click()

N% = Comb(0). ListCount

Åpne "person. txt" for utdata som #1

For i = 0 til N - 1

numb = Val(Comb(0).List(i))

fio = Comb(1). List(i)

bdate = CDate(Comb(2).List(i))

blokk = Comb(3). Liste(i)

Skriv #1, nummen, fio, bdate, blokk

' Slår av programmet:

Privat Sub mnuExit_Click()

Eksempel 7.2 . Vurder en applikasjon som viser bruken av kontroller FellesDialog for å åpne og lagre en fil, for å velge en font og farge, og for å redigere tekst.

Filformat tekst vil bli lastet inn i tekstfeltet (venstre felt i fig. 7.2), og filformatet RTF- i felt RikTekstboks(høyre marg i fig. 7.2).

gjenstand

Klasse

gjenstand

Eiendom

gjenstand

Eiendomsverdi

«Generelle paneler

dialog"

Åpne/Lagre som fane

Font-fanen

Fargefane

Tabellen viser ikke egenskapene til menykommandoer Font, Farge Og Redigere. Nedenfor er prosedyrekoden også kun for menykommandoer Fil (Åpen, Lagre Og LagreSom). Å komponere kode for andre menykommandoer er temaet for den andre oppgaven i dette arbeidet.

Privat under mnuOpen_Click()

CommonDialog1.ShowOpen

F$ = CommonDialog1.FileName

Hvis Høyre(F, 3) = "rtf" Da

RichTextBox1.LoadFile F

ElseIf Right(F, 3) = "txt" Da

Åpne F for input som #1

S$ = Input(N, 1)

Privat Sub mnuSave_Click()

CommonDialog1.ShowSave

F$ = CommonDialog1.FileName

Privat under mnuSaveAs_Click()

CommonDialog1.ShowSave

F$ = CommonDialog1.FileName

RichTextBox1.SaveFile F, rtfRTF

I løpet av dette arbeidet skal eleven gjennomføre 2 oppgaver.

Øvelse 1. I prosessen med å fullføre oppgaven, mestrer studentene mulighetene som er tilgjengelige i VB 6 for å arbeide med tilfeldig tilgangsfiler ( RAFtilfeldigadgangfil).

For en gitt databasetabell deklareres en brukerdatatype, en variabel av denne typen deklareres (veiledning, s. 108–112), prosedyrer som bruker en brukertypevariabel kompileres og feilsøkes.

Spesielt er prosedyrer for menykommandoer implementert Skriv til filRAF Og Les fra filRAF. Som i eksempel 7.1, brukes en rekke objekter til å redigere data ComboEske og meny Redigere med fem undermenykommandoer: Legg til et notat, Slett inngang, Sett inn oppføring, Rediger oppføring, Oversiktlig bord.

valg 1.

Deklarer en tilpasset datatype for "Bil"-tabellen (tabell 7.1) i "Bilservice"-databasen.

bil	bil	funksjonsfeil

Den nederste linjen i Tabell 7.1 viser felttyper.

Alternativ 2.

Angi en tilpasset datatype for "Feil"-tabellen (tabell 7.2) i "Bilservice"-databasen.

funksjonsfeil	Navn funksjonsfeil	Pris

Den nederste linjen i Tabell 7.2 viser felttyper.

Bruk eksempelapplikasjon 7.1 som en mal, organiser inntasting og redigering av data for tabellen som vises, skriv disse dataene til en tilfeldig tilgangsfil og les data fra en tilfeldig tilgangsfil. Som i eksempel 7.1, implementeres disse handlingene som operasjonen av menykommandoer vist i fig. 7.1.

Oppgave 2. I løpet av oppgaven legger elevene til nye funksjoner i eksempelapplikasjonen 2 som gjør at applikasjonen kan sees på som en enkel tekstredigerer.

valg 1 FellesDialog implementere menykommandoer Font Og Farge(med undermeny Karakterfarge Og Bakgrunnsfarge). Ved å bruke disse kommandoene bør du kunne velge en skrifttype (navn, stil og størrelse) for det valgte tekstfragmentet i vinduet RikTekstboks, samt velge fargen på tegnene i det valgte fragmentet og velge bakgrunnsfargen til hele vinduet.

Merk: Når du setter opp et objekt FellesDialog For å velge en skrift ved å bruke egenskapen (Egendefinert), må du passe på å sette verdien til Flags-egenskapen til 1, 2 eller 3 (se håndboken, side 183).

Alternativ 2. Ved hjelp av en kontroll FellesDialog implementere menykommandoer Redigere(undermeny Kopiere, Kutte opp Og Lim inn), hvis formål er kopiering eller sletting til utklippstavlen til det valgte tekstfragmentet, og også sett inn til det valgte tekstområdet i innholdet på utklippstavlen.

Merk: Til utklippstavlen (objekt Utklippstavle) kan du bruke metodene SetText og GetText:

Utklippstavle. SetText RichTextBox1.SelText

RichTextBox1.SelText = Utklippstavle. GetText