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