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

Краткая выдержка из текста работы (Аннотация)

'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

Содержание работы

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

Использованная литература

1. MSDN

Другие похожие работы

• Курсовая - Raytracing. Отрисовка сцены «Отражающиеся дорожки» алгоритмом обратной трассировки лучей
• Курсовая - Программирование на языке высокого уровня
• Курсовая - Сравнение эффективности приближенных методов решения трансцендентных уравнений (методом касательных и секущих). Погрешность. Геометрическое содержание.
• Курсовая - Объектом исследования является возможность создать программу расчета параметров (меры отклонения, мера разброса) линейной регрессии
• Курсовая - Динамический список динамических стеков
• Курсовая - Электронные часы. Секундомер
• Курсовая - Организация параллельной работы процессов под ОС UNIX
• Дипломная - Автоматизация учета хозяйственных операций в ЗАО
• Дипломная - Конфигуратор системных блоков персональных компьютеров
• Дипломная - Упрощение электрических цепей