dotNETportal.cz

Pokud máte nějaký náročný proces, spouštějte ho ve vlastním vlákně nebo vám přestane odpovídat uživatelské rozhraní a tím pádem vám bude kontrola tlačítka k ničemu. Kromě toho tlačítko není třeba kontrolovat, pouze na jeho událost napojit metodu která se automaticky zavolá při klepnutí na něj.

Na začátečníky nemůžete hned vybafnout vlákna, to by se do toho úplně zamotali. Je pravda, že DoEvents zpomaluje a nemělo by se používat, ale úplným začátečníkům ho prozradit můžeme. Až budou umět programovat lépe, naučí se vlákna.

Dim zastavit As Boolean = False

Public Sub CasoveNarocnaProcedura()
   zastavit = False
   While podmínka

       Application.DoEvents()   'zpracuje události 
       If zastavit Then Exit While  'pokud je příkaz pro zastavení, vypadnout z cyklu 
   End While
End Sub

Public Sub Button1_Click(sender As Object, e As EventArgs)
   zastavit = True
End Sub

Jak psal kolega Linhart, toto řešení není vhodné používat v profesionálních aplikacích, nicméně začátečníkům bude stačit.

Události tlačítek ani jiných komponent se nemůžou zpracovat, pokud se zrovna zpracovává nějaká jiná událost, tak, jak události nastávají, řadí se do fronty a zpracovávají se postupně. Když máme nějakou událost, která se zpracovává dlouho, můžeme uvnitř zavolat Application.DoEvents, což způsobí, že se v daný okamžik zpracují všechny události, které čekají ve frontě za touto událostí, a pak se pokračuje dál. Díky tomu se nestane, že kliknutí na tlačítko aplikaci zasekne, ale událost se normálně zpracuje.

Vhodnější je použít vlákna, toto řešení není čisté, Application.DoEvents má poměrně velkou řežii a při extrémně častém volání zpomaluje.

No, tady je problém, že v události Paint by se nemělo vůbec nic počítat, protože Paint vykresluje. Vykreslování obecně žere dost výkonu samo o sobě, takže ještě prodlužovat dobu spuštění této procedury není vhodné. A mimochodem kreslit na formulář z jiného vlákna také není to pravé.

Řešením je např. vykreslit scénu do obrázku a v události Paint ten obrázek překreslit na obrazovku. Nebudete si tím blokovat událost Paint, která by měla proběhnout co nejrychleji, aby vykreslování nebrzdila.

'vytvořit obrázek stejné velikosti jako je okno
Dim img As New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
Dim g As Graphics = Graphics.FromImage(img)

'vykreslit časově náročnou scénu do obrázku a volat DoEvents
While něco
  g.DrawLine ...
  DoEvents()
End While

'říct formuláři, že jsme už hotovi, ať si zavolá událost Paint
Me.Invalidate()

'------------------------------------------------
Protected Sub Form1_Paint(sender As Object, e As PaintEventArgs)
    'až to bude, nakreslit to na formulář na pozici 0,0
    Me.CreateGraphics().DrawImage(img, 0, 0)
End Sub

Do události Paint tím pádem dáme jenom vykreslení jednoho velkého obrázku, který ale už máme nachystaný, takže Paint už zdržovat nebude.