Готовая контрольная работа
на тему:«Элемент UserControl (Visual Basic 6.0) - столбиковая диаграмма»
Цена: 750 руб.
Номер: V3113
Предмет: Программирование
Год: 2004
Тип: контрольные
Отзывы
Вас беспокоит автор статьи Айжамал из Кыргызстана, моя статья опубликована, и в этом ваша заслуга. Огромная благодарность Вам за оказанные услуги.
Спасибо Вам за сотрудничество! Я ВКР защитила на 5 (пять). Огромное спасибо Вам и Вашей команде Курсовой проект.
Мы стали Магистрами)))
Мария,добрый день! Спасибо большое. Защитился на 4!всего доброго
Добрый день,хочу выразить слова благодарности Вашей и организации и тайному исполнителю моей работы.Я сегодня защитилась на 4!!!! Отзыв на сайт обязательно прикреплю,друзьям и знакомым буду Вас рекомендовать. Успехов Вам!!!
Курсовая на "5"! Спасибо огромное!!!
После новогодних праздников буду снова Вам писать, заказывать дипломную работу.
После новогодних праздников буду снова Вам писать, заказывать дипломную работу.
Спасибо большое!!! Очень приятно с Вами сотрудничать!
Светлана, добрый день! Хочу сказать Вам и Вашим сотрудникам огромное спасибо за курсовую работу!!! оценили на \5\!))
Буду еще к Вам обращаться!!
СПАСИБО!!!
Буду еще к Вам обращаться!!
СПАСИБО!!!
Защита прошла на отлично. Спасибо большое :)
Большое спасибо Вам и автору!!! Это именно то, что нужно!!!!!
Спасибо, что ВЫ есть!!!
Спасибо, что ВЫ есть!!!
Поделиться
Введение
Содержание
Литература
'Задание свойства цвета фона диаграммы
Public Property Get BackColor() As OLE_COLOR
BackColor = UserControl.BackColor
End Property
Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
UserControl.BackColor() = New_BackColor
PropertyChanged "BackColor"
End Property
'Задание свойства шрифт для диаграммы
Public Property Get Font() As Font
Set Font = UserControl.Font
End Property
Public Property Set Font(ByVal New_Font As Font)
Set UserControl.Font = New_Font
PropertyChanged "Font"
lName.Font = UserControl.Font
lX.Font = UserControl.Font
lY.Font = UserControl.Font
Label2(0).Font = UserControl.Font
End Property
'Задание размера шрифта для диаграммы
Public Property Get FontSize() As Single
FontSize = UserControl.FontSize
End Property
Public Property Let FontSize(ByVal New_FontSize As Single)
UserControl.FontSize() = New_FontSize
PropertyChanged "FontSize"
lName.FontSize = UserControl.FontSize + 1
lX.FontSize = UserControl.FontSize
lY.Font = UserControl.FontSize
End Property
'Задание "жирного" шрифта для диаграммы
Public Property Get FontBold() As Boolean
FontBold = UserControl.FontBold
End Property
Public Property Let FontBold(ByVal New_FontBold As Boolean)
UserControl.FontBold() = New_FontBold
PropertyChanged "FontBold"
lName.FontBold = UserControl.FontBold
End Property
'Обновить
Public Sub Refresh()
flag = 1
Dim size As Long
Dim sizey As Long
size = LineX.X2 - LineX.X1
On Error Resume Next
size = CLng(size / (dc1 + 1))
Dim i As Integer
For i = 0 To dc1
Load Label1(i + 1)
Label1(i + 1).Caption = c1(i)
Label1(i + 1).Top = Label1(0).Top
Label1(i + 1).Left = Label1(i).Left + size
Label1(i + 1).Width = size
Label1(i + 1).WordWrap = True
Label1(i + 1).Alignment = center
Label1(i + 1).Visible = True
Label1(i + 1).BackStyle = Transporen
Public Property Get BackColor() As OLE_COLOR
BackColor = UserControl.BackColor
End Property
Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
UserControl.BackColor() = New_BackColor
PropertyChanged "BackColor"
End Property
'Задание свойства шрифт для диаграммы
Public Property Get Font() As Font
Set Font = UserControl.Font
End Property
Public Property Set Font(ByVal New_Font As Font)
Set UserControl.Font = New_Font
PropertyChanged "Font"
lName.Font = UserControl.Font
lX.Font = UserControl.Font
lY.Font = UserControl.Font
Label2(0).Font = UserControl.Font
End Property
'Задание размера шрифта для диаграммы
Public Property Get FontSize() As Single
FontSize = UserControl.FontSize
End Property
Public Property Let FontSize(ByVal New_FontSize As Single)
UserControl.FontSize() = New_FontSize
PropertyChanged "FontSize"
lName.FontSize = UserControl.FontSize + 1
lX.FontSize = UserControl.FontSize
lY.Font = UserControl.FontSize
End Property
'Задание "жирного" шрифта для диаграммы
Public Property Get FontBold() As Boolean
FontBold = UserControl.FontBold
End Property
Public Property Let FontBold(ByVal New_FontBold As Boolean)
UserControl.FontBold() = New_FontBold
PropertyChanged "FontBold"
lName.FontBold = UserControl.FontBold
End Property
'Обновить
Public Sub Refresh()
flag = 1
Dim size As Long
Dim sizey As Long
size = LineX.X2 - LineX.X1
On Error Resume Next
size = CLng(size / (dc1 + 1))
Dim i As Integer
For i = 0 To dc1
Load Label1(i + 1)
Label1(i + 1).Caption = c1(i)
Label1(i + 1).Top = Label1(0).Top
Label1(i + 1).Left = Label1(i).Left + size
Label1(i + 1).Width = size
Label1(i + 1).WordWrap = True
Label1(i + 1).Alignment = center
Label1(i + 1).Visible = True
Label1(i + 1).BackStyle = Transporen
750 руб.
Похожие работы:
Разработка программного кода 'Сберегательная касса' в среде VBA (с помощью Excel) (Visual Basic) ➨
Описание информационной модели
Информация о вкладах содержит уникальный номер вклада, название вклада, минимальную ...
Система программирования Microsoft Visual Basic. ➨
Задание на курсовой проект
Вариант 5
Структура таблиц:
Таблица PR (предприятия)
Код предприятия Наименование ...
Тема курсового проекта: Обработка данных, созданных во внешних источниках Microsoft Office, в приложениях на языке Visual ...
Поиск по базе выполненных нами работ:
Разделы по направлениям
Готовые дипломы по специальностям
Готовые работы по предметам