Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с формами (окнами) / 4 сообщений из 4, страница 1 из 1
15.02.2006, 19:12:28
    #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
15.02.2006, 19:25:02
    #33547498
Nikz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с формами (окнами)
Вот так например можно.
...
Рейтинг: 0 / 0
16.02.2006, 10:13:49
    #33548168
vin_aleks
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с формами (окнами)
Спасибо Nikz!
Как я понял прародительную форму нужно декларировать.
...
Рейтинг: 0 / 0
16.02.2006, 11:24:40
    #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
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с формами (окнами) / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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