Конференция VBStreets

**zHackLeX** » 20.01.2005 (Чт) 23:06

Народ, я, возможно, задаю глупый вопрос, но!

Как можно, зная текстовое имя переменной (класса) формы в собственном проекте VB6, получить ссылку на её объект?

Иными словами, пусть A$="Form2", можно ли переменной
Dim B As Object

Можно ли мне в переменную "В" поместить ссылочку на форму?
Даётся только СТРОКОВОЕ ИМЯ формы (совпадающее с именем класса).
Спасибо.

GM » 21.01.2005 (Пт) 3:15

Типа так:

Код: Выделить всё: Private Sub Form_Load() Dim b As String Dim fm As Object Dim pointer As Long b = "Form1" For Each fm In Forms If fm.Name = b Then pointer = ObjPtr(fm) End If Next MsgBox pointer End Sub

Только после компилирования в Native Code не будет работать.

**tyomitch** » 21.01.2005 (Пт) 8:00

Имхо zHackLeX надо чуть-чуть другое...

Код: Выделить всё: Private Sub Form_Load() Dim A As String, B As Object A = "Form1" For Each B In Forms If B.Name = A Then Exit For Next MsgBox B.Caption End Sub

**zHackLeX** » 21.01.2005 (Пт) 23:51

Бли-и-и-ин!!!!!

А я-то копался с API...
Но дело вот в чём:
Ссылку на форму нужно получить так:
1) Имеется ОСХ, с объявлением

Property Set DebugReference (lpObj as Object)
On Error Resume Next
Set mp_DR = lpObj
End Property

2) Желательно, чтобы в самом ОСХ в Инпутбоксе пользователь ввёл ИМЯ (NAME, not CAPTION) формы, и ссылка на неё организовалась в переменную mp_DR, что требуется для целей отладки.

То есть, можно ли получить ссылку на форму (объектную переменную), НЕ из проекта, в котором она создана?

Просто мой ОСХ-самоделка, написанный на VB, с данной функцией просто ЖУТКО пригодится...

(ОФФТОПОМ):Да, есть идеи, как можно подкинуть в Дельфы созданный на VB6 ОСХ-файл, и ещё: можно ли создать ОСХ в VB.net??

Всем сразу спасибо.

GM » 22.01.2005 (Сб) 2:35

"B" и является переменной которую можна передать через DebugReference.

**tyomitch** » 22.01.2005 (Сб) 8:25

zHackLeX писал(а):(ОФФТОПОМ):Да, есть идеи, как можно подкинуть в Дельфы созданный на VB6 ОСХ-файл, и ещё: можно ли создать ОСХ в VB.net??

Оба раза да. В делфи для этого есть меню Component -> Import ActiveX control.

**zHackLeX** » 22.01.2005 (Сб) 19:43

Народ, то, КАК импортировать ОСХ в Дельфы я знаю.
Не знаю, почему в Дельфы НЕ ИМПОРТИРУЕТСЯ ОСХ, сделанный на бэйсике. Инсталл, Компиле, Инсталл неактивен... правой кнопкой по списку... инсталл...
Установлено успешно... А КОНТРОЛА НИГДЕ НЕТ!!!!!
Ну это в сторону.

Коллекция Forms доступна только в пределах ОДНОГО проекта.
А из ОСХ можно по имени формы получить ссылочку на неё?

_ОСХ В VB.NET??? KAK?

**zHackLeX** » 26.01.2005 (Ср) 22:18

Нет, правда, неужели настолько глупый вопрос?
Или никто не знает?

Как получить ссылку на окно из другого проекта, зная только его хэндл?

Или только имя класса? (текстовое)
Или имя переменной, содержащей ссылку на форму? (сама переменная из МОЕГО проекта недоступна, только из проекта, в котором создана форма)