Приостановление выполнения функции

@maksimla · Регистрация: 23.07.2011

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

Создал для теста 2 формы на первой форме label1 и Command1
на второй Command1 и Text1

На первую форме нажимаем на кнопку открывается вторая форма и должна ждать 1 форма пока не закроется вторая то есть дальше не идти выполнение программы в 1 форме пока 2 не закроется.

форма 1

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Command1_Click()
Form2.Show
Label1.Caption = Form2!Text1.Text
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Форма 2

Visual Basic
1
2
3
4
5
6
7
Private Sub Command1_Click()
Form2.Hide
End Sub
 
Private Sub Command2_Click()
Form2.Hide
End Sub

И как можно закрыть полностью одну форму чтобы другая не закрылась
Form2.Hide это только прятать
form2.Visible =False это делать невидимой
и тогда приходится в чтобы завершить все ну в 1 форме писать end
если не напишешь то тогда формы пропадут но в диспетчере задач останится что эта программа работает

@gaw · 27.08.2011, 14:58

Visual Basic
1
2
3
4
5
'Form1
Private Sub Command1_Click()
Me.Enabled = False
Form2.Show
End Sub

Visual Basic
1
2
3
4
5
6
'Form2
Private Sub Command1_Click()
Form1.Enabled = True
Form1.Show
Unload Me
End Sub

Visual Basic
1
2
3
4
5
Dim Form As Form
    For Each Form In Forms
        Unload Form
        Set Form = Nothing
    Next Form

@maksimla · 27.08.2011, 16:55 **[ТС]**

как читать файл с низу в верх?
То я читаю файл с верху в низ

То я читаю файл с верху в низ вот

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
'Text1.Text = Form3!Combo1.Text
MsgBox App.path & "\test\" & Form3!Combo1.Text & ".txt"
 Set fale = fso.GetFile(App.path & "\test\" & Form3!Combo1.Text & ".txt")
 Set rl = fale.OpenAsTextStream(ForReading)
i = rl.ReadLine
nex
 'rl.Close
End Sub

Сделать возможность подняться на пару строчек в верх можно так?
В vb6 когда связал с accesse такое можно сделать.
Или лучше весь файл в массив записать?

Добавлено через 48 минут

цитата

Сообщение от gaw

Visual Basic
1
2
3
4
5
'Form1
Private Sub Command1_Click()
Me.Enabled = False
Form2.Show
End Sub

Visual Basic
1
2
3
4
5
6
'Form2
Private Sub Command1_Click()
Form1.Enabled = True
Form1.Show
Unload Me
End Sub

Visual Basic
1
2
3
4
5
Dim Form As Form
    For Each Form In Forms
        Unload Form
        Set Form = Nothing
    Next Form

С Unload Me форма выгружается
с Me.Enabled = False становится неактивна форма
а последняя все формы выгружает

а 1 форма все ровно не ждет пока 2 форма не закроется

вот код

форма 1

Visual Basic
1
2
3
4
5
Private Sub Command1_Click()
Me.Enabled = False
Form2.Show
Label1.Caption = Form2!Text1.Text
End Sub

форма 2

Visual Basic
1
2
3
4
5
Private Sub Command1_Click()
Form1.Enabled = True
Form1.Show
Unload Me
End Sub

Добавлено через 16 минут
Сделал только с 2 кнопками на 1 форме 1 кнопка открывает 2 форму там вписываем текст и прячем форму и потом при нажатии на 2 кнопку в 1 форме текст меняется. а мне надо сделать под одну кнопку.

вот

форма 1

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
Me.Enabled = False
Form2.Show
Label1.Caption = Form2!Text1.Text
End Sub
 
Private Sub Command2_Click()
Label1.Caption = Form2!Text1.Text
End Sub

форма 2

Visual Basic
1
2
3
4
5
6
Private Sub Command1_Click()
Form1.Enabled = True
Form1.Show
Form2.Hide
'Unload Me
End Sub

Добавлено через 7 минут

с модулем чегото непулучилось

форма 1

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
Me.Enabled = False
Form2.Show
Label1.Caption = Form2!Text1.Text
End Sub
 
Private Sub Command2_Click()
 
Label1.Caption = s
End Sub

форма 2

Visual Basic
1
2
3
4
5
6
7
Private Sub Command1_Click()
s = Text1.Text
Form1.Enabled = True
Form1.Show
Form2.Hide
Unload Me
End Sub

модуль

Visual Basic
1
Dim s As String

Добавлено через 43 минуты
а в модуль я забыл добавить Public поэтому не вышло
но мне все ровно если можно под 1 кнопку сделать

@maksimla · 28.08.2011, 19:23 **[ТС]**

Так как так можно сделать остановить выполнение пока другое не выполнится?

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@maksimla 26 / 26 / 0 Регистрация: 23.07.2011 Сообщений: 120
	28.08.2011, 19:23 [ТС]
	Так как так можно сделать остановить выполнение пока другое не выполнится? 0