powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с формами (окнами)
4 сообщений из 4, страница 1 из 1
Работа с формами (окнами)
    #33547479
vin_aleks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть некая форма, не MDI, которая вызывается:
Dim myfrmForm1 As New frmForm1
myfrmForm1.Show
из этой формы (не закрывая ее) по определенному событию вызывается следующая форма (н-р, календарь) таким же образом:
Dim myfrmForm2 As New frmForm2
myfrmForm2.Show
Как из формы Form2 коректно передать данные в Form1? Например, изменить поле Label1 Form1 по событию Click_CommandButton1 Form2.
...
Рейтинг: 0 / 0
Работа с формами (окнами)
    #33547498
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот так например можно.
...
Рейтинг: 0 / 0
Работа с формами (окнами)
    #33548168
vin_aleks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо Nikz!
Как я понял прародительную форму нужно декларировать.
...
Рейтинг: 0 / 0
Работа с формами (окнами)
    #33548451
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vin_aleksСпасибо Nikz!
Как я понял прародительную форму нужно декларировать.

Да в принципе необязательно ее декларировать, но так вроде правильнее...

Можно делать и напрямую

в Form1
Код: plaintext
1.
2.
3.
Private Sub Command1_Click()
Form2.Show
End Sub

в Form2

Код: plaintext
1.
2.
3.
Private Sub Command1_Click()
Form1.Text1 = Text1
End Sub

но начнутся приколы если Form1 открыта в нескольких экземплярах
если не ошибаюсь Form1.Text1 = Text1 будет применяться к последней открытой Form1, а не обязательно к той из которой открылась Form2...
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с формами (окнами)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]