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