Dále si všimněte, jak se testuje návratová hodnota metody MessageBox.Show (tj. na kterém tlačítku
uživatel klepl v okně zprávy). Jedná se o výčtový typ DialogResult (opět z pojmenovaného prostoru
System.WinForms).
Jestliže uživatel nechce pokračovat, ukončení aplikace nemusíte programovat znovu, ale simulujete
situaci, že uživatel klepl na tlačítko Konec. Zavoláte prostě tuto událostní proceduru.
4. Napište událostní proceduru Click tlačítka s nápisem Dodat další prachy:
Public Sub btnPrachy_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles btnPrachy.Click
' Me.Hide()
f.ShowDialog()
lblKredit.Text = f.txtKredit.text
lblSázka.Text = f.txtSázka.Text
' Me.show()
End Sub
Událostní procedura tohoto tlačítka na hlavním formuláři tedy hráči umožňuje, aby kdykoli zvýšil stávající
kredit (i když zatím předchozí nevyčerpal) a (nebo) změnil výši sázky a (nebo) zapnul či vypnul multimediální
efekty.