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

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

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

    Private Sub btnPalety_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPalety.Click

        Cursor.Current = Cursors.WaitCursor


        Dim frmPom As New frmPalety

        frmPom.MdiParent = MyFrmHlavni      'Prirazeni rodicovskeho formulare

        frmPom.Dock = DockStyle.Fill        'formular se prizpusobi velikosti rodicovskeho formulare

        frmPom.Show()

        Me.Close()                          'Zavreni formulare frmRidici


        Cursor.Current = Cursors.Default

    End Sub