Программы Использования объекта 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. Войти в VBAAlt - 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; просмотров: 187; Мы поможем в написании вашей работы!






Мы поможем в написании ваших работ!