Информатика для I курса. Часть I. Никифоров С.Н. - 35 стр.

UptoLike

ВУЗ: 

СПбГАСУ | Санкт-Петербург

Составители: 

Рубрика: 

68 69
Программы использования объекта ScrollBar
Private Sub ScrollBar1_Change()
UserForm5.BackColor = RGB(ScrollBar1, ScrollBar2, ScrollBar3)
TextBox1 = CStr(ScrollBar1)
End Sub
Private Sub ScrollBar2_Change()
UserForm5.BackColor = RGB(ScrollBar1, ScrollBar2, ScrollBar3)
TextBox2 = CStr(ScrollBar2)
End Sub
Private Sub ScrollBar3_Change()
UserForm5.BackColor = RGB(ScrollBar1, ScrollBar2, ScrollBar3)
TextBox3 = CStr(ScrollBar3)
End Sub
Private Sub TextBox1_Change()
Dim Red As Integer
If (TextBox1 = " ") Or (TextBox1 = "") Then
Red = 0
Else
Red = CDbl(TextBox1)
End If
If (Red >= 0) And (Red <= 255) Then
ScrollBar1.Value = Red
UserForm5.BackColor = RGB(ScrollBar1, ScrollBar2, ScrollBar3)
Else
MsgBox "от 0 до 255"
End If
End Sub
Private Sub TextBox2_Change()
Dim Green As Byte
Green = TextBox2
If Green >= 0 And Green <= 255 Then
ScrollBar2.Value = Green
UserForm5.BackColor = RGB(ScrollBar1, ScrollBar2, ScrollBar3)
Else
MsgBox "от 0 до 255"
End If
End Sub
Private Sub TextBox3_Change()
Dim Blue As Byte
Blue = TextBox3
If Red >= 0 And Blue <= 255 Then
ScrollBar3.Value = Blue
UserForm5.BackColor = RGB(ScrollBar1, ScrollBar2, ScrollBar3)
Else
MsgBox "от 0 до 255"
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Некоторые комментарии к программе:
в модуле Private Sub ScrollBar1_Change(), программно
поддерживающем объект ScrollBar1, используется функция
RGB(ScrollBar1, ScrollBar2, ScrollBar3), вычисленное значение
которой присваивается как значение свойства .BackColor объекту
UserForm5;
функция RGB(ScrollBar1, ScrollBar2, ScrollBar3) есть функ-
ция от трех формальных параметров, фактическими параметрами
которой в данном случае являются состояния объектов ScrollBar1,
ScrollBar2, ScrollBar3;
состояние каждого из объектов ScrollBar1, ScrollBar2,
ScrollBar3, т. е. положение «бегунка» на полосе прокрутки, как ко-
личественное значение изменяется в свойствах maх и min панели
Properties в диапазоне 255–0;
это значение, преобразованное с помощью функции CStr(Scroll-
Bar1) в символьную величину, присваивается объекту TextBox1
для визуального отображения;
аналогичным образом построены и функционируют моду-
ли Private Sub ScrollBar2_Change() и Private Sub ScrollBar3_
Change();
в модуле Private Sub TextBox2_Change(), программно под-
держивающем объект TextBox2, переменной Green присваивается

Страницы