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

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

  • Тема: Элемент UserControl (VB 6.0) - анимированный баннер
  • Автор: Ольга А.
  • Тип работы: Контрольная
  • Предмет: Программирование
  • Страниц: 0
  • Год сдачи: 2004
  • ВУЗ, город: СГТУ (Саратов)
  • Цена(руб.): 500 рублей

Купить
Заказать оригинальную работу


Выдержка

'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 и прокручивает их с заданной скоростью (скорость, картинки, запуск/установка - свойства элемента).

Литература

MSDN

Купить
Заказать оригинальную работу


Похожие работы

Название Тип Год сдачи Страниц ВУЗ, город Цена
Элемент UserControl (Visual Basic 6.0) - столбиковая диаграмма Контрольная 2004 0 СГТУ (Саратов) 500 Купить Заказать
оригинальную
Учет выдачи гарантийных талонов (VB 6.0) Контрольная 2004 0 СГТУ (Саратов) 500 Купить Заказать
оригинальную
Программа-конвектор из одной величины в другую (C#, XML) Контрольная 2007 2 в ВУЗах не сдавалась (писалась как тестовая программа) 500 Купить Заказать
оригинальную
Ответы к контрольному заданию № 4 по курсу «Программирование в среде Delphi» Контрольная 2006 20 ЗАОЧНЫЙ ТЕХНИКУМ МИФИ 500 Купить Заказать
оригинальную
Контрольная (Pascal) Контрольная 2007 1 КурскГТУ 500 Купить Заказать
оригинальную
Контрольная (Delphi) Контрольная 2007 1 КурскГТУ 500 Купить Заказать
оригинальную
Развивающая игра "Посчитай фигуры" Контрольная 2007 23 КурскГТУ 500 Купить Заказать
оригинальную
ООП в С++ (Borland C++ Builder) Контрольная 2008 1 КурскГТУ 500 Купить Заказать
оригинальную
Ассемблер (контрольная работа). Контрольная 2008 13 СибГУТИ 450 Купить Заказать
оригинальную
Языки и системы программирования Контрольная 2008 14 РГППУ(ЭЛиН) Екатеринбург 500 Купить Заказать
оригинальную