Элемент UserControl (VB 6.0) — анимированный баннер

Содержание

Пользовательский компонент — UserControl (анимированный баннер, имеющий ряд свойств). По умолчанию берет картинки С:pic1.jpg,С:pic2.jpg,С:pic3.jpg и прокручивает их с заданной скоростью (скорость, картинки, запуск/установка — свойства элемента).

Выдержка из текста

‘Default Property Values:

Const m_def_Pic1 = «c:pic1.jpg»

Const m_def_Pic2 = «c:pic2.jpg»

Const m_def_Pic3 = «c:pic3.jpg»

Const m_def_Speed = 100

Const m_def_Start = False

‘Property Variables:

Dim m_Pic1 As String

Dim m_Pic2 As String

Dim m_Pic3 As String

Dim m_Speed As Long

Dim m_Start As Boolean

Dim pic(3) As String

Dim j As Integer

‘Event Declarations:

Event BeginRol()

Event EndRol()

Event EndText()

‘Создаем массив, значение элементов которого — пути к файлам с картинками

Public Sub Banner()

Dim i As Integer

pic(0) = Pic1

pic(1) = Pic2

pic(2) = Pic3

End Sub

‘Обновление содержимого баннера, пути к картинкам находятся в массиве pic.

Public Sub Refresh()

If j = 3 Then j = 0

Banner

Image1.Picture = LoadPicture(pic(j))

If j = 2 Then RaiseEvent EndText

j = j + 1