Torna al Thread
Private Sub EsempioDataGridImmobili()
With DataGridImmobili
.DefaultCellStyle.WrapMode = DataGridViewTriState.True 'per autosize
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders 'per autosize
.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
.CellBorderStyle = DataGridViewCellBorderStyle.Single
.GridColor = Color.Blue
.RowHeadersVisible = False
.ReadOnly = True
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
Dim imgColVisualizza As New DataGridViewImageColumn()
imgColVisualizza.Width = 20
imgColVisualizza.DisplayIndex = 0
imgColVisualizza.Name = "Foto"
imgColVisualizza.DefaultCellStyle.NullValue = Nothing
imgColVisualizza.HeaderText = "Foto"
.Columns.Add(imgColVisualizza)
.Columns("ID").Width = 35 '55
.Columns("ID").HeaderText = "Cod." 'modificare testa
.Columns("DataInsert").Width = 70
.Columns("DataInsert").HeaderText = "Data" 'modificare testa
.Columns("TipoImmobile").Width = 105
.Columns("TipoImmobile").HeaderText = "Tipologia" 'modificare testa
.Columns("Denominazione").Width = 60 '45
.Columns("Denominazione").HeaderText = "Città" 'modificare testa
.Columns("Zona").Width = 85
.Columns("Zona").HeaderText = "Zona" 'modificare testa
.Columns("IndRiservato").Width = 110
.Columns("IndRiservato").HeaderText = "Indirizzo" 'modificare testa
.Columns("istrattativa").Width = 0
.Columns("istrattativa").HeaderText = "istrattativa" 'modificare testa
.Columns("isscaduto").Width = 0
.Columns("isscaduto").HeaderText = "isscaduto" 'modificare testa
.Columns("Datascadenza").Width = 0
.Columns("Datascadenza").HeaderText = "Datascadenza" 'modificare testa
End With
DataGridImmobili.DefaultCellStyle.WrapMode = DataGridViewTriState.True 'per autosize
DataGridImmobili.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells 'per autosize
DataGridImmobili.DefaultCellStyle.BackColor = Color.OldLace