Formuláře základní
Formulář pro materiál - otevření a vytvoření formuláře
 Tisk

Formulář pro materiál - otevření a vytvoření formuláře

Vytvoříme si formulář, pomocí kterého později naplníme daty tabulku tblMaterial. Postup je následující:

#Region "FORMULÁŘE ZÁKLADNÍ"

    Private Sub btnMaterial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMaterial.Click

        Cursor.Current = Cursors.WaitCursor


        Dim frmPom As New frmMaterial

        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