Элемент UserControl (Visual Basic 6.0) - столбиковая диаграмма

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

'Задание свойства цвета фона диаграммы

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

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

Пользовательский компонент - UserControl.

Простейшая столбиковая диаграмма, значения для диаграммы берутся из свойств: цвет, шрифт, значения по осям. В коде даны комментарии.

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

1. MSDN

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

• Курсовая - Разработка базы данных Access для автоматизации работы мастерской по ремонту бытовой техники
• Контрольная - Игра пятнашки (15) - С
• Дипломная - Использование CALS (ИПИ) технологий при подготовке специалистов с высшим образованием
• Курсовая - Написание программы "Сбей самолет"
• Дипломная - Автоматизированная система реализации услуг на предприятии информационных технологий
• Курсовая - Создание автоматизированной системы для расчета себестоимости продукции промышленного предприятия
• Курсовая - СОЗДАНИЕ САЙТА «СЕЛЬСКАЯ ШКОЛА» НА ОСНОВЕ HTML И JAVA SCRIPT.
• Курсовая - Стратегический план создания информационной системы
• Курсовая - Разработка Web-сайта полностью на языке XML
• Курсовая - Нахождение собственных значений матрицы методом неопределенных коэфицентов