Дата: Пятница, 20 Июля 2007, 22:23:13 | Сообщение #2
Ветеран форума
Группа: Проверенные
Сообщений: 1504
Д.рег: 05 Июля 2007
Статус: Offline
Откуда: Лесосибирск
Примеры работы в ActuveX: (скачано с технолаги) 1/ Public Sub PrnArray(ar As Variant) Dim i As Integer, ub As Integer, arr() As Byte If Not IsEmpty(ar) Then arr = ar ub = UBound(arr) - 1 For i = 0 To ub MsgBox Val(arr(i)) Next i End If End Sub 2/ Private Sub Command1_Click() Dim a(2) As Byte, b As Variant a(0) = 1 a(1) = 2 b = a UC11.PrnArray (b) End Sub vkontakte.ru/koluan
Дата: Воскресенье, 12 Августа 2007, 13:54:25 | Сообщение #4
Ветеран форума
Группа: Проверенные
Сообщений: 1504
Д.рег: 05 Июля 2007
Статус: Offline
Откуда: Лесосибирск
Миша покурим, помотрим, чем мне интересен активикс, что там готовые модули, и интерфейсик разрабатывался в визуал си плюсах. Перекочевал в офис, а впрочем нормально, работать можно. vkontakte.ru/koluan