Jméno:    Heslo:   
Kdo je on-line
· Hosté on-line: 5

· Členové on-line: 0

· Registrovaní členové: 21
· Nejnovější člen: Kamila
PAVLAČ

20.05.2012

Nedělní TV debaty o korupci

Nedělní televizní debaty na České televizi Otázky Václava Moravce (ČT-OVM) a TV Prima (TVP), se týkaly převážně práva v Česku se zaměřením na korupční jednání politiků.

Vláda,řešení...

K TVP stanici mám nejprve několik technických připomínek. Poté si všímám vyjádření Jiřího Čunka a Radha Johna v TVP a prezidentky státních zástupců Bradáčové v ČT.


Vice: Nedělní TV debaty o korupci
Reklama2
Visual Basic (díl 7.): Událost, handler
Visual BasicDnes se seznamíme s pojmem událost a programem (skriptem) handler, který na událost reaguje. Tedy - vzhůru do tvorby první aplikace! Navazujeme plynule na předcházející díl. Tentokrát se již dostaneme k napsání prvního aplikačního skriptu s předvedením první praktické ukázky.

Než začneme, trochu nezáživné teorie. Pokud v některé aplikaci kliknete na tlačítko, zvětšíte/zmenšíte dialogové okno, či kliknete myší na plochu, stisknete klávesu, atd - vzniká událost. Ve Windows je napsán program, který na tyto události reaguje. Tento program prostě dovede zjistit, kde je umístěn kurzor. Uvažujme funkci tlačítka. Když se dostane kurzor nad tlačítko, které můžeme stisknout, program provede vizuální efekt stisknutí tlačítka. Avšak program v žádném případě neví, jaká činnost se má odehrád po stisknutí tlačítka. Nu a zde přicházíme na řadu my - programátoři. Naším úkolem je napsat handler, tedy program, který Windowsu sdělí, co má dále provést.

První aplikace

Jako v minulém díle budeme potřebovat nastavení v okně "Properties". Skončili jsme kliknutím vedle Caption v pravém sloupečku. Zde jsme změnili název "Label1" na "Seznam". Nyní rovněž změníme název okna formuláře na UserForm2. Případně vytvoříme Nový formulář. Poté zavedeme do formuláře první prvek - textový box TextBox1

TextBox1

  • Nejprve musíme nový formulář otevřít. V okně "Project" klikněme dvakrát na "UserForm2", pokud ho tam v adresářovém stromě máme.
  • Pokud ne postupujeme z hlavního menu takto: View/Projekct Explorer. Objeví se adresářový strom. Zde klikneme pravým tlačítkem myší a zadaváme postupně: Forms/Insert/UserForm, tím automaticky vytvoříme nový modul formuláře, který se nám zobrazí. Jestliže ne, dvakrát klikněte na adresář (název) nově vytvořeného modulu formuláře!
  • Otevře se (v pořadí formulář s dalším číslem) "UserForm2,3..." se stejnojmenným názvem v hlavičce; my nyní pracuje s formulářem UserForm2.
  • Nyní přetáhněme z panelu "Nástroje" ikonu textu "Textové pole" (ab) na plochu formuláře. Tím vytvoříme textový box "TextBox1.
  • Všimněte si, že v okně Properties nahoře se vedle "Name" objevil rovněž onen název našeho formuláře "TextBox1"
  • Otevřete dále okno Properties, pokud není otevřeno. Nyní se v tomto okně zaměříme na položku v prvním řádku Name, kde ve sloupci vedle ní změňte text na txtText, čímž této položce přiřadíte důležitou hodnotu textového řetězce.
  • Dále vlastnosti MultiLine v levém sloupci přířadíme hodnotu True
  • A konečně si zkontrolujeme vlastnost Text v levém sloupci. Vedle ní v pravém sloupci musí zůstat prázdné místo (pro prázdný řetězec), zde budeme v aplikaci psát text do textového bloku.

Vlastnost Hodnota
Name (název ovládacího prvku) txtText
MultiLine True
Text prázdný řetězec

Tedy ještě jednou souhrnné vysvětlení: Name je vlastnost, která deklaruje název vybraného ovládacího prvku. Pod ním se v dalších krocích bude tento prvek ovládat programovým kódem (skriptem). MultiLine Nastavíme v okně "Properties" na "True", abychom mohli vkládat více řádku textu. "False" umožňuje vložit pouze jeden řádek. A konečně je zde Text, což je textový řetězec zakomponovaný do "TextBoxu"

CommandButton

  • Pracujeme dále s oknem formuláře "UserForm2". Nyní klikněte levým tlačítkem myší na ikonu tlačítka (Příkazové tlačítko) v panelu "Nástroje", podržte stlačenou myš a ikonu přesuňte na kterékoli místo ve formuláři. Stlačení myší uvolněte. Ve formuláři se objeví CommandButton.
  • Velikost tlačítka můžeme nastavit tažením za "úchytky", případně definováním "width" a "height" v okně Properties.
  • Opět se v okně "Properties" objeví vedle "Name" název tlačítka "CommandButton", ale POZOR, opět jej přepisujeme, a to tentokrát na název cmdOtevri. Ten se nám také okamžitě objevi nahoře v okně Properties.
  • A ještě jedno přepisování. Opět, podobně jako v předešlém postupu přepíšeme vedle Caption název "CommandButton" na text, který se má objevit na tlačítku "Ukaž text!". Prostě textová hodnota vlastnosti Caption vytvoří titulek na Příkazovém tlačítku.
  • V okně Properties můžeme dále nastavit další vlastnosti tlačítka. Např. změníme příkazem "ForeColor" barvu nápisu na tlačítku na modrou, nebo příkazem Font změníme velikost písma apod.

Vlastnost Hodnota
Name (název ovládacího prvku) cmdOtevri
Caption (text na tlačítku) Ukaž text!

První program (handler)

Je čas pustit se do deklarování našeho prvního skriptu. To začneme jednoduše - klikneme dvakrát v našem formuláři "UserForm2" na vytvořené tlačítko "Ukaž text!". Tzn., řekneme MSVB, že míníme psát handler. Okamžitě se nám zobrazí dialogové okno, do nějž napíšeme potřebný skript.


Ukázka vytvoření handleru s potřebnými procedurami

Definice skriptu (handleru)

  • První řádek deklaruje hlavičku procedury s klíčovým názvem Private Sub
  • Na prvním řádku pak je ještě název procedury, která obsahuje událostní proceduru s přesnou konvencí:
  1. název ovládacího prvku
  2. podtržítko
  3. název programované události
  4. závorky levá, pravá, případně uvnitř závorek seznam parametrů, oddělený čárkou

Jak je zřejmé z obrázku, za prvním řádkem v proceduře vidíme tělo, které obsahuje hlavní kód Visual Basicu. V tomto skriptu je klíčový název MsgBox, který se postará o zobrazení informačního okna se zobrazeným textem, který jsme uvedli v textovém řetězci "txtText", vlastnosti Text ovládacího prvku. Tudíž vlastnost ovládacího prvku se skládá:

  1. název ovládacího prvku
  2. následuje tečka (.)
  3. název vlastnosti
  4. Proceduru ukončuje příkaz End

Po vytvoření handleru (skriptu) je nutné aktivovat klávesnici F5. Zobrazí se vám vyrobený formulář ve Windows. Pokud v textovém boxu bliká kurzor, je to známka, že postupujete správně. Skript je aktivní. Nyní si ověříme funkčnost prakticky. Do textového boxu (políčka) napiště jakýkoli text. Poté klikněte myší na tlačítko Ukaž text! Na obrazovce se vám objeví druhé, menší informační okno s výsledným textem.

Postupně otevřeme dialogové a informační okno
Ukázka funkce první vytvořené aplikace

Resumé

Dospěli jsme tedy k realizaci první velmi jednoduché aplikace ve Visual Basicu. Příklady jsou ověřovány v přidavném modulu MS Word, který rozjedete cestou: Nástroje/Makro/MSVB. Poznali jsme první spustitelný kód, který jako ostatní kódy je uložen ve formě procedury. Událostní procedury dovedou reagovat na výskyt události, ke kterým je připojíme. Čekají nás další překvapivé věci prostřednictvím klíčového slova "Sub". O tom příště.

Související články v kategorii:
Komentáře
Zatím nikdo nekomentoval. Buďte proto první a vložte svůj komentář.
Přidat komentář
Jméno:

Validační kód:


Zadejte validační kód:

Sdílet tuto novinku
URL:
BB-Code:
HTML:
Sdílet:
Share |