Дипломная работа

от 20 дней
от 9999 рублей

Заказать

Курсовая работа

от 10 дней
от 1999 рублей

Заказать

Реферат

от 3 дней
от 699 рублей

Заказать

Контрольная работа

от 3 дней
от 99 рублей
за задачу

Заказать

Диссертация

Сроки и стоимость индивидуальные

Заказать

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

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

  • Тема: Элемент UserControl (Visual Basic 6.0) - столбиковая диаграмма
  • Автор: Ольга А.
  • Тип работы: Контрольная
  • Предмет: Программирование
  • Страниц: 0
  • Год сдачи: 2004
  • ВУЗ, город: СГТУ (Саратов)
  • Цена(руб.): 500 рублей

Заказать персональную работу

Выдержка

'Задание свойства цвета фона диаграммы
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.
Простейшая столбиковая диаграмма, значения для диаграммы берутся из свойств: цвет, шрифт, значения по осям. В коде даны комментарии.

Литература

MSDN

Форма заказа

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

Тип работы *
Предмет *
Название *
Дата Сдачи *
Количество Листов*
уточните задание
Ваши Пожелания
Загрузить Файлы

загрузить еще одно дополнение
Страна
Город
Ваше имя *
Эл. Почта *
Телефон *
  

Название Тип Год сдачи Страниц Цена
Учет выдачи гарантийных талонов (VB 6.0) Контрольная 2004 0 500
Программа-конвектор из одной величины в другую (C#, XML) Контрольная 2007 2 500
Ответы к контрольному заданию № 4 по курсу «Программирование в среде Delphi» Контрольная 2006 20 500
Контрольная (Pascal) Контрольная 2007 1 500
Контрольная (Delphi) Контрольная 2007 1 500
Развивающая игра "Посчитай фигуры" Контрольная 2007 23 500
ООП в С++ (Borland C++ Builder) Контрольная 2008 1 500
Ассемблер (контрольная работа). Контрольная 2008 13 450
Языки и системы программирования Контрольная 2008 14 500
Программирование на языке высокого уровня (ПЯВУ) Контрольная 2009 0 1200
курсовые, дипломные, контрольные на заказ скидки на курсовые, дипломные, контрольные на заказ

© 2010-2016, Все права защищены. Принимаем заказы по всей России.