Часто возникает необходимость предоставить пользователю возможность выполнения некоторых действий, не связанных с манипулированием переменными. Например, возможность закрытия одной формы и открытия другой, возможность перемещения по таблице, сохранение или отказ от сохранения произведенных изменений, выполнение отчета или запроса, переход по адресу Internet или intranet и т.п.
Использование
элементов управления Command Buttons (командная кнопка) Command Button
Groups (группа командных кнопок)
Наиболее часто используется код обработки события Click кнопки.
Определение
реакции кнопки по умолчанию
Установите свойство Default в истину (.T.) чтобы задать командную кнопку, которая будет отвечать на нажатие клавиши ENTER. Заданная по умолчанию кнопка имеет более толстую границу чем другие. Если кнопка задана в качестве выбранной по умолчанию, то при нажатии клавиши ENTER будет выполняться ее код обработки события Click.
![]() |
---|
Если текущим объектом на форме является элемент управления EditBox или Grid, код обработки события Click кнопки по умолчанию не будет выполняться при нажатии клавиши ENTER. Нажатие Enter в поле редактирования добавляет символы перевода строки и возврата каретки к введенным ранее символам. Нажатие Enter в Grid обеспечивает переход на смежное поле. В этом случае для выполнения кода обработки события Click кнопки по умолчанию нужно нажать CTRL+ENTER. |
Общие
свойства элемента управления Command Button
Следующие свойства кнопки обычно задаются на этапе разработки.
Свойство | Описание |
---|---|
Определяет, что код обработки события CLICK выполняется при нажатии ESC. |
|
Текст, отображаемый на кнопке. |
|
.bmp файл, рисунок из которого отображается на кнопке, когда она недоступна. |
|
.bmp файл, рисунок из которого отображается на кнопке, когда она нажата. |
|
Определяет, может ли кнопка быть выбрана. |
|
.bmp файл, рисунок из которого отображается на кнопке. |
Вы можете включать кнопки в группу для управления ими индивидуально или как группой.
Управление
кнопками на уровне группы
Если Вы хотите работать с единственной процедурой, обрабатывающей нажатия всех кнопок в группе (событие Click каждой кнопки), поместите этот код в процедуру обработки события Click группы командных кнопок. Свойство Value группы кнопок указывает, которая из кнопок группы была нажата, что демонстрирует следующий пример:
![]() | |
---|---|
DO CASE CASE THIS.Value = 1 WAIT WINDOW "You clicked " + THIS.cmdCommand1.Caption NOWAIT * выполняются соответствующие действия CASE THIS.Value = 2 WAIT WINDOW "You clicked " + THIS.cmdCommand2.Caption NOWAIT * выполняются соответствующие действия CASE THIS.Value = 3 WAIT WINDOW "You clicked " + THIS.cmdCommand3.Caption NOWAIT * выполняются соответствующие действия ENDCASE |
![]() |
---|
Если пользователь нажимает кнопку мыши, когда указатель мыши находится в пределах элемента управления, но не какой-либо из кнопок группы, либо на недоступной кнопке, событие Click группы кнопок происходит, но, при этом, свойство Value будет хранить номер последней нажатой доступной кнопки. Если Вы написали код обработки события Click отдельной кнопки, то при нажатии на эту кнопку будет выполнен он, а не код обработки события Click группы кнопок. |
Общие
свойства элемента управления Command Button Group
Следующие свойства группы кнопок обычно задаются на этапе разработки.
Свойство | Описание |
---|---|
Количество командных кнопок в группе. |
|
Определяет имеет ли элемент управления прозрачный или непрозрачный фон. Прозрачный фон соответствует цвету основного объекта, обычно, формы или страницы. |
Использование
объекта Hyperlink
Вы можете использовать объект Hyperlink для перехода к адресу Internet или intranet. Объект Hyperlink может использоваться, для запуска гиперсвязи с использованием браузера, установленного по умолчанию в ОС (как правило, Microsoft Internet Explorer), и открытия страницы, указанной в адресе. Метод NavigateTo( ) объекта Hyperlink используется для перехода по указанному в нем адресу.
Например, для перехода на сайт Microsoft в интернете, в первую очередь необходимо поместить на форму элемент управления Hyperlink. Затем, поместите на форму командную кнопку и в процедуре обработки ее события Click напишите следующий код:
![]() | |
---|---|
THISFORM.Hyperlink1.NavigateTo('www.microsoft.com') |
После запуска формы на выполнение нажмите кнопку для перехода на сайт Microsoft.
Смотрите
также

© Microsoft Corporation. All rights reserved.
Перевод выполнен SAM-FoxPro