билеты к экзамену по КП / 39. Основные Элементы управления в языке VB 6.0. Использование элемеента MSFlexGrid для работы с двумерными массивами. Основные методы

Билет № 39

Основные Элементы управления в языке VB 6.0. Использование элемеента MSFlexGrid для работы с двумерными массивами. Основные методы.

Элемент управления MSFlexGrid обеспечивает отображение на Экранной форме Двумерных массивов и таблиц БАЗ ДАННЫХ и существенно облегчает пользователю общение с массивами и БАЗАМИ ДАННЫХ. В основном наборе панели элементов управления Toolbox он не содержится. Этот элемент включен в дистрибутивное хранилище дополнительных элементов управления Components, которое можно открыть выполнив последовательность команд:

Меню - Проект (Project) - Компоненты ... (Components)

В окне у компоненты Microsoft FlexGrid Control 6.0 поставить галочку и нажать ОК, На панели Toolbox появится элемент управления MSFIexGrid. Затем обычным способом вызвать элемент на экранную форму и установить его размеры.

Основные свойства элемента MSFIexGrid:

Name - имя гибкой сетки в программе (по умолчанию MSFIexGrid1).

Rows - количество строк в сетке, начиная с нуля (задаётся в окне свойств элементов управления, или в программе);

Cols – количество столбцов в сетке, начиная; с нуля (задается в окне свойств элементов управления, или в программе);

DataSource - устанавливает источник данных для MSFIexGrid, например, таблицу

БАЗЫ ДАННЫХ;

Font - выбор шрифта для текста сетки;

TextStyle - устанавливает стиль отображений выводимого в сетку текста;

TextStyleFixed - устанавливает стиль отображения названий столбцов сетки;

При использовании элемента управления MSFIexGrid при работе с массивами и Базами Данных удобно использовать его метод TextMatrix(I, J), позволяющий определить координаты ячейки массива или таблицы Базы Данных, где I - номер строки, J - номер столбца.

Пример:

Создание и отображение двумерного массива.

Создадим на форме сетку Fl1 и кнопки: "Вв и Обр" - с именем CmdVv и "Выход" - с именем CmdExit

Программа (программный код):

Private Sub CmdVv_Click()

Const N = 3, M = 4

Dim I%, J%, S!

Dim A (N,M) As Single

Fl1 .Rows = N + 1 ’задание размеров Fl1

Fl1.Cols = M + 1

For I = 0 To N 'Ввод массива А

For J = 0 To M

A( I, J) = InputBox(“Введите элемент с координатами” & I & J)

Fl1.TextMatrix (I, J) = A(I, J)

'или можно ввести непосредственно в Fl1:

Fl1.TextMatrix(I, J) = InputBox (“Введите элемент с координатами” & I & J)

Next J

Next I

Пусть нужно найти сумму S элементов массива

S = 0

For I = 0 То N

For J = 0 То М

S = S + A(I, J)

Next J

Next I

Print “искомая сумма” = & S