15. Práce s více formuláři
Přidal/a Jarda dne November 21 2010 11:03:43
Do projektu přidáme další formulář a na obrazovce ho zobrazíme pomocí metody ShowDialog





V poli Name můžeme formulář přejmenovat (třeba na HelpInfo).




Dále použijeme ovládací prvky Label a TextBox



K tlačítku OK přiřadíme událostní proceduru:
Me.DialogResult = Windows.Forms.DialogResult.OK


Dále zapíšeme na začátek kódu za
píšeme příkaz pro imnport knihovny tříd obsahující třídu StreamReader - nám poslouží k tomu, abychom mohli do formuláře importovat text bez pracného přepisování.
Imports System.IO


Do událostní procedury HelpInfo_Load zapíšeme následující kód:


Dim StreamToDisplay As StreamReader
StreamToDisplay = New StreamReader("F:\Dokumenty\vyukaIVT\ABS\readme.txt", System.Text.Encoding.Default)
TextBox1.Text = StreamToDisplay.ReadToEnd
StreamToDisplay.Close()
TextBox1.Select(0, 0)

Tím máme formulář hotov, zbývá zařídit, aby se otevíral z událostní procedury prvního formuláře. Vrátíme se do prvního formuláře a přiřadíme událostní proceduru nabídce Nápověda k programu.
Dim frmHelpDialog As New HelpInfo()
frmHelpDialog.ShowDialog()


Bez uvedení podrobností je zřejmé, že jsme deklarovali proměnnou typu formuláře. Třídu HelpInfo jsme vytvořili již dřív tím, že jsme přidali formulář HelpInfo.vb


Úkol:
1. Podobně upravte i informace o programu, můžete použít i PictureBox