REMOVER BORDA DATAGRID
Boa tarde galera,
como faço para remover(se tem como) o canto do DataGrid
como faço para remover(se tem como) o canto do DataGrid
E tem como alterar a cor ali de cima em Id, nome??
Citação::
E tem como alterar a cor ali de cima em Id, nome??
tem sim Brown,
HeaderCell.Style
E outra divida, como faço para não deixar o usuario mecher nas linhas tipo tirar aquela setinha de dois lados que aumenta os campos manja?
Citação::
E outra divida, como faço para não deixar o usuario mecher nas linhas tipo tirar aquela setinha de dois lados que aumenta os campos manja?
Amigo pelo visto você é aprendiz em VB.NET essas são coisas básicas da linguagem de programação, acho que você precisa fazer um curso avançado de programação.
Veja alguns sites que oferecem cursos gratuitos que podem te ajudar.
é que eu não altero muito a parte grafica do DataGrid, e tão pedindo pra deixar diferente
Citação::
é que eu não altero muito a parte grafica do DataGrid, e tão pedindo pra deixar diferente
E ai Brwon.
entao fiz um exemplo meio rapido aqui
faz uma função de formatar o Grid e poem esse codigo ai e adapt ao seu estilo
With dgv
Dim Estilo_Grid As New DataGridViewCellStyle
estilo_cabecalho.BackColor = Color.White
dgv.Columns(0).HeaderCell.Style = Estilo_Grid
[ô]Aqui vc faz seu Datagrid ZEbrar
dgv.GridColor = Color.white [ô]Escolha sua COR
dgv.DefaultCellStyle.ForeColor = Color.Black [ô]Escolha Sua COR
dgv.RowsDefaultCellStyle.BackColor = Color.white [ô] 1º COR DA LINHA A ZEBRAR
dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.black [ô] 2º COR DA LINHA A ZEBRAR
dgv.GridColor = Color.white [ô] Escolha outra COR
End With
tem outra se caso vc interessa . Numerar as Linhas do Datatgrid
[ô]Numerar Datagrid
Private Sub SEUDATAGRID_RowPostPaint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles SEUDATAGRID.RowPostPaint
Try
[ô]Capitura os Numeros da Fila do Datagrid
Dim RowsNumber As String = (e.RowIndex + 1).ToString
While RowsNumber.Length < SEUDATAGRID.RowCount.ToString.Length
RowsNumber = [Ô]0[Ô] & RowsNumber
End While
Dim size As SizeF = e.Graphics.MeasureString(RowsNumber, Me.Font)
If SEUDATAGRID.RowHeadersWidth < CInt(size.Width + 20) Then
SEUDATAGRID.RowHeadersWidth = CInt(size.Width + 20)
End If
Dim ob As Brush = SystemBrushes.ControlText
e.Graphics.DrawString(RowsNumber, Me.Font, ob, e.RowBounds.Location.X + 15, e.RowBounds.Location.Y + ((e.RowBounds.Height - size.Height) / 2))
Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]SoftG[Ô], _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
[b]
[ô]Numerar Datagrid
Private Sub SEUDATAGRID_RowPostPaint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles SEUDATAGRID.RowPostPaint
Try
[ô]Capitura os Numeros da Fila do Datagrid
Dim RowsNumber As String = (e.RowIndex + 1).ToString
While RowsNumber.Length < SEUDATAGRID.RowCount.ToString.Length
RowsNumber = [Ô]0[Ô] & RowsNumber
End While
Dim size As SizeF = e.Graphics.MeasureString(RowsNumber, Me.Font)
If SEUDATAGRID.RowHeadersWidth < CInt(size.Width + 20) Then
SEUDATAGRID.RowHeadersWidth = CInt(size.Width + 20)
End If
Dim ob As Brush = SystemBrushes.ControlText
e.Graphics.DrawString(RowsNumber, Me.Font, ob, e.RowBounds.Location.X + 15, e.RowBounds.Location.Y + ((e.RowBounds.Height - size.Height) / 2))
Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]SoftG[Ô], _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
[b]
Tópico encerrado , respostas não são mais permitidas