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