Консультация № 54339
04.09.2006, 23:06
0.00 руб.
0 5 5
Здравствуйте! Очередная проблемма! Как сделать окно модальным в Microsoft Visual Basic 6.0

Private Sub Command2_Click()
Program.Show
End Sub

Обсуждение

Неизвестный
05.09.2006, 00:08
общий
это ответ
Здравствуйте, ataman!
Очень просто: в команду Show добавьте слово vbModal, вот как в приложении:

Приложение:
[имя_формы].Show vbModal
Неизвестный
05.09.2006, 09:11
общий
это ответ
Здравствуйте, ataman!
В дополнение к ответу Евгения Неверова:
[имя_формы].Show vbModal, Me
Ключевое слово Me сдесь указывает, что родителем модальной формы будет являться текущая форма. Также вместо Ме можно указать любую из форм вашего проекта.
Неизвестный
05.09.2006, 09:23
общий
это ответ
Здравствуйте, ataman!

Не оспаривая верности и полноты предыдущих ответов, предлагаю этот как пример еще одного решения:

Program.Show, 1

По умолчанию VB создает форму немодальной (0). Объявление "Program.Show" предполагает установку по умолчанию нуля, который опускается. Единицу же ставить обязательно, если форма должна быть модальной.
Неизвестный
05.09.2006, 17:07
общий
это ответ
Здравствуйте, ataman!
После кода Program.Show добавьте 0(Program.Show 0). Есть еще другой уровень модальности(1), но лично его не использую. Удачи!
Неизвестный
09.09.2006, 14:50
общий
это ответ
Здравствуйте, ataman!
Form1.Show vbmodal
Form1.Show vbmodal, Form0
Form1.Show vbmodeless - этот вариант держит Вашу форму всегда наверху, но и позволяет работать с той, что под ней.
Форма ответа