Příklady kódu nabídky souborového systému Vb6. Přesouvání, kopírování a mazání souborů

8. ULOŽENÍ A ČTENÍ INFORMACÍ

Abyste zajistili, že se po dokončení programu neztratí všechna data vytvořená v paměti, musíte mít možnost ukládat informace na pevný disk. Jinak všechny informace zmizí beze stopy. Data lze ukládat a číst různými způsoby. Pro práci s informacemi různých velikostí a formátů můžete použít binární a textové soubory. Chcete-li uložit malé množství informací, můžete použít registr systému Windows. A pro ty nejsložitější úkoly je rozumné používat databáze.

8.1. Otevírání souborů pomocí operátoru "OTEVŘENO "

Soubor je pojmenovaná oblast jakéhokoli externího úložného zařízení. Data „žijí“ v paměti počítače a soubory žijí na pevném disku. Program nepracuje se soubory přímo, ale jako prostředníka využívá operační systém.

Existují dva typy názvů souborů: úplné - kromě názvu souboru je uvedeno také umístění souboru na externím médiu (například „C:\Program Files\Microsoft Visual Studio\VB98\VB 6.EXE“ ) a krátký - pouze název souboru (VB 6.EXE ). Pokud umístění souboru nezadáte, bude se hledat v aktuální složce, ve výchozím nastavení ve složce, kde se nachází vaše aplikace. Okamžitý název souboru se skládá ze dvou částí: skutečného jedinečného názvu souboru a jeho přípony. Samotný název identifikuje soubor a přípona obvykle označuje formát souboru nebo program, kterým byl vytvořen.

Než začnete se souborem pracovat, musíte se zeptat operačního systému ukazatel (deskriptor) soubor. Chcete-li jej získat, použijte funkci „FreeFile“. Poté pomocí operátoru „Otevřít“ je tento ukazatel spojen s požadovaným souborem. Teprve poté s ním bude program schopen pracovat. Syntaxe pro otevření souboru je následující:

‚získejte bezplatný ukazatel na soubor a přiřaďte jej proměnné

FileHandle% = FreeFile

‘ otevřete soubor

Otevřít FilePath_

Jako [#]FileHandle%

...(práce se souborem)

Zavřete [#]FileHandle

· FileHandle % – proměnná, která ukládá ukazatel souboru;

· FreeFile – název funkce, která vrací ukazatel na soubor;

· Open – jméno operátora;

· FilePath – celý název souboru;

· Pro – klíčové slovo následované popisem režimu přístupu k souboru;

· Mode – režim přístupu k souboru (viz Tabulka 15);

Tabulka 15

Režimy přístupu k souborům

Režimy přístupu

Popis

Připojit

Připojování dat na konec existujícího textového souboru. Pokud soubor neexistuje, bude vytvořen

Binární

Otevření souboru v binárním režimu, tzn. jako sadu bajtů. Pokud soubor neexistuje, ale bude vytvořen

Vstup

Otevření souboru pro čtení v textovém formátu

Výstup

Chcete-li napsat textový soubor, otevřete soubor. V tomto případě budou všechny staré informace vymazány. Pokud soubor neexistuje, ale bude vytvořen

Náhodný

Otevření souboru v režimu náhodného přístupu. Tento režim se používá pro práci s jednoduchými záznamy. Pokud soubor neexistuje, ale bude vytvořen

· Přístup – nepovinné klíčové slovo následované popisem typu přístupu;

· AccessType – popis typu přístupu:

· Číst – čtení;

· Zápis – záznam;

· Čtení Psaní – čtení a psaní.

Poznámka

S přístupovými režimy Append a Output je dostupný pouze typ přístupu pro zápis, se vstupem pouze pro čtení a s binárním a náhodným přístupem jsou dostupné všechny tři typy přístupu.

· LockType je volitelný parametr, který určuje, zda mohou jiné programy používat tento soubor, když s ním váš program pracuje. Obvykle je spojena s prací na síti (viz Tabulka 16).

Tabulka 16

Možné hodnoty pro parametr LockType

Význam

Popis

Sdíleno

Všichni uživatelé s potřebnými právy budou mít k souboru plný přístup

Zamknout čtení

Čtení souboru je blokováno, ale zápis je povolen

Zamknout zápis

Zápis do souboru je blokován, ale čtení je povoleno

Zamknout čtení a zápis

Číst i zapisovat do něj je zakázáno

· As je klíčové slovo následované ukazatelem souboru.

· # je symbol označující, že hodnota za ním je ukazatel na soubor.

· Len je volitelné klíčové slovo, které musí být následováno parametrem, který určuje délku záznamu.

· CharInBuffer % - délka záznamu pro soubor otevřený v režimu náhodného přístupu (Random).

· Close je příkaz, který zavře soubor spojený se zadaným popisovačem.

Je důležité zavřít soubor, když s ním skončíte. Příkaz "Zavřít" uvolní ukazatel souboru a přidruženou oblast paměti.

Při práci se souborem, zejména při čtení z něj, je velmi důležité určení konce souboru. Lze jej definovat pomocí funkce EOF (End Of File):

EOF (FileHandle)

· EOF – název funkce;

· FileHandle je ukazatel na soubor, jehož konec se určuje.

Funkce vrací True, pokud je dosaženo konce souboru, jinak vrací False.

8.2. Čtení a zápis do textového souboru

Textový soubor se otevře v režimu přístupu „Input“, „Output“ nebo „Append“ (viz Tabulka 15). Zvláštností tohoto režimu je, že pracuje pouze se specifickými tisknutelnými znaky. Je zbytečné pracovat se servisními symboly.

Chcete-li zaznamenat informace, použijte dva operátory „Print“ a „Write“, jejichž syntaxe je následující:

Tisk #FileHandle%, VarBuffer [;]

Napište #FileHandle%, VarBuffer [;]

· Tisk / Zápis – klíčová slova operátora.

· #FileHandle % - ukazatel na soubor, do kterého budou informace umístěny.

· VarBuffer – hodnota, která bude zapsána do souboru.

· ; – volitelný parametr používaný při zápisu do textového souboru znamená, že další hodnota bude zapsána na stejný řádek, a pokud chybí, na další.

Chcete-li číst informace ze souboru, použijte operátory „Input“ a „Line Input“. Syntaxe je navzájem podobná:

Řádkový vstup #FileHandle%, VarBuffer

Zadejte #FileHandle%, VarBuffer

· Line Input / Input – klíčová slova operátora.

· #FileHandle % - ukazatel na soubor, ze kterého budou čteny informace.

· VarBuffer – proměnná, do které se budou načítat informace.

Rozdíl mezi operátory „Line Input“ a „Input“ je v tom, že první je určen pouze pro textové soubory a druhý - pro libovolné. V případě textových souborů „Input“ čte data na jednom řádku až k prvnímu oddělovači (pro textová data je oddělovač „,“ (čárka) a pro číselná data – „“ (mezera) a „,“) a „Line Input » přečte celý řádek najednou, bez ohledu na oddělovače.

Poznámka

V Visual Basic neexistují žádné prostředky pro kontrolu formátu dříve vytvořených souborů. Symbol „2“ lze tedy číst jako odpovídající číslo a naopak.

8.3. Práce s binárními soubory

Soubory se otevírají v binární formát operátor „Otevřít“ v „Binárním“ režimu. Charakteristickým rysem tohoto režimu je, že práce se souborem je zaměřena výhradně na konkrétní bajty. Protože Visual Basic může přímo adresovat požadované umístění v souboru, tento režim se také nazývá − režim přímého přístupu. Další funkcí tohoto režimu je schopnost současně zapisovat a číst informace do různých částí souboru bez jeho opětovného otevírání. Zápis do souboru otevřeného v binárním režimu se provádí pomocí následující syntaxe:

Zadejte #FileHandle%, , NameVar

· Put – jméno operátora záznamu informací.

· RecNumber – číslo bajtu souboru, do kterého budou informace zapsány (volitelný parametr).

· NameVar je proměnná, jejíž obsah bude zapsán do souboru.

Čtení informací ze souboru v binárním režimu se provádí pomocí následujícího operátoru:

Získejte #FileHandle%, , NameVar

· Get – jméno operátora záznamu informací.

· FileHandle % - popisovač souboru.

· RecNumber – číslo bajtu souboru, ze kterého se budou číst informace (volitelný parametr).

· NameVar – název proměnné, do které budou umístěny načtené informace.

Vzhledem k tomu, že binární režim je zaměřen na bajty informace, při čtení ze souboru musí mít proměnná buffer přesně definovaný typ: buď „Byte“, pak se bude číst číselná hodnota bajtu, nebo znak pevné délky jednoho znaku, pak bude bajt přečten jako znak ANSI , jehož kód odpovídá velikosti bajtu. Tento znak může být dokonce i řídicím znakem, čehož v případě textových souborů nelze dosáhnout.

Poznámka

Pokud parametr „RecNumber“ chybí, dojde k zápisu nebo čtení informací v dalším bajtu souboru po tom, se kterým se pracovalo dříve.

8.4. Manipulace s grafikou

Můžete také ukládat a extrahovat grafické obrázky ze souborů. Chcete-li extrahovat obrázek z bitmapy nebo souboru ikony a přiřadit jej k vlastnosti „Picture“ ovládacích prvků „PictureBox“ a „Image“, použijte funkci „LoadPicture()“ s následující syntaxí:

ImageCtrl.Picture = LoadPicture(FilePath)

· ImageCtrl – název ovládacího prvku okna obrázku, ovládacího prvku obrázku nebo formuláře;

· LoadPicture – název funkce;

· FilePath – úplný název souboru.

SavePicture ImageCtrl .Picture, FilePath

· SavePicture – jméno operátora;

· ImageCtrl – název ovládacího prvku okna obrázku, ovládacího prvku obrázku nebo formuláře;

· Obrázek – název vlastnosti objektu zodpovědné za obrázek;

· FilePath – úplný název souboru udávající jeho umístění na disku.

8.5. Práce s daty v registru

Registr Windows lze použít k ukládání malých informací ve znakovém formátu. Visual Basic má čtyři postupy, které můžete použít k přístupu. Velmi snadno se používají, ale mají jednu hlavní nevýhodu: můžete přistupovat pouze k datům z konkrétního klíče registru: „MyComputer\HKEY_CURRENT_USER\Software\VB and VBA Program Settings“. Pro přístup k dalším sekcím registru musíte použít speciální funkce „Win ​​32 API“.

Chcete-li získat hodnotu nastavení z části Visual Basic registru Windows, musíte použít následující funkci:

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

· MyString – řetězec pro uložení hodnoty vrácené funkcí;

· GetSetting – název funkce.

· VBKeyName je řetězcová hodnota, která je názvem interního podklíče VB/VBA.

· Key je řetězcová hodnota, která představuje název parametru v sekci.

· Výchozí – volitelný argument, jehož hodnota bude vrácena v případě chyby (chybějící parametr).

Chcete-li uložit hodnotu do registru Windows, použijte následující příkaz:

SaveSetting VBKeyName, Section, Key, MyString

· SaveSetting – jméno operátora.

· MyString je řetězcová proměnná, do které bude umístěna nalezená hodnota.

Chcete-li získat pole z registru obsahující všechny hodnoty parametrů z konkrétního podklíče, použijte následující funkci:

MyVariant = SetAllSettings(VBKeyName, Section)

· MyVariant je pole hodnot typu „Variant“ vrácených funkcí.

· SetAllSettings – název funkce.

· Sekce – Řetězcová hodnota představující sekci nebo podsekci konkrétní aplikace.

Chcete-li odebrat celou sekci parametrů, použijte příkaz s následující syntaxí:

DeleteSetting VBKeyName, Section, Key

· DeleteSetting – jméno operátora.

Testové otázky pro autotest

  1. Jak můžete dlouhodobě uchovávat některé informace?
  2. Co je to soubor?
  3. Jaké názvy souborů znáte?
  4. Zadejte syntaxi operátoru „Otevřít“. Vysvětlete účel jeho parametrů.
  5. Jak může více aplikací sdílet přístup k jednomu souboru současně?
  6. Jak zjistit, že informace v souboru jsou vyčerpány?
  7. Proč se doporučuje jej po práci se souborem zavřít?
  8. Jaký vidíte rozdíl mezi textovým a binárním souborovým režimem?
  9. Jak se data čtou a zapisují v režimu textových souborů?
  10. Jak se data čtou a zapisují v režimu binárních souborů?
  11. Jaký je rozdíl mezi operátory „Tisk“ a „Zápis“ při práci se soubory?
  12. Jaký je rozdíl mezi operátory „Input“ a „Line Input“ při práci se soubory?
  13. Jak můžete pracovat s grafickými daty?
  14. Jaké jsou základní principy práce s registrem Windows?

Každý program musí ukládat data na disk a číst je z disku. To je nutné například pro uložení nastavení programu, uživatel si pravděpodobně nebude líbit program, který bude muset být znovu konfigurován při příštím spuštění.

V tomto článku budeme hovořit o práci s textovými soubory pomocí jazyka Visual Basic.

Popisovač souboru

Pro práci se soubory operační systém používá I/O kanály, tzn. každý otevřít soubor má své vlastní číslo.

Ve Visual Basicu je funkce FreeFile, která vrací číslo volného kanálu, který lze použít pro práci se souborem. Pokud nejsou k dispozici žádné volné kanály, dojde k chybě.

FreeFile[(RangeNumber) ]

RangeNumber-volitelný parametr, který umožňuje definovat rozsah hodnot volných kanálů, pokud RangeNumber= 0 (výchozí), pak se číslo kanálu vrátí z rozsahu 1 - 255, a pokud 1, pak z rozsahu 256 - 511.

MyFile = FreeFile "Proměnná MyFile je přiřazena bezplatný kanál a nyní jej lze použít pro práci se soubory

Práce s textovými soubory

Nejčastěji se setkáte s textovými soubory. Textové soubory se skládají ze znakové sady ASCII (American Standard Code for Information Interchange).

Než začnete zapisovat/číst data, je nutné soubor otevřít, to se provádí pomocí operátoru OTEVŘENO (Název souboru) Pro jako #Číslo souboru, kde:

Vstup- otevřít soubor pro čtení, pokud soubor neexistuje, dojde k chybě;

Výstup- pro zápis, pokud soubor neexistuje, bude vytvořen, a pokud soubor existuje, bude přepsán;

Připojit- pro přidání, pokud soubor neexistuje, tak se vytvoří, a pokud soubor existuje, tak se data doplní na konec souboru.

Čtení textových souborů lze provádět dvěma způsoby: číst znak po znaku, k tomu použijte funkci Vstup(Počet_přečtených_znaků, #Číslo souboru) a řádek po řádku, k tomu slouží funkce Vstup řádku #Číslo souboru, Kde_číst.

Dim MyFile

Dim S jako řetězec "Proměnná pro ukládání přečtených dat

MyFile = FreeFile

Open("C:\TEST.txt") pro zadání #MyFile

Vstup řádku #MyFile, S "Přečtěte první řádek ze souboru TEST.TXT do proměnné S

Dim MyFile "Deklarujte proměnnou pro bezplatný soubor

Dim i As Integer "Proměnná pro smyčku

Dim tS As String "Proměnná pro čtení řetězců

Dim S jako řetězec "Proměnná pro ukládání konečných dat

MyFile = FreeFile "Přiřazení bezplatného kanálu pro práci se soubory

"Otevřete soubor TEST.TXT pro čtení

Pro i = 1 až 5

Vstup řádku #MyFile, tS "Čtení souboru TEST.TXT řádek po řádku

Jestliže i => 5, pak S = tS "Pokud je pátý řádek, uložte jej do proměnné S

Příště já

Close #MyFile "Zavřete soubor

Dim MyFile "Deklarujte proměnnou pro bezplatný soubor

Dim S As String "Proměnná pro ukládání načtených dat

MyFile = FreeFile "Přiřazení bezplatného kanálu pro práci se soubory

Open("C:\TEST.txt") pro zadání #MyFile "Otevřete soubor TEST.TXT pro čtení

S = Input$(LOG(1); 1) "Přečtěte celý soubor do proměnné S

Close #MyFile "Zavřete soubor

Existují operátory pro zápis do souboru Tisk #Číslo souboru, Data A Napsat #Číslo souboru, Data. Jediný rozdíl mezi těmito operátory je v tom Napsat zapisuje data v uvozovkách a Tisk bez uvozovek.

Následující kód vytvoří nový soubor TEST.TXT na jednotce C:\ a zapíše do něj dva řádky, první bez uvozovek a druhý s uvozovkami:

Dim MyFile "Deklarujte proměnnou pro bezplatný soubor

MyFile = FreeFile "Přiřazení bezplatného kanálu pro práci se soubory

Open("C:\TEST.txt") pro výstup jako #MyFile "Otevřete soubor TEST.TXT pro zápis

Print #MyFile, "Tento řádek byl napsán operátorem Print, je bez uvozovek..."

Napište #MyFile, "Tento řádek byl napsán operátorem Write, je v uvozovkách..."

Close #MyFile "Zavřete soubor

To je vše. Jak jste již pravděpodobně pochopili, operátor se používá k uzavření souboru Zavřít #Číslo souboru, kde, # Číslo souboru není nutné uvádět.

Článek je trochu hrubý, ale bude užitečný pro začínající programátory. Příště budu mluvit o práci s binárními soubory.

Okna

Cíl práce: Naučit se a používat jazykové operátory VB 6 pro práci se soubory různé typy: sekvenční (textové) soubory, soubory s náhodným přístupem, binární soubory. Výzkum a použití nástroje BěžnýDialog pro otevírání a ukládání souborů, výběr písma a barvy a používání objektu Schránka pro ukládání textových fragmentů na příkladu vytvoření jednoduchého textového editoru.

Kontrolní otázky:

1. Jakými způsoby můžete otevřít textový soubor? Jak zavřít text nebo jakýkoli jiný otevřený soubor?

2. Jak se zapisují data do textového souboru, který je otevřený pro zápis? Jaký je rozdíl mezi příkazy Write a Print?

3. Jak jsou data čtena z otevřených pro čtení textový soubor? Jak se od sebe liší operátory Input a Line Input? Kterou funkci lze použít ke čtení zadaného počtu znaků ze souboru? Jak číst všechny znaky souboru?

4. Co je to uživatelský datový typ a jak se tento koncept používá při práci se soubory s náhodným přístupem ( raf)?

5. Pomocí kterých operátorů ze souboru raf záznamy se také načtou do souboru raf Píšou se nové záznamy?

6. K jakému účelu se index určuje a používá při práci se souborem? raf?

7. Jaké jsou vlastnosti používání binárních souborů? Jak se otevírají? Jak probíhá čtení z binárního souboru a zápis do binárního souboru?

8. Jak používat ovládání BěžnýDialog načíst obsah textového souboru do textového pole? Jak mohu použít stejný ovládací prvek k uložení upraveného textu do textového souboru?

9. Jak používat ovládání BěžnýDialog ke stažení obsahu souboru rtf v terénu BohatýTextové pole? Jak použít stejný ovládací prvek k uložení upraveného textu do souboru rtf?

10. Jak používat ovládání BěžnýDialog pro změnu hodnot parametrů písma a pro změnu barvy textu v okně Textové pole(nebo vybraný kus textu v okně BohatýTextové pole)?

Příklad 7.1. Uvažujme aplikaci, která předvádí zápis do textového souboru (a čtení z textového souboru) „informace o zaměstnanci“ - řádky, z nichž každý obsahuje identifikační číslo, celé jméno, datum narození a místo narození zaměstnance. Řádky tvoří tabulku, kterou na obrazovce budou napodobovat 4 ovládací prvky Combo Box (obr. 7.1), tvořící pole objektů Comb(i), jejichž vlastnost Style má hodnotu 1 – SimpleCombo.

Vyberte řádek, který chcete odstranit", vbExclamation

Comb(j).RemoveItem i

'Vložit nový záznam ke stolu:

Private Sub mnuInsert_Click()

i% = Comb(0).ListIndex

Kdybych< 0 Then

MsgBox "Zvýrazněte řádek, který má být vložen před něj", vbExclamation

Comb(0).AddItem InputBox("Zadejte číslo"), tj

Comb(1).AddItem InputBox("Zadejte své jméno"), tj

Comb(2).AddItem InputBox("Zadejte své narozeniny."), i

Comb(3).AddItem InputBox("Zadejte místo narození."), i

‘ Změna záznamu v tabulce:

Private Sub mnuUpdate_Click()

i% = Comb(0).ListIndex

Kdybych< 0 Then

MsgBox "Zvýrazněte měnitelný řetězec“, vbExclamation

Comb(0).List(i) = InputBox("Zadejte číslo", Comb(0).List(i))

Comb(1).List(i) = InputBox("Zadejte své jméno", Comb(1).List(i))

Comb(2).List(i) = InputBox("Zadejte své narozeniny.", Comb(2).List(i))

Comb(3).List(i) = InputBox("Zadejte místo narození.", Comb(3).List(i))

"Vymazání celé tabulky:

Private Sub mnuClear_Click()

‘ Vyplnění tabulky informacemi z textového souboru:

Private Sub mnuLoad_Click()

Otevřete "person. txt" pro vstup jako #1

Vstup #1, numb, fio, bdate, blok

Comb(0).AddItem numb

Comb(1).AddItem fio

Comb(2).AddItem bdate

Comb(3).AddItem block

‘ Zápis informací tabulky do textového souboru:

Private Sub mnuSave_Click()

N% = Comb(0).ListCount

Otevřete "person. txt" pro výstup jako #1

Pro i = 0 až N - 1

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

fio = Hřeben(1).Seznam(i)

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

blok = Hřeben(3).Seznam(i)

Napište #1, znecitlivění, fio, bdate, blok

‘ Vypnutí aplikace:

Private Sub mnuExit_Click()

Příklad 7.2 . Zvažte aplikaci, která ukazuje použití ovládacích prvků BěžnýDialog otevřít a uložit soubor, vybrat písmo a barvu a upravit text.

Formát souboru TXT se načte do textového pole (levé pole na obr. 7.2) a formát souboru RTF- v terénu BohatýTextové pole(pravý okraj na obr. 7.2).

objekt

Třída

objekt

Vlastnictví

objekt

Hodnota majetku

„Obecné panely

dialog"

Karta Otevřít/Uložit jako

Karta Písmo

Karta Barva

V tabulce nejsou uvedeny vlastnosti příkazů nabídky Písmo, Barva A Upravit. Níže je uveden kód procedury také pouze pro příkazy nabídky Soubor (OTEVŘENO, Uložit A UložitTak jako). Sestavení kódu pro další příkazy menu je tématem 2. úkolu této práce.

Private Sub mnuOpen_Click()

CommonDialog1.ShowOpen

F$ = CommonDialog1.FileName

If Right(F, 3) = "rtf" Then

RichTextBox1.LoadFile F

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

Otevřete F pro vstup jako #1

S$ = Vstup (N, 1)

Private Sub mnuSave_Click()

CommonDialog1.ShowSave

F$ = CommonDialog1.FileName

Private Sub mnuSaveAs_Click()

CommonDialog1.ShowSave

F$ = CommonDialog1.FileName

RichTextBox1.SaveFile F, rtfRTF

Během této práce musí žák splnit 2 úkoly.

Cvičení 1. V procesu dokončování úkolu studenti ovládají možnosti dostupné ve VB 6 pro práci se soubory s náhodným přístupem ( RAFnáhodnýpřístupsoubor).

Pro danou databázovou tabulku se deklaruje uživatelský datový typ, deklaruje se proměnná tohoto typu (výukový program, str. 108–112), zkompilují se a odladí procedury, které používají proměnnou typu uživatele.

Zejména jsou implementovány procedury pro příkazy nabídky Zapsat do souboruRAF A Číst ze souboruRAF. Stejně jako v příkladu 7.1 se k úpravě dat používá pole objektů ComboBox a menu Upravit s pěti příkazy podnabídky: Přidat poznámku, Smazat záznam, Vložte záznam, Upravit záznam, Přehledný stůl.

Možnost 1.

Deklarujte vlastní datový typ pro tabulku „Auto“ (tabulka 7.1) databáze „Autoservis“.

auto

auto

poruchy

Spodní řádek tabulky 7.1 ukazuje typy polí.

Možnost 2.

Deklarujte vlastní datový typ pro tabulku „Poruchy“ (Tabulka 7.2) databáze „Autoservis“.

poruchy

název

poruchy

Cena

Spodní řádek tabulky 7.2 ukazuje typy polí.

Pomocí Vzorové aplikace 7.1 jako šablony uspořádejte zadávání a úpravy dat pro zobrazenou tabulku, zapisujte tato data do souboru s náhodným přístupem a čtete data ze souboru s náhodným přístupem. Stejně jako v příkladu 7.1 jsou tyto akce implementovány jako operace příkazů nabídky zobrazených na Obr. 7.1.

Úkol 2. Během úkolu studenti přidávají do ukázkové aplikace 2 nové funkce, které umožňují aplikaci zobrazit jako jednoduchý textový editor.

Možnost 1 BěžnýDialog implementovat příkazy nabídky Písmo A Barva(s podnabídkou Barva postavy A Barva pozadí). Pomocí těchto příkazů byste měli být schopni vybrat písmo (jeho název, styl a velikost) pro vybraný fragment textu v okně BohatýTextové pole, stejně jako výběr barvy znaků vybraného fragmentu a výběr barvy pozadí celého okna.

Poznámka: Při nastavování objektu BěžnýDialog Chcete-li vybrat písmo pomocí vlastnosti (Custom), nezapomeňte nastavit hodnotu vlastnosti Flags na 1, 2 nebo 3 (viz příručka, strana 183).

Možnost 2. Pomocí ovládacího prvku BěžnýDialog implementovat příkazy nabídky Upravit(podnabídka kopírovat, Střih A Vložit), jehož účelem je kopírování nebo vymazání do schránky vybraného textového fragmentu a také vložit do vybrané textové oblasti obsahu schránky.

Poznámka: Do schránky (objekt Schránka) můžete použít metody SetText a GetText:

Schránka. SetText RichTextBox1.SelText

RichTextBox1.SelText = Schránka. GetText