Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.78
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.78

Private Sub Buttonl_Click (ByVal sender As System. Object, ByVal e As System.EventArgs) _ Handles Buttonl.Click

Message Box.Show ("закрыть?") End Sub

Подобные диалоговые окна сами по себе не выполняют никаких функций. Они появляются после щелчка Buttonl и исчезают после щелчка кнопки ОК. Чтобы добавить функциональность, надо использовать следующие возможности. В диалоговом окне можно поместить пиктограмму, заголовок, текст, различные кнопки. Всплывающая подсказка все это объяснит. Вам останется только выбрать нужный пункт и нажать клавишу Tab. Но название диалогового окна и текст придется набирать самим.

Следующий пример показывает, как диалоговое окно запрашивает у пользователя подтверждение на закрытие программы. Воспользовавшись условным оператором If ...Then, мы составили код таким образом, что при выполнении условия = Dialog Result. OK программа закрывается в результате щелчка кнопки ОК. Нужная подсказка появляется после того, как будет поставлена запятая.

Private Sub Buttonl_Click (ByVal sender As _ System. Object, ByVal e As System.EventArgs) _ Handles Buttonl.Click

If MessageBox.Show ("закрыть?", "close", _ MessageBoxButtons. OKCancel, MessageBoxIcon Stop, MessageBoxDefault _

Button.Buttonl, MessageBoxOptions.RightAlign) _ = DialogResult.OK Then Me. Close () End Sub

Данная программа работает от кнопки Button, помещенной на форме. Но как составить подобную программу, если вы закрываете окно с помощью кнопки закрытия окна (красная с белым крестиком в правом верхнем углу)? Для этого надо воспользоваться событием Closing. Откройте окно кодов и в меню Class Name выберите строку Forml Events, а в Method Name - строку Closing. В результате будет создана пустая

5*

ГЛАВА 15 ▼ Несколько полезных программ

процедура обработки события Forml_Closing. А теперь, воспользовавшись параметром е (он рассматривался в главе 14), составьте следующий код: е.Cancel = True.

Но не спешите запускать программу. Данный код всего лишь запрещает закрытие окна. Сколько бы вы ни щелкали по кнопке, оно не закроется. Теперь сделайте так, чтобы появилось диалоговое окно, запрашивающее подтверждение на закрытие программы и закрывающее ее после щелчка кнопки ОК. Для этого составьте следующий код, воспользовавшись условным оператором If ...Then:


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta