LEADERSOFT.ru Разработка на заказ программ и сайтов
ЕСЛИ БАЗА ВАМ НУЖНА В ЛИДЕРСОФТ ЗАЙДИ СПЕРВА!
Все примеры Microsoft Access - VBA


















































02. Используя оператор Type, можно создать собственный массив данных. Например, линий

Все примеры Microsoft Access

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