LEADERSOFT.ru Разработка на заказ программ и сайтов
Раздел обучения информационным технологиям
Разработка программ на Access
02. Используя оператор Type, можно создать собственный массив данных. Например, линий
Свойства продукта

 Microsoft Office: 2000,2002,2003,2007,2010  Архив с файлами: Перейти
 Операционная система: Windows XP,Vista  Применение: Базы данных Access
 Продажа: Купить  Файл исходника: ..\Access\06 Массивы\la_array.mdb
 Язык интерфейса: Русский

   


Type colorLINE 'назначаем тип объекта
   x1 As Long 'Абцисса начала
   y1 As Long 'Ордината начала
   x2 As Long 'Абцисса конца
   y2 As Long 'Ордината конца
   color As Long 'Цвет линии
   '... Здесь Вы можете добавить любые объекты, переменные и т.п.
End Type

Dim myLine(2) As colorLINE 'выделяем массив для линий

'==============================================================
'   Заполнение массива
Public Function funArrayLines(frm As Form)
Dim As Integer
    For i = 0 To 1
        Select Case i
            Case 'Горизонтальная линия
               myLine(i).x2 = 100
               myLine(i).color = RGB(255, 0, 0) 'Красный цвет
               frm.Линия1.BorderColor = myLine(i).color 'Меняем цвет линии
            Case 'Вертикальная линия
               myLine(i).y2 = 100
               myLine(i).color = RGB(0, 255, 0) 'Зеленый цвет
               frm.Линия2.BorderColor = myLine(i).color 'Меняем цвет линии
        End Select
    Next i
End Function



Copyright © 2002-2015 ООО Лидер Эксэсс
Сайт работает под управлением: ASP.NET, Access