Předtím, než napíšeme programový kód navigace, upravíme událost formuláře Load. Programový kód bude vypadat následovně:
#Region "Udalosti formulare"
Private Sub frmPrehPalet_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Cursor = Cursors.WaitCursor
'TODO: This line of code loads data into the 'DsPaletyMaterial.tblTyp_Pa' table. You can move, or remove it, as needed.
Me.TblTyp_PaTableAdapter.Fill(Me.DsPaletyMaterial.tblTyp_Pa)
'TODO: This line of code loads data into the 'DsPaletyMaterial.tblMaterial' table. You can move, or remove it, as needed.
Me.TblMaterialTableAdapter.Fill(Me.DsPaletyMaterial.tblMaterial)
'TODO: This line of code loads data into the 'DsPaletyMaterial.tblPalety' table. You can move, or remove it, as needed.
Me.TblPaletyTableAdapter.Fill(Me.DsPaletyMaterial.tblPalety)
Me.Cursor = Cursors.Default
End Sub
#End Region
Nyní již můžeme naprogramovat základní navigační tlačítka První, Poslední a Zavřít.
#Region "Navigace"
#Region "Ridici tlacitka"
Private Sub btnZavrit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZavrit.Click
'zavrit tento formular
Me.Cursor = Cursors.WaitCursor
Dim frmRidici As New frmRidici
frmRidici.MdiParent = MyFrmHlavni
frmRidici.Show()
Me.Close()
Me.Cursor = Cursors.Default
End Sub
Private Sub btnPrvni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrvni.Click
'najit prvni zaznam
Me.TblPaletyBindingSource.MoveFirst()
Me.dgvTblPalety.Focus()
End Sub
Private Sub btnPosledni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPosledni.Click
'najit posledni zaznam
Me.TblPaletyBindingSource.MoveLast()
Me.dgvTblPalety.Focus()
End Sub
#End Region
#End Region
Dále připravíme obsluhu tlačítka Najít.
#Region "Hledani"
Private Sub btnNajit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNajit.Click
Me.pnlNavig.Enabled = False
Me.pnlEdit.Enabled = False
Me.pnlStav.Enabled = False
Me.pnlPrirad.Enabled = False
Me.pnlZmenaObsahuPalety.Enabled = False
Me.btnZavrit.Enabled = False
Me.lblCislo.Visible = True
Me.pnlNajit.Visible = True
Me.txtNajit.Text = ""
Me.txtNajit.Focus()
'Me.Refresh()
End Sub
Private Sub btnNajitAno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNajitAno.Click
Me.pnlNavig.Enabled = True
Me.pnlEdit.Enabled = True
Me.pnlStav.Enabled = True
Me.pnlPrirad.Enabled = True
Me.pnlZmenaObsahuPalety.Enabled = True
Me.btnZavrit.Enabled = True
'Nastavení na hledání podle části klíče
Dim foundIndex As Integer
foundIndex = SearchRows(Me.TblPaletyBindingSource, "Cislo_Pa", Me.txtNajit.Text)
If foundIndex > -1 Then
Me.TblPaletyBindingSource.Position = foundIndex
End If
'zneviditelneni zadavaciho pole
Me.lblCislo.Visible = False
Me.pnlNajit.Visible = False
Me.txtNajit.Text = ""
End Sub
Private Sub btnNajitZrušit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNajitZrušit.Click
'zpristupneni tlacitek
Me.pnlNavig.Enabled = True
Me.pnlEdit.Enabled = True
Me.pnlStav.Enabled = True
Me.pnlPrirad.Enabled = True
Me.btnZavrit.Enabled = True
'zneviditelneni zadavaciho pole
Me.lblCislo.Visible = False
Me.pnlNajit.Visible = False
Me.txtNajit.Text = ""
End Sub
#End Region