|
Napadá mě sepsat nastavení vzhledu jednoho gridu a udělat z něj funkci cca vypadající takhle:
Sub NaskinujDataGrid(dtg As DataGridView)
With dtg
.BackGroundColor = Color.Green
.GridColor = Color.Red
'atd, atd, atd
End With
End Sub
A pak jenom při spouštění zavoláte:
NaskinujDataGrid(GridView1)
NaskinujDataGrid(GridView2)
NaskinujDataGrid(GridView3)
NaskinujDataGrid(GridView4)
NaskinujDataGrid(GridView5)
Pokud by jich tam bylo víc, použijte smyčku. Ještě malý tip na závěr - v souboru JmenoFormulare.Designer.vb naleznete kódem zapsaný vzhled, který lze snadno překopírovat a usnadníte si tak psaní precedury NaskinujDataGrid().
|