|
|
Сервер поддерживается
кафедрой информатики и вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail : kadan@grsu.grodno.by |
События на уровне диаграммы
События на уровне диаграммы, как и на уровне рабочего листа, происходят при ее активизации или изменении и описаны в таблице:
Событие |
Описание |
Activate |
Возникает при активизации листа диаграммы (не работает для внедренных диаграмм). Используйте это событие вместо свойства OnSheetActivate. |
BeforeDoubleClick |
Возникает при двойном щелчке диаграммы. Используйте это событие вместо свойства OnDoubleClick. |
BeforeRightClick |
Возникает при щелчке диаграммы правой кнопкой мыши. |
Calculate |
Происходит, когда пользователь инициирует построение диаграммы по новым или измененным данным. |
Deactivate |
Происходит в том случае, когда данный лист диаграммы активен, а пользователь активизирует другой лист. Не генерируется при активизации другого окна, отображающего тот же лист. Используйте это событие вместо свойства OnSheetDeactivate. |
DragOver |
Возникает при перемещении мышью данных поверх диаграммы. |
DragPlot |
Возникает при перемещении мышью диапазона ячеек поверх диаграммы. |
MouseDown |
Возникает при щелчке кнопки мыши, когда ее указатель находится над диаграммой. |
MouseMove |
Возникает при перемещении указателя мыши над диаграммой. |
MouseUp |
Возникает при отпускании кнопки мыши, когда ее указатель находится над диаграммой. |
Resize |
Возникает при изменении размера диаграммы. |
Select |
Возникает при выделении какого-либо элемента диаграммы . |
SeriesChange |
Возникает при изменении данных в какой-либо точке диаграммы. |
Подробнее об этих событиях см. соответствующие разделы справочной системы.
События, связанные с листами диаграмм, доступны в редакторе Visual Basic по умолчанию. Чтобы написать процедуру обработки события для внедренной диаграммы, создайте новый объект в модуле класса с помощью ключевого слова WithEvents (см. раздел ?Модули классов и события? далее в этой главе).
Пример
Эта процедура изменяет на диаграмме цвет точки при изменении пользователем ее значения:
Private Sub Chart_SeriesChange(ByVal Seriesindex As Long._
ByVal Pointindex As Long)
Set p = ActiveChart.SeriesCollection(Serieslndex).Points(Pointlndex)
p.Border .ColorIndex = 3
End Sub
Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997
|