Кнопка (Элемент CommandButton)

Элемент 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. Сам символ амперсанда не будет отображен на кнопке, вместо этого следующий за ним символ будет подчеркнут, в результате на кнопке появится надпись P rint. Это означает, что для данной кнопки выбрана комбинация клавиш быстрого доступа <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$

End Sub

Вместо функций Date$ и Time$ можно использовать Now:

Label1.Caption = “Дата и время: ” & Now

Пример 3. С помощью текстовых окон произвести ввод переменных Х и Y и найти сумму этих двух чисел. Результат вывести в текстовое окно Txt3.

Рис. 5.1.2. Форма к примеру №3

Вариант решения 1.

Dim x As Double, y As Double, z As Double

Private Sub Cmd1_Click()

If IsNumeric(Txt1)=True And IsNumeric(Txt2)=True Then

x = Txt1.Text

y = Txt2.Text

z = x + y

Txt3.Text = z

Else

MsgBox "Ошибка ввода данных", vbCritical, "Сообщение"

Exit Sub

End Sub

Private Sub Сmd2_Click()

End

End Sub

Вариант решения 2.

Private Sub Cmd1_Click()

If IsNumeric(Txt1)=False Or IsNumeric(Txt2)=False Then

MsgBox "Ошибка ввода данных", vbCritical, "Сообщение"

Exit Sub

End If

Txt3=CDbl(Txt1)+Txt2

End Sub

Вариант решения 3.

Private Sub Cmd1_Click()

If IsNumeric(Txt1)=False Or IsNumeric(Txt2)=False Then

MsgBox "Ошибка ввода данных", vbCritical, "Сообщение"

Exit Sub

End If

Txt3=Txt1*1+Txt2

End Sub

Дата добавления: 2015-10-26