Как установить цвет ячейки и изменить ее текст через datgarid в VB.NET
Я новичок в VB.Net, и для работы мне нужно использовать его для разработки нового пользовательского интерфейса.
И проблема заключается в том, как установить цвет ячейки и изменить ее текст через datgarid,
Я использую следующий код:
Me.DataGrid1 = New System.Windows.Forms.DataGrid()
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
Me.SqlDataAdapter1.Fill(Me.DataSet1, "TEST")
Dim myGridTableStyle As DataGridTableStyle = New DataGridTableStyle()
Me.DataGrid1.TableStyles.Add(myGridTableStyle)
myGridTableStyle.GridColumnStyles(1).Width = 120
Есть ли способ изменить цвет шрифта столбца 2 (столбец, который я надеюсь изменить) и изменить текст его ячейки,
Любые инструкции высоко ценятся, большое спасибо.
Ответы 1
Здесь довольно много подходов.
Во-первых, я считаю, что сетка данных ОЧЕНЬ старая.
Используйте представление сетки данных.
Итак, скажем, у меня есть кнопка на форме - для заполнения сетки, а затем у меня есть этот код:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim strSQL As String
strSQL = "SELECT ID, HotelName, City from tblHotels"
dim MyTable as datatable = MyRst(strSQL)
DataGridView1.DataSource = MyTable
End Sub
Private Sub DataGridView1_RowPrePaint(sender As Object, e As DataGridViewRowPrePaintEventArgs) Handles DataGridView1.RowPrePaint
Dim dgv As DataGridViewRow = DataGridView1.Rows(e.RowIndex)
Dim MyCell As DataGridViewCell = dgv.Cells("City")
If (Not MyCell.Value Is DBNull.Value) AndAlso MyCell.Value = "Edmonton" Then
MyCell.Style.BackColor = Color.Aqua
End If
End Sub
Таким образом, результаты следующие:
И я всегда устаю набирать код для создания таблицы данных, поэтому у меня есть эта процедура.
Public Function MyRst(strSQL As String) As DataTable
Dim dt As New DataTable
Using cmdSQL As New SqlCommand(strSQL,
New SqlConnection(My.Settings.Test3))
cmdSQL.Connection.Open()
dt.Load(cmdSQL.ExecuteReader)
End Using
Return dt
End Function
И этот код:
Dim strSQL As String
strSQL = "SELECT ID, HotelName, City from tblHotels"
dim MyTable as datatable = MyRst(strSQL)
DataGridView1.DataSource = MyTable
Я мог бы написать это так (одна строка кода), но я хотел, чтобы вы лучше видели типы данных, использованные выше. Таким образом, выше 4 строк кода могут стать такими:
DataGridView1.DataSource = MyRst("SELECT ID, HotelName, City FROM tblHotels")
Однако иногда слишком многословный код при обучении скрывает слишком многое из того, что я делаю.
Но с этой удобной рутиной MyRst? - затем часто заполнять сетку данных, поле со списком или что нет? Это всего одна строчка кода!!!
Кроме того, пока мы здесь? Удалите свой тег asp.net - это для веб-разработки, а веб-элементы управления ОГРОМНЫ, БОЛЬШИМИ, БОЛЬШИМИ, НЕВЕРОЯТНО, ОГРОМНЫМИ, чем элементы управления на рабочем столе. Таким образом, ваш тег asp.net будет источником путаницы.