Помощь студентам, абитуриентам и школьникам.

Консультации и учебные материалы для разработки диссертации, дипломной работы ,курсовой работы, контрольной работы, реферата, отчета по практике, чертежа, эссе и любого другого вида студенческих работ.

Не успеваешь написать работу? Поможем!

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


ВУЗ, город:

СГТУ (Саратов)

Предмет: Программирование

Контрольная работа по теме:

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

Страниц: 0

Автор: Ольга А.

2004 год

4 45
RUR 500
Внимание!
Это только выдержка из работы

Рекомендуем посмотреть похожие работы:

  1. Создание и обработка Баз данных средствами VISUAL BASIC 6.0 (Курсовая работа, 2008)

    ... (Панель Диспетчера баз данных Visual Basic 6.0). Затем, в меню File (Файл) окна VisData выбираем команду ... окно создания Нового файла базы данных Microsoft Access диалоговое окно Select Microsoft Access DataBase To Greate. В окне Имя ...

  2. Обработка данных, созданных во внешних источниках Microsoft Office, в приложениях на языке Visual Basic. Вариант 7 (Курсовая работа, 2006)

    ... , в приложениях на языке Visual Basic.Цель: практические навыки создания и обработки данных различных форматов средствами приложения Visual Basic.Перечень ...

  3. Проектирование приложений для обработки массивов данных на Visual Basic 6 (Контрольная работа, 2007)

    ... навыки по проектированию простых приложений в среде Visual Basic 6.0 для обработки массивов данных. Главное достоинство Visual Basic 6 ... прибегая к написанию программного кода, а в сложных приложениях рутинный процесс создания программного кода сведен ...

  4. Работа с visual basick и ACCESS (Курсовая работа, 2010)

  5. Система программирования Microsoft Visual Basic. (Курсовая работа, 2007)

    ... данных Предприятия: Код предприятия Наименование предприятия ... . 6 ООО "Аквастрой" ... СУБД Access. Ранние версии имели номера Access 2.0 и Access ... программирования на языке Visual Basic for Application (VBA). Ещё одним дополнительным достоинством этой СУБД ...

  6. Курсовой проект по компьютерной подготовке (Курсовая работа, 2011)

    ... анализа информации об экономическом развитии стран для выявления закономерностей ... примере данных о Японии показана динамика отдельных экономических показателей и ... также находится период максимального прироста определенного показателя и периоды, дающие ...

  7. Создание и обработка Баз данных средствами Visual Basic 6.0 (Курсовая работа, 2012)

    ... обработки баз данных с помощью программы Visual Basic 6.0. Для чего изучение данного языка программирования стоит в ...

Содержание

Пользовательский компонент — 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

3 94
RUR 500






Карта : А Б В Г Д Е Ё Ж З И К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Э Ю Я A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Наверх