1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
|
Protected EditCommande As EditCommandColumn
Protected templateColonne As TemplateColumn
Protected boundColonne As BoundColumn
Protected WithEvents Monbouton As Button
Protected templateType As ListItemType
Protected colonneNom As String
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Private Sub initDataGrid()
DataGrid1.AutoGenerateColumns = "False"
AddHandler DataGrid1.EditCommand, AddressOf EditItem
AddHandler DataGrid1.UpdateCommand, AddressOf UpdateItem
AddHandler DataGrid1.CancelCommand, AddressOf CancelItem
AddHandler DataGrid1.SortCommand, AddressOf TriItem
AddHandler DataGrid1.DeleteCommand, AddressOf DeleteItem
AddHandler DataGrid1.ItemCommand, AddressOf DataGrid1_Command
DataGrid1.ItemStyle.Font.Size = FontUnit.Parse("XX-Small")
DataGrid1.ItemStyle.Font.Name = "Arial"
DataGrid1.ItemStyle.ForeColor = Color.FromArgb(74, 60, 140)
DataGrid1.ItemStyle.BackColor = Color.FromArgb(231, 231, 255)
DataGrid1.AlternatingItemStyle.BackColor = Color.FromArgb(247, 247, 247)
DataGrid1.HeaderStyle.Font.Bold = True
DataGrid1.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
DataGrid1.HeaderStyle.Font.Size = FontUnit.Parse("XX-Small")
DataGrid1.HeaderStyle.Font.Name = "Arial"
DataGrid1.HeaderStyle.ForeColor = Color.FromArgb(247, 247, 247)
DataGrid1.HeaderStyle.BackColor = Color.FromArgb(74, 60, 140)
DataGrid1.AllowSorting = "True"
DataGrid1.HorizontalAlign = HorizontalAlign.Center
DataGrid1.BackColor = Color.WhiteSmoke
DataGrid1.BorderStyle = BorderStyle.None
DataGrid1.BorderColor = Color.FromArgb(231, 231, 255)
DataGrid1.BorderWidth = Unit.Pixel(1)
DataGrid1.CellPadding = 3
DataGrid1.GridLines = GridLines.Horizontal
EditCommande = New EditCommandColumn
EditCommande.ButtonType = ButtonColumnType.LinkButton
EditCommande.EditText = "EDIT"
EditCommande.UpdateText = "UPDATE"
EditCommande.CancelText = "CANCEL"
EditCommande.ItemStyle.Font.Name = "Arial"
EditCommande.ItemStyle.Font.Size = FontUnit.Parse("XX-Small")
EditCommande.ItemStyle.Font.Bold = True
EditCommande.ItemStyle.ForeColor = Color.FromArgb(247, 247, 247)
EditCommande.ItemStyle.BackColor = Color.FromArgb(74, 60, 140)
DataGrid1.Columns.Add(EditCommande)
templateColonne = New TemplateColumn
templateColonne.ItemTemplate = New DataGridTemplate(ListItemType.Item, "DELETE")
DataGrid1.Columns.Add(templateColonne)
End Sub |
Partager