UserForms
.docСоздание UserForm для вычисления корней квадратного уравнения
a x2 +b x + c = 0
Объект |
Свойство Name |
Свойство Caption |
UserForm |
UserFormSqr |
Квадратное уравнение |
TextBox |
TextA |
- |
TextBox |
TextB |
- |
TextBox |
TextC |
- |
TextBox |
TextX1 |
- |
TextBox |
TextX2 |
- |
Label |
Label1 |
a |
Label |
Label2 |
b |
Label |
Label3 |
c |
Label |
LabelX1 |
X1 |
Label |
LabelX2 |
X2 |
CommandButton |
CmdOk |
Найти |
CommandButton |
CmdExit |
Выход |
В приведенном ниже коде выполняются следующие действия:
- с помощью функции IsNumeric(TextBox) проверяется введены ли в соответствующие поля значения параметров a, b, c. Функция IsNumeric(TextBox) принимает значение True, если введено какое-либо число;
- вычисляется дискриминант d;
- если d>=0, то вычисленные значения корней печатаются в поля TextX1 иTextX2;
- если d<0, то скрываются поля TextX1 иTextX2 (свойство Visible = false), и устанавливается свойство метки LabelX1.Caption = "no solution".
Private Sub CmdExit_Click()
‘Закрытие UserForfSqr
Unload Me
End Sub
На рабочем листе создать кнопку (свойство Name – CmdSqr, свойство Caption –Решение квадратного уравнения) со следующим кодом:
Private Sub CmdSqr_Click()
UserFormSqr.Caption = "Квадратное уравнение"
UserFormSqr.Show
End Sub
Выбор максимального или минимального из 3-х чисел.
Объект |
Свойство Name |
Свойство Caption |
UserForm |
UserFormMax |
Максимум или минимум |
TextBox |
TextA |
- |
TextBox |
TextB |
- |
TextBox |
TextC |
- |
TextBox |
TextRez |
- |
Label |
Label1 |
a |
Label |
Label2 |
b |
Label |
Label3 |
c |
Label |
Label4 |
Результат |
CommandButton |
CmdOk |
Найти |
OptionButton |
OptMax |
МАксимум |
OptionButton |
OptMin |
Минимум |
Изменение цвета фона UserForm и кнопки на рабочем листе, открывающем эту UserForm.
Здесь будет использовано правило формирования цвета RGB, согласно которому на каждый из основных цветов (красный, зеленый, голубой) отводится 1 байт, то есть от 0 до 255 различных оттенков каждого цвета. Для формирования оттенок будем использовать элементы ScrollBar (полоса прокрутки).
При перемещении движка на полосах прокрутки будет, во-первых, меняться цвет фона UserForm, во-вторых, фиксироваться цифровой код оттенка, в-третьих, изменяться цвет фона кнопки на рабочем листе, связанной с данной формой.
Для вызова этой UserForm на рабочем листе Формы создать кнопку( свойство Name- CmdColor). Код этой кнопки:
Private Sub CmdColor_Click()
UserFormColor.Show
End Sub
Объект |
Свойство Name |
Свойство Caption |
Свойство Max |
Свойство BackColor |
UserForm |
UserFormColor |
Цвет |
- |
- |
ScrollBar |
ScrollBarREd |
- |
255 |
Red |
ScrollBar |
ScrollBarGreen |
- |
255 |
Green |
ScrollBar |
ScrollBarBlue |
- |
255 |
Blue |
TextBox |
TextRed |
- |
- |
- |
TextBox |
TextGreen |
- |
- |
- |
TextBox |
TextBlue |
- |
- |
- |
Label |
Label1 |
Red |
- |
- |
Label |
Label2 |
Green |
- |
- |
Label |
Label3 |
Blue |
- |
- |
End Sub