Элементы формы.

Элемент Переключатель (OptionButton) - имеет два состояния включено и выключено.

Элемент Рисунок (Image) - используется для отображения рисунка на форме.

Пример: Создать форму для задания (см.выше), используя новые элементы и их свойства. Предусмотреть, чтобы при появлении в поле вывода результата, рядом появлялась надпись одного из уравнений системы по которому вычисляется результат.

Элемент	Свойства	Описание	Значение
Form1	Name		Frm1
	Caption		Лабораторная …
	Icon	Выбор иконки в заголовке формы	*.icon, *cur
Label1	Name		LblX
	Caption		Ввести х
	Autosize	Приведение в соответствие размера элемента к длине надписи	True
Label2	Name		LblY
	Caption		Пусто
TextBox1	Name		TxtX
	ToolTipText	Добавить всплывающее примечание	Введите Х от -5 до 5
TextBox2	Name		TxtY
	Locked	Не доступность ввода	True
CommandButton1	Name		Cmd1
	Caption		Вычислить
CommandButton2	Name		Cmd2
	Caption		Сброс
CommandButton3	Name		Cmd3
	Caption		Выход
OptionButton1	Name		Opt1
	Caption		Есть картинка
	Value	Состояние переключателя	True
OptionButton2	Name		Opt2
	Caption		Нет картинки
	Value		False
Image	Name		Img1
	Visible	Видимость	True
	Picture	Выбор картинки	Имя граф. файла
	Stretch	Приведение в соответствие размеров картинки и элемента	True
Метод	SetFocus	Помещает фокус клавиатуры на данный объект

Процедура-событие нажатия кнопки Вычислить:

P rivate Sub Cmd1_Click()

Dim x As Single, y As Single

Const a As Single = 3, b As Single = 2

x = Val(TxtX.Text)

Select Case x

Case Is < -1

y = a * x

LblY.Caption = "y=a*x"

Case -1 To 1

y = Abs(x)

LblY.Caption = "y=|x|"

Case Else

y = x ^ b

LblY.Caption = "y=x^b"

End Select

TxtY.Text = y

End Sub

Процедура кнопки Сброса, очищает поля ввода Х и вывода Y и надпись с уравнением, а также активизирует поле ввода Х:

Private Sub Cmd2_Click()

TxtX.Text = ""

TxtY.Text = ""

LblY.Caption = ""

TxtX.SetFocus

End Sub

Процедура нажатия на Переключатель, делает видимой/невидимой картинку:

Private Sub Opt1_Click()

if Opt1.Value = True Then Img1.Visible = True

End Sub

Private Sub Opt2_Click()

if Opt2.Value = True Then Img1.Visible = False

End Sub