Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Серж
1

Передать ссылку на массив в ActiveX Control

27.08.2008, 10:17. Просмотров 635. Ответов 4
Метки нет (Все метки)

Подскажите пожалуйста, можно ли передать ссылку на массив
(находящийся в программе) в разрабатываемый мною
ActiveX Control, чтобы этот массив был доступен в любых
процедурах внутри Control?
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.08.2008, 10:17
Ответы с готовыми решениями:

ActiveX Control
Ребят,подскажите если не кодом то хоть где конкретно можно найти информацию....

Cкачать ActiveX Control Pad
Ге можно скачать ActiveX Control Pad? На microsoft.com почему то нет. Киньте...

Toolbar ActiveX Control - Version 6.0 !!!
Лиди!!! Надо вставить иконки и отслеживать IndexS кнопок...

Совместимость версий в ActiveX Control
Создал свой первый ActiveX Control на основе Textbox'а. Зарегистрировал....

Как удалить ActiveX control, совсем..... (+++)
Создал свой ActoveX control и в порыве эксперементов накомпилировал его в...

4
kacerro
0 / 0 / 0
Регистрация: 03.12.2007
Сообщений: 14
27.08.2008, 11:06 2
Если у тебя двухмерный массив, то лучше и проще использовать ADODB.Recordset
Просто создаешь его без привязки к базе данных, наполняешь данными, ну и соответственно делаешь его Public
0
Серж
27.08.2008, 15:43 3
Спасибо, но это не то!
stanmarc
0 / 0 / 0
Регистрация: 17.08.2008
Сообщений: 26
27.08.2008, 17:13 4
Если тебе не нужнo изменять мaссив в Controle тo дoстaтoчнo прoстo передaть
егo через Sub или через Property Let:
Код
'Control Module

Option Explicit
Private arrVar As Variant

Public Sub LetArray(ByRef arrV As Variant)
    arrVar = arrV
End Sub

Public Property Let MyArray(ByRef arrV As Variant)
    arrVar = arrV
End Property

Private Sub UserControl_Click()
Dim Ii As Long
    If Not IsArray(arrVar) Then Exit Sub
    For Ii = 0 To UBound(arrVar)
        Debug.Print arrVar(Ii)
    Next Ii
End Sub

Private Sub UserControl_Terminate()
    arrVar = Empty
End Sub

'Form Module
Private Sub Form_Load()
Dim arrV1() As Long, Ii As Long
    ReDim arrV1(2)
    For Ii = 0 To 2
        arrV1(Ii) = Ii + 1
    Next Ii
    Me.TstControl1.LetArray arrV1
    'Or Use Property
    'Me.TstControl1.MyArray = arrV1
End Sub
0
Серж
28.08.2008, 10:37 5
С копированием не очень хочется связываться, доступ нужен именно к внешнему массиву!
28.08.2008, 10:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.08.2008, 10:37

ActiveX Control - добавление параметра аля Picture
Как в АктивХ добавить параметр типа Picture как в объекте Image и Picture?...

Как пользоваться ICQWebSearch ActiveX Control module ?
Кто-нибудь знает как пользоваться ICQWebSearch ActiveX Control module ?

кто-нибудь работал с List View ActiveX Control - ver 6.0?
надо выцепить содержимое конкретного SubItem я нашел такое решение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru