Na formulář si dolů přidáme GroupBox, který bude obsahovat volby řazení materiálu, buď podle čísla materiálu, nebo podle názvu materiálu. Přidaný GroupBox bude mít následující vlastnosti :
Do grbRazeni vložíme dva RadioButton , který budou mít následující vlastnosti:
Skupina radiových přepínačů má tu vlastnost, že může být aktivní jen jedno tlačítko. Při klepnutí se programově zjistí, které je aktivní a podle toho se nastaví řadící klíč. Vytvoříme obsluhu události klepnutí . Obnoví se zobrazení obrazovky a nastaví se fokus na mřížku s materiálem.
#Region "grbRazeni"
Private Sub rdbRaditCislaMat_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbRaditCislaMat.CheckedChanged
If rdbRaditCislaMat.Checked Then
Me.TblMaterialBindingSource.Sort = "Cislo_Mat"
Me.dgvTblMaterial.Focus()
End If
End Sub
Private Sub rdbRaditNazevMat_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbRaditNazevMat.CheckedChanged
If rdbRaditNazevMat.Checked Then
Me.TblMaterialBindingSource.Sort = "Nazev_Mat"
Me.dgvTblMaterial.Focus()
End If
End Sub
#End Region
Jak je z obr. patrné, tak jsme událost formuláře Load vložili do regiónu #Region "Udalosti formulare". Upravíme událost formuláře Load tak, že přidáme nastavení řadit podle čísla materiálu. Výsledná událost Load bude vypadat následovně:
#Region "Udalosti formulare"
Private Sub frmPrehMat_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 'DsData.tblPalety' table. You can move, or remove it, as needed.
Me.TblPaletyTableAdapter.Fill(Me.DsData.tblPalety)
'TODO: This line of code loads data into the 'DsData.tblMaterial' table. You can move, or remove it, as needed.
Me.TblMaterialTableAdapter.Fill(Me.DsData.tblMaterial)
'radit podle cisla materialu
rdbRaditCislaMat.Checked = True
Me.Cursor = Cursors.Default
End Sub
#End Region