Кнопка (Элемент CommandButton)
Date: 2015-10-07; view: 521.
Элемент CommandButton предназначен для инициирования пользователем в программе некоторых действий, которые начинают происходить после щелчка на нем кнопкой мыши. Для его создания в режиме проетирования при двойном щелчке на кнопке формируется процедура отклика нажатия кнопки <имя кнопки>_Click()
Таблица 5.1.1. Общие свойства элемента управления CommandButton
| Свойство | Описание |
| BackColor | Задает цвет фона командной кнопки. Щелкните на стрелке «вниз» палитры Back Color, чтобы увидеть перечень цветов и щелкните System чтобы увидеть перечень наиболее употребительных цветов элементов управления Windows. Перед тем, как командная кнопка отобразит цвет фона, вам необходимо изменить свойство Style с 0-Standard на 1-Graphical |
| Cancel | Определяет, получает ли командная кнопка событие Click, если пользователь нажимает на Esc. |
| Caption | Содержит текст, который отображается на командной кнопке. |
| Default | Определяет, реагирует ли командная кнопка на нажатие на клавишу Enter, даже если какой либо другой элемент управления имеет фокус. |
| Enabled | Определяет является ли командная кнопка активной Часто вы будете изменять свойство Enabled кодом во время выполнения приложения когда командная кнопка больше не будет нужна и вы захотите сделать ее недоступной. |
| Font | Выдает диалоговое окно Font в котором можно установить имя шрифта заголовка начертание и размер |
| Height | Содержит высоту командной кнопки в твипах |
| Left | Содержит число твипов между левым краем командной кнопки и левым краем окна Form |
| MousePointer | Определяет вид курсора мыши, когда пользователь помещает мышь поверх командной кнопки. |
| Picture | Содержит имя графического изображения значка которое отображается на командной кнопке, если свойство Style установлено на 1-Graphical |
| Style | Определяет, отображается ли командная кнопка как стандартная командная кнопке Windows (если установлено на 0-Standard) или как командная кнопка с цветом и возможным изображением |
| Tablndex | Указывает порядок командной кнопки в фокусном порядке |
| TabStop | Определяет, может ли командная кнопка принимать фокус |
| ToolTipText | Содержит текст, который появляется как подсказка ToolTip во время выполнения приложения |
| Top | Содержит число твипов между верхним краем командной кнопки и верхним краем окна Form |
| Visible | Определяет, отображается ли командная кнопка или является скрытой от пользователя (Невидимые элементы управления не могут принимать фокус до тех пор, пока выполняющийся код не изменит свойство Visible на True ) |
| Width | Содержит ширину командной кнопки в твипах |
Хотя большинство пользователей предпочитают щелкать на кнопках мышью, некоторые все же любят пользоваться клавиатурой и вводить команды исключительно с ее помощью. Это легко сделать, назначив кнопке клавишу быстрого доступа. Тогда, если пользователь нажмет клавишу <Alt> и не отпуская ее, нажмет указанную на кнопке клавишу быстрого доступа, возникнет событие Click для данной кнопки формы.
Клавиша быстрого доступа назначается в момент присвоения значению свойству Caption. Поместите в строке, которая будет присвоена свойству Caption, символ амперсанда (&) перед буквой, соответствующей желаемой клавише быстрого доступа. Например, если вы хотите, чтобы после нажатия комбинации клавиш <Alt+P> срабатывала кнопка, на которой написано Print, присвойте свойству Caption этой кнопки строку &Print. Сам символ амперсанда не будет отображен на кнопке, вместо этого следующий за ним символ будет подчеркнут, в результате на кнопке появится надпись Print. Это означает, что для данной кнопки выбрана комбинация клавиш быстрого доступа <Alt+P>.
Пример 1. На форме находятся следующие элементы управления: текстовое окно Txt1, 3 кнопки Cmd1, Cmd2, Cmd3. Щелкая на кнопке Cmd1 в текстовом окне должно появляться слово Ура, щелкая на кнопке Cmd2 – текстовое окно должно быть очищено, нажав на кнопку Cmd3 программа должна завершить свою работу и подать звуковой сигнал.
Рис. 5.1.1. Форма к примеру №1
Private Sub Cmd1_Click()
Txt1.Text = Cmd1.Caption
End Sub
Private Sub Cmd2_Click()
Text1.Text = ""
End Sub
Private Sub Cmd3_Click()
Beep
End
End Sub
Пример 2. На форме находятся текстовое окно и кнопка. По щелчку мыши требуется, чтобы в текстовом окне появлялась дата и текущее время.
Private Sub Cmd1_Click()
Txt1.Text = "Сегодня: " & Date$ & " Текущее время: " & Time$
| <== previous lecture | | | next lecture ==> |
| Элементы управления для принятия решения | | | End Sub |