Jak naprogramovat průběžný panel na VB.net
Krok 1
Otevřete projekt jazyka. Poklepáním na ovládací prvek v "pruhu postupu" na panelu nástrojů přidáte do formuláře "ProgressBar1". Poklepáním na ovládací prvek "Button" přidejte ovládací prvek "Button1" do formuláře.
Krok 2
Stisknutím klávesy "F7" otevřete okno kódu. Otevřete podprogram "Form1_Load" a zadejte následující:
ProgressBar1.Minimum = 0 ProgressBar1.Maximum = 5 ProgressBar1.Value = 0
Tento kód nastavuje počáteční hodnoty proměnné pokroku, stejně jako minimální a maximální hodnoty pruhu postupu. Můžete nastavit jinou maximální hodnotu, v závislosti na tom, proč potřebujete panel postupu.
Krok 3
Otevřete podprogram "Button1_Click" a napište následující:
Pokud ProgressBar1.Value <ProgressBar1.Maximum Then ProgressBar1.Value + = 1 Pokud ProgressBar1.Value = ProgressBar1.Maximum Pak MsgBox ("Dokončeno!") End If End If
Když uživatel klepne na tlačítko, kód zkontroluje, zda je lišta pokroku menší než maximální hodnota. Pokud ano, zvětšete hodnotu o jednu, což způsobí, že se ve sloupci průběhu zobrazí také zvýšení. Dále zkontrolujte, zda hodnota dosáhla maxima. Tímto způsobem, když lišta pokroku dosáhne maxima, nemůžete hodnotu zvýšit více a proto se vyhnout chybě mimo rozsah.