ActiveX Control, при нажатии кнопки в самом компоненте должно открыться модальное диалоговое окно в которое передается дата из UserControla

@alexmar · Регистрация: 21.10.2007

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Помогите если кто знает.

Есть такая проблема. Я написал ActiveX control в VB6 и на этапе его разработки нужно сделать такю вещь: при нажатии кнопки в самом компоненте должно открыться модальное диалоговое окно в которое передается дата из UserControla, пользователь в диалоговом окне модет поменять дату и оно должно закрыться. При этом, естественно передаваемая дата должна отобразиться в модальном окне а если пользователь изменил дату, то она должна измениться в свойство самого компонента и быть доступной на выходе. Все вроде работает: модальное окно открывается при нажатии на кнопку и закрывается, но проблема в том, что само модальное окно НЕ ВИДИТ никаких свойств компонента, которое его вызвало, хотя и компонент и модальное окно (Form1), находятся в одном ActiveX control проекте. То есть я не могу написть в форме на событие Form1_onLoad() : UserControl.date1 - он просто этого не понимает и выдает ошибку. Если кто знает, то помогите пожалуйста.
всем спасибо.

@Prayer · 22.11.2007, 15:08

Надо в контроле сделать свойство, я так понял, что date1 - это textbox.

public property let date1 (data as string)
date1.text = data
end property

@alexmar · 22.11.2007, 15:23 **[ТС]**

Да date1 - это текстовое поле.
А свойства Get и Let уже стоят и работают вполне исправно. Вопрос в другом, как значение вот этого date1.text увидеть в модальном диалоговом окне, где эта дата должна якобы меняться. Модальное окно находится в том же ActiveX и вызывается нажатием кнопки.

@Prayer · 22.11.2007, 15:39

На модальной форме есть text2 (textbox).

sub form_load
text2.text = <Имя контрола>.text1
end sub

sub text2_change
<Имя контрола>.text1 = text.text
end sub

@alexmar · 22.11.2007, 16:17 **[ТС]**

Так вот как раз это-то и не работает:
sub form_load
text2.text = <Имя контрола>.text1
end sub

sub text2_change
<Имя контрола>.text1 = text.text
end sub

Он не понимает <Имя контрола>.

@Prayer · 22.11.2007, 16:29

Так как форма показывается при нажатии на кнопку, то соответствено можно сделать так:

sub <Имя кнопки>_click()
<Имя формы>.text2 = text1.text
<Имя формы>.show 1
end sub

Этот саб в контроле.

@Prayer · 22.11.2007, 16:30

Так как форма показывается при нажатии на кнопку, то соответствено можно сделать так:

sub <Имя кнопки>_click()
<Имя формы>.text2 = text1.text
<Имя формы>.show 1
text1.text = <Имя формы>.text2.text
end sub

Этот саб в контроле.

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@alexmar 0 / 0 / 0 Регистрация: 21.10.2007 Сообщений: 7

	ActiveX Control, при нажатии кнопки в самом компоненте должно открыться модальное диалоговое окно в которое передается дата из UserControla 22.11.2007, 14:37. Показов 1367. Ответов 6 Метки нет (Все метки) Здравствуйте. Помогите если кто знает. Есть такая проблема. Я написал ActiveX control в VB6 и на этапе его разработки нужно сделать такю вещь: при нажатии кнопки в самом компоненте должно открыться модальное диалоговое окно в которое передается дата из UserControla, пользователь в диалоговом окне модет поменять дату и оно должно закрыться. При этом, естественно передаваемая дата должна отобразиться в модальном окне а если пользователь изменил дату, то она должна измениться в свойство самого компонента и быть доступной на выходе. Все вроде работает: модальное окно открывается при нажатии на кнопку и закрывается, но проблема в том, что само модальное окно НЕ ВИДИТ никаких свойств компонента, которое его вызвало, хотя и компонент и модальное окно (Form1), находятся в одном ActiveX control проекте. То есть я не могу написть в форме на событие Form1_onLoad() : UserControl.date1 - он просто этого не понимает и выдает ошибку. Если кто знает, то помогите пожалуйста. всем спасибо. 0

@Prayer 0 / 0 / 1 Регистрация: 26.03.2007 Сообщений: 127
	22.11.2007, 15:08
	Надо в контроле сделать свойство, я так понял, что date1 - это textbox. public property let date1 (data as string) date1.text = data end property 0

@alexmar 0 / 0 / 0 Регистрация: 21.10.2007 Сообщений: 7
	22.11.2007, 15:23 [ТС]
	Да date1 - это текстовое поле. А свойства Get и Let уже стоят и работают вполне исправно. Вопрос в другом, как значение вот этого date1.text увидеть в модальном диалоговом окне, где эта дата должна якобы меняться. Модальное окно находится в том же ActiveX и вызывается нажатием кнопки. 0

@Prayer 0 / 0 / 1 Регистрация: 26.03.2007 Сообщений: 127
	22.11.2007, 15:39
	На модальной форме есть text2 (textbox). sub form_load text2.text = <Имя контрола>.text1 end sub sub text2_change <Имя контрола>.text1 = text.text end sub 0

@alexmar 0 / 0 / 0 Регистрация: 21.10.2007 Сообщений: 7
	22.11.2007, 16:17 [ТС]
	Так вот как раз это-то и не работает: sub form_load text2.text = <Имя контрола>.text1 end sub sub text2_change <Имя контрола>.text1 = text.text end sub Он не понимает <Имя контрола>. 0

@Prayer 0 / 0 / 1 Регистрация: 26.03.2007 Сообщений: 127
	22.11.2007, 16:29
	Так как форма показывается при нажатии на кнопку, то соответствено можно сделать так: sub <Имя кнопки>_click() <Имя формы>.text2 = text1.text <Имя формы>.show 1 end sub Этот саб в контроле. 0

@Prayer 0 / 0 / 1 Регистрация: 26.03.2007 Сообщений: 127
	22.11.2007, 16:30
	Так как форма показывается при нажатии на кнопку, то соответствено можно сделать так: sub <Имя кнопки>_click() <Имя формы>.text2 = text1.text <Имя формы>.show 1 text1.text = <Имя формы>.text2.text end sub Этот саб в контроле. 0