Podívejme se znovu na zadání, jak by asi měl vypadat formulář Přehled materiálu.
Vidíme, že obsahuje dvě mřížky se seznamem materiálu a palet, kde je tento materiál uložen. V mřížkách se můžeme pohybovat kliknutím na příslušnou řádku nebo použitím vertikálního posuvníku.
Vlevo od mřížky materiál jsou datová pole spojená s aktuální řádkou v mřížce pro materiál. Tato pole slouží pro editování (vložení a změnu) údajů o materiálu.
Pod těmito poli se nacházejí navigační tlačítka:
Zcela dole je způsob řazení:
Vpravo od navigačních tlačítek se nacházejí editační tlačítka:
Vpravo od editačních tlačítek se nachází potvrzovací tlačítka, která umožňují odvolat či potvrdit provedené změny.
Vytvoříme nový prázdný formulář, který nazveme frmPrehMat .
Otevřeme formulář frmRidici. Poklepeme myší na tlačítko btnPrehledMaterialu (FORMULÁŘE APLIKAČNÍ) .
Do vytvořené prázdné procedury btnPrehledMaterialu_Click vložíme následující kód , který vložíme do regiónu #Region "FORMULARE APLIKACNI":
#Region "FORMULARE APLIKACNI"
Private Sub btnPrehledMaterialu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrehledMaterialu.Click
Cursor.Current = Cursors.WaitCursor
Dim frmPom As New frmPrehMat
frmPom.MdiParent = MyFrmHlavni 'Prirazeni rodicovskeho formulare
frmPom.Dock = DockStyle.Fill 'formular se prizpusobi velikosti rodicovskeho formulare
frmPom.Show()
Me.Close()
Cursor.Current = Cursors.Default
End Sub
#End Region