*
*


CAPTCHA Image   Reload Image
X

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

контрольные работы, программирование

Объем работы: 1 стр.

Год сдачи: 2004

Стоимость: 350 руб.

Просмотров: 458

 

Не подходит работа?
Узнай цену на написание.

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

Задание свойства цвета фона диаграммы
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

MSDN

После офорления заказа Вам будут доступны содержание, введение, список литературы*
*- если автор дал согласие и выложил это описание.

Работу высылаем в течении суток после поступления денег на счет
ФИО*


E-mail для получения работы *


Телефон


ICQ


Дополнительная информация, вопросы, комментарии:



CAPTCHA Image
Сусловиямиприбретения работы согласен.

 
Добавить страницу в закладки
Отправить ссылку другу