Visual Basic díl 9. - Grafika ve Visual Basicu

Přesun objektu
Syntaxe pro přesun objektu na určité místo je: objekt.Move = y, x, kde y je vertikální osa a x je osa horizontální. Příkaz pak může vypadat třeba takto:

Image1.Move 1500, 2000

Pohyb objektu
Syntaxe pro pohyb objektu je následující: objekt.osa + nebo - hodnota. Vše si nyní ukážeme na příkladě:

1.Vložte na formulář komponentu Image(Image1) a do její vlastnosti Picture dejte nějaký obrázek, poté vložte čtyřikrát CommandButton(cmdNahoru, cmdDolu, cmdVlevo, cmdVpravo)

2.Poklepejte komponentu cmdNahoru a pište:

Image1.Top = Image1.Top - 100

3.Poklepejte cmdDolu a pište:

Image1.Top = Image1.Top + 100

4.Poklepejte cmdVlevo a pište>

Image1.Left = Image1.Left - 100

5.Nakonec poklepejte cmdVpravo a pište:

Image1.Left = Image1.Left + 100

6 Teď program spusťte a váš obrázek by se měl, po stisknutí příslušného tlačítka, pohybovat do příslušného směru.

Rozbor kódu
Jak jste si jistě všimly, Left je levá verlikální osa a Top je horní horizontální osa. My tedy např. příkazem Image1.Top = Image1.Top - 100 řekli že Obrázek1 má být na pozici o 100 jednotek blíž k horizontální ose, v praxi to tedy znamená že se bude pohybovat směrem nahoru.

Pozn.: Samozřejmě se nemusíte omezovat jen na čtyři směry pokud například budete chtít aby se objekt pohyboval např. šikmo nahoru do leva napíšeme:

Image1.Left = Image1.Left - 100
Image1.Top = Image1.Top - 100

Komponenty Line a Shape
Začneme tedy tím nejjednodušším a tím je line, line je prostá úsečka, můžete u ní natstavit styl(Border Style) a také barvu a další vám již známé vlastnosti.
Dále je tu komponenta Shape, která umožňuje na formulář umístit kruh, ovál, čtever a další geometrické tvary(Shape). Nastavit u ní můžete také styl čáry, výplň(FillStyle) a dále také barvu výplně, barvu čáry atd.

Kreslení kódem
Ano, je to možné. Vyzkoušejte si kód:

Circle (1000, 2000), 500

Rozbor kódu
Kruh, v závorce souřadnice a nakonec velikost.

Úloha
Experimentujte s komponentami Line a Shape, vytvořte pomocí časovačů nějakou animaci atd.