Элемент 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

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

• Курсовая - Реализация модели дефрагментации свободных участков памяти, при выделении памяти динамическими разделами
• Контрольная - Развивающая игра "Посчитай фигуры"
• Курсовая - База данных на Delphi заводы
• Контрольная - Элемент UserControl (Visual Basic 6.0) - столбиковая диаграмма
• Курсовая - Алгоритмизация и программирование решения задач на процедурно-ориентированном языке Pascal
• Курсовая - СУБД «Посетители поликлиники»
• Контрольная - Программирование на языке высокого уровня (ПЯВУ)
• Курсовая - Задача Прима-Каскала
• Дипломная - Web сайт. Создание сайта для фирмы
• Контрольная - Программирование вычислительных задач на процеcсоре КР580ВМ80