Работа с двумя формами (заморозка неактивного окна) / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с двумя формами (заморозка неактивного окна)

14 сообщений из 14, страница 1 из 1

Работа с двумя формами (заморозка неактивного окна)

#37188581

DarkKifir

Гость

Здравствуйте, пишу на VB 6.0 professional. С толкнулся с проблемой работы с двумя окнами (формами). Проблема заключена в том, что при вызове второго окна (form2.show) первая форма (она же главная) продолжает свою работу. Вторая форма имеет в себе 5 textbox из которых необходимо перенести данные в структуру (структура в модуле с публичной меткой). Т.к. у меня несколько записей в структуре (массив структур), мне необходимо произвести остановку работы первого окна, до того как во втором окне не выполниться событие (OkButtonClick), не хватает мозгов чтобы это реализовать. Если кто знает что делать, подскажите, и желательно поподробнее, т.к. я новичёк и ещё слабо разбираюсь в vb. Спасибо за внимание.

Это первое окно из которого вызывается второе.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

 
Sub inpt_customers()
' задаём список, который будем обрабатывать в дальнейшем

Do  'заносим количество записей в струтуру, т.е. количество торговцев
n = CInt(InputBox("Введите количество записей:", "Ввод торговцев",  1 ))
Loop Until n >  0 
ReDim SC( 1  To n)

For i =  1  To n 
Load Dialog: Dialog.Show ' вызывает окно dialog
Main_form.Enabled = False
' !необходима остановка выполнения кода в этом окне,
' !пока не выполнится действие в другой окне

Next i

End Sub

Это второе окно, в котором как раз и заносятся данные.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

 
Private Sub OKButton_Click()
If D_BN_O = True Then
                        SC(i).MS = CByte(MSbox.Text)
                        SC(i).AB = CInt(ABbox.Text)
                        SC(i).AC = CInt(ACbox.Text)
                        SC(i).NI = CStr(NIbox.Text)
                        SC(i).SB = CInt(SBbox.Text)
       End If
Unload Me

Обе формы связанны между собой модулем.
Основные переменные, типа i и n в глобале. Пробовал пустой цикл с пост условием: вешает программу.

...

Рейтинг:

0 / 0

29.03.2011, 18:09

| Ответить | Цитировать | Написать

Работа с двумя формами (заморозка неактивного окна)

#37188590

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

1) вызвать вторую форму как модальную (параметр у Show)

2) прекратить выполнение процедуры в первой форме после вызова второй формы. После окончания работы второй формы, она должна вызвать какой-то публичный метод первой формы, которая продолжит нужные действия первой формы

...

Рейтинг:

0 / 0

29.03.2011, 18:12

| Ответить | Цитировать | Написать

Работа с двумя формами (заморозка неактивного окна)

#37188609

DarkKifir

Гость

А по подробнее можно, а то я чего не очень понял. Т.е. перенести выполнение события в модуль, и с помощью, например GoTo, после окончания выполнения события переместиться в первую форму?

...

Рейтинг:

0 / 0

29.03.2011, 18:19

| Ответить | Цитировать | Написать

Работа с двумя формами (заморозка неактивного окна)

#37188620

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

DarkKifirА по подробнее можно, а то я чего не очень понял. Т.е. перенести выполнение события в модуль, и с помощью, например GoTo, после окончания выполнения события переместиться в первую форму?

Код: plaintext

Dialog.Show True

вас устраивает?

...

Рейтинг:

0 / 0

29.03.2011, 18:22

| Ответить | Цитировать | Написать

Работа с двумя формами (заморозка неактивного окна)

#37188646

DarkKifir

Гость

Пишет, что "Invalid procedure call or argument", на "Dialog.show true". Можете объяснить, с чем это связано?

...

Рейтинг:

0 / 0

29.03.2011, 18:30

| Ответить | Цитировать | Написать

Работа с двумя формами (заморозка неактивного окна)

#37188681

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

DarkKifirПишет, что "Invalid procedure call or argument", на "Dialog.show true". Можете объяснить, с чем это связано?
то есть без True все нормально вызывает, а как только приписываете True - сразу ошибка?

...

Рейтинг:

0 / 0

29.03.2011, 18:41

| Ответить | Цитировать | Написать

Работа с двумя формами (заморозка неактивного окна)

#37188689

DarkKifir

Гость

Shocker.Pro,

да

...

Рейтинг:

0 / 0

29.03.2011, 18:43

| Ответить | Цитировать | Написать

Работа с двумя формами (заморозка неактивного окна)

#37188702

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

DarkKifir,

Непонятно
Выложите проект

...

Рейтинг:

0 / 0

29.03.2011, 18:46

| Ответить | Цитировать | Написать

Работа с двумя формами (заморозка неактивного окна)

#37188706

DarkKifir

Гость

Приложил проект

...

Рейтинг:

0 / 0

29.03.2011, 18:47

| Ответить | Цитировать | Написать

Работа с двумя формами (заморозка неактивного окна)

#37188712

DarkKifir

Гость

Буду очень признателен, если поправите этот кусок, чтобы он нормально работал...

...

Рейтинг:

0 / 0

29.03.2011, 18:48

| Ответить | Цитировать | Написать

Работа с двумя формами (заморозка неактивного окна)

#37188720

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Сорри, надо было:

Код: plaintext

Dialog.Show  1

^{не люблю модальные формы}

...

Рейтинг:

0 / 0

29.03.2011, 18:52

| Ответить | Цитировать | Написать

Работа с двумя формами (заморозка неактивного окна)

#37188748

DarkKifir

Гость

Спасибо большое за подсказку) буду дальше делать) И ещё 1 вопрос на последок: в конце события OkButtomClick хочу активировать главное окно, т.к. я использовал Main_form.Enabled = False, я вот вычитал про команду, которая после выхода из приложения выполняет некоторую операцию, вроде называется terminate, но не уверен. Как с помощью этой операции мне вызвать другое окно. Можете строчку написать, а куда воткнуть её я найду )

...

Рейтинг:

0 / 0

29.03.2011, 19:02

| Ответить | Цитировать | Написать

Работа с двумя формами (заморозка неактивного окна)

#37188758

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

DarkKifirСпасибо большое за подсказку) буду дальше делать) И ещё 1 вопрос на последок: в конце события OkButtomClick хочу активировать главное окно, т.к. я использовал Main_form.Enabled = False, я вот вычитал про команду, которая после выхода из приложения выполняет некоторую операцию, вроде называется terminate, но не уверен. Как с помощью этой операции мне вызвать другое окно. Можете строчку написать, а куда воткнуть её я найду )

Если будете использовать то, что я предложил, то вам не нужна строка Main_form.Enabled = False вообще.

Что касается события на выгрузку формы - используйте Form_Unload

...

Рейтинг:

0 / 0

29.03.2011, 19:05

| Ответить | Цитировать | Написать

Работа с двумя формами (заморозка неактивного окна)

#37188765

DarkKifir

Гость

Огромное спасибо за консультацию, она мне очень помогла... без этой строки и вправду лучше)

...

Рейтинг:

0 / 0

29.03.2011, 19:09

| Ответить | Цитировать | Написать

14 сообщений из 14, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с двумя формами (заморозка неактивного окна)

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=37188646&tid=2158856]:	0ms
get settings:	8ms
get forum list:	17ms
check forum access:	3ms
check topic access:	3ms
track hit:	35ms
get topic data:	8ms
get forum data:	2ms
get page messages:	38ms
get tp. blocked users:	1ms
others:	13ms

total:	128ms