1 / 8

Pole prvků

Pole prvků. řidicí prvky stejného typu (Image, TextBox, Label, CommandButton …) mají stejné jméno (Name) liší se vlastností Index PoleTl(0), PoleTl(1). Vytvoření pole prvků. režim návrhu ručně nastavuji vlastnost Index kopírováním poprvé potvrdím záměr kopírovat

maeve
Download Presentation

Pole prvků

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Pole prvků • řidicí prvky stejného typu (Image, TextBox, Label, CommandButton …) • mají stejné jméno (Name) • liší se vlastností Index • PoleTl(0), PoleTl(1)

  2. Vytvoření pole prvků • režim návrhu • ručně • nastavuji vlastnost Index • kopírováním • poprvé potvrdím záměr kopírovat • Index se přidělí automaticky • za běhu programu • zjednodušení práce při návrhu • nevím kolik prvků bude skutečně potřeba • o počtu prvků rozhoduje uživatel • vlastnost Count • počet prvků v poli

  3. Cyklus For • cykly používáme v programech tam, kde je potřeba určitou část programu opakovat • For cyklus použiji tehdy, pokud znám přesný počet opakování • Syntaxe: • Forpočítadlo = začátekTokonec[ příkazy ]Nextpočítadlo • počítadlo je celočíselná proměnná (Byte, Integer) lokální Dim pocitadlo As Byte

  4. Lokální proměnné • deklarují se uvnitř procedury • lze je použít jen v dané proceduře • po skončení procedury zanikají • nelze se na ně odkazovat v jiných částech programu PrivateSub cbCislo_Click() Dim Cis As Integer Cis = 10 lbCislo.Caption = Str(Cis) EndSub PrivateSub cbVypis_Click() MsgBox Cis EndSub Co program vypíše?

  5. Cyklus For - příklady1 Příklad: Zobrazení pole tlačítek PoleTl For i = 1 To 5 PoleTl(i).Visible = TrueNext i Příklad: Zobrazení pole tlačítek PoleTl LÉPE For i = 1 To PoleTl.Count PoleTl(i).Visible = TrueNext i

  6. Přidávání prvků za běhu programu • Musí existovat první prvek VZOR • nese jméno budoucího pole prvků • index nastavený (nejlépe 0) • většinou se první prvek nevyužije vlastnost Visible nastavená na False • Metoda Load • Load cihla(index) • index nového prvku v poli (potřeba počítat) • pozor prvek není vidět a je umístěn tam, kde je vzor • Metoda UnLoad • UnLoad cihla(index)

  7. Cyklus For - příklady 2 Příklad: Vytvoření 5-ti prvků Image1 za běhu programu For i = 1 To 5 Load Image1(i) Image1(i).Visible = TrueNext i

  8. Předčasné ukončení cyklu For • Cyklus For je možné předčasně ukončit • V závislosti na podmínce (podmíněný příkaz) • Exit For Příklad: Generování náh. čísel For j = 1 To i - 1 If Cisla(j).Caption = Cisla(i).Caption Then Cisla(i).ForeColor = vbRed ExitFor 'predcasne ukonceni cyklu EndIf Next j

More Related