Программы Использования объекта 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 ScrollBar 1_ Change (), программно поддерживающем объект ScrollBar 1, используется функция RGB(ScrollBar1, ScrollBar2, ScrollBar3), вычисленное значение которой присваивается, как значение свойства .BackColor, объекту UserForm5;
– Функция RGB ( ScrollBar 1, ScrollBar 2, ScrollBar 3) есть функция от трех формальных параметров, фактическими параметрами которой в данном случае являются состояния объектов ScrollBar 1, ScrollBar 2, ScrollBar 3;
– Состояние каждого из объектов ScrollBar 1, ScrollBar 2, ScrollBar 3, то есть положение “бегунка” на полосе прокрутки, как количественное значение, изменяется в свойствах ma х и min панели Properties в диапазоне 255-0;
|
|
– Это значение, преобразованное с помощью функции CStr ( ScrollBar 1) в символьную величину, присваивается объекту TextBox 1 для визуального отображения;
– Аналогичным образом построены и функционируют модули
Private Sub ScrollBar2_Change() и Private Sub ScrollBar3_Change();
– В модуле Private Sub TextBox 2_ Change (), программно поддерживающем объект TextBox 2, переменной Green присваивается значение, внесенное в окно объекта TextBox 2, а затем это значение, если оно принадлежит диапазону 0 – 255, передается объекту ScrollBar 2, таким образом управлять изменением цвета объекта UserForm 2 можно за счет перемещения “бегунка” на полосе прокрутки объекта ScrollBar 2 и, наоборот, путем внесения целого числа в окно объекта TextBox 2;
– Аналогичным образом построены и функционируют модули
Private Sub TextBox1_Change() и Private Sub TextBox3_Change();
– Модуль объекта CommandButton 2, который в свойстве Caption переименован в “Выход”,обеспечивает завершение функционирования объекта UserForm.
РАБОТА С ОБЪЕКТОМ LISTBOX
Целью лабораторной работы является приобретение навыков практического использования объекта ListBox, то есть заполнение и обработка данных.
|
|
Объект ListBox применяется для хранения списка значений. Из списка значений пользователь может выбрать одно или несколько значений, которые в последующем будут использоваться в тексте программы.
Заполняется объект ListBox только программно!
При этом используются следующие способы заполнения:
1. Поэлементно, если список состоит из одной колонки;
2. Массивом, если список состоит из одной колонки;
3. Из диапазона, в который предварительно введены элементы списка;
4. Поэлементно, если список состоит из нескольких колонок;
5. Массивом, если список состоит из нескольких колонок;
Создаваемые объекты ListBox можно размещать как на специально созданных объектах UserForm, например на одном, рис. 10.1, или на нескольких, рис. 10.2, так и на листах Excel, рис. 10.3, используя при этом для вызова и заполнения кнопки (объекты CommandButton ).
Часть первая
Заполнение объектов ListBox, расположенных на одном объекте UserForm.
Создание пользовательской формы c объектами ListBox организуется следующим образом:
1. Войти в VBA – Alt - F 11;
2. Выбрать Insert (вставка);
3. Выбрать UserForm .
Затем на появившуюся “платформу” объекта UserForm с панели Toolbox, рис. 9.4, последовательно переместить:
пять объектов ListBox;
|
|
один объект TextBox;
два объекта CommandButton ,
расположив их, как показано на рис. 10.1.
Далее войти в VBA (Alt-F11), выбрать объект UserForm .
Затем,выбрав, объект CommandButton 1, написать соответствующую программу, обеспечивающую заполнение данными объектов ListBox 1- ListBox 5.
Для реализации заполнения объекта ListBox 3 способом “Из диапазона” необходимо предварительно ввести элементы списка в выбранный диапазон, например A 1: B 6, рис. 10.1.
Рис. 10.1.
Рис. 10.2.
Рис. 10.3.
Дата добавления: 2019-03-09; просмотров: 260; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!