UserForms

Создание UserForm для вычисления корней квадратного уравнения

a x² +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