ГОТОВЫЕ ДИПЛОМНЫЕ РАБОТЫ, КУРСОВЫЕ РАБОТЫ, ДИССЕРТАЦИИ И РЕФЕРАТЫ
Элемент UserControl (VB 6.0) - анимированный баннер | |
| Автор | Ольга А. |
| Вуз (город) | СГТУ (Саратов) |
| Количество страниц | 0 |
| Год сдачи | 2004 |
| Стоимость (руб.) | 500 |
| Содержание | Пользовательский компонент - UserControl (анимированный баннер, имеющий ряд свойств). По умолчанию берет картинки С:\pic1.jpg,С:\pic2.jpg,С:\pic3.jpg и прокручивает их с заданной скоростью (скорость, картинки, запуск/установка - свойства элемента). |
| Список литературы | MSDN |
| Выдержка из работы | '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 |