Snippet

Pozvolné zobrazování formuláře

Přidáno: 15.5.2008 Kategorie: VB.NET - Komponenty Autor: Honza Dufek

Jak zajistit, aby se okno Vaší aplikace nezobrazilo hned, ale aby bylo zobrazování postupné? Tento kousek kódu Vám zajistí, že spouštění Vaší aplikace bude doprovázeno elegantním efektem.

Použití:
stačí kód nakopírovat do události Load Vašeho formuláře

For i As Integer = 0 To 100 's krokem 1 je efekt nejplynulejsi
    Me.Opacity = i / 100 'maximalni hodnota Opacity je 1, proto delime stem
    Application.DoEvents() 'bez tohoto prikazu by se formular neprekresloval a videli byste jen cerne okno
    Threading.Thread.Sleep(0.15) 'tento prikaz urcuje rychlost kroku (hodnota je v milisekundach)
Next