Задаем ширину и названия столбцов DataGrid
Каждый раз после запуска проекта все столбцы DataGrid имеют одинаковую ширину и нам приходится ее подправлять, что утомительно. Исправить положение нам поможет такой код, задающий ширину столбцов и их названия:
Dim Стиль As New DataGridTableStyle
Стиль.MappingName = DataSet11.Книги.TableName
DataGrid1.TableStyles.Add(Стиль)
DataGrid1.TableStyles(0).GridColumnStyles("Код").Width = 0
DataGrid1.TableStyles(0).GridColumnStyles("Nazvanie").Width
= 200
DataGrid1.TableStyles(0).GridColumnStyles("Nazvanie").HeaderText
= "Название"
DataGrid1.TableStyles(0).GridColumnStyles("Kol_str").HeaderText
= "Число стр."
В результате сетка будет выглядеть, как на Рис. 24.28.
Рис. 24.28
Пояснения: Настройка названий, ширины столбцов и других параметров сетки DataGrid осуществляется в объекте класса DataGridTableStyle. Поскольку одну сетку мы можем использовать последовательно для показа нескольких таблиц, то и объектов таких может быть несколько. Они объединяются в принадлежащую сетке коллекцию TableStyles. В каждом таком объекте есть коллекция стилей столбцов GridColumnStyles, где и осуществляются настройки конкретных столбцов.
Первая строка фрагмента создает стиль – объект класса DataGridTableStyle. Вторая указывает имя (TableName) таблицы, к которой следует относить этот стиль, для чего присваивает его свойству MappingName данного стиля. Третья строка добавляет созданный стиль в коллекцию стилей нашей сетки DataGrid1. Остальные четыре строки устанавливают ширину и названия некоторым столбцам сетки. Установив столбцу Код нулевую ширину, мы скрыли его из вида.
