Контрольная работа: Диаграммы в Visual Basic

Form1. Top = (h – Form1. Height) / 2

If Form1. Top < 0 Then Form1. Top = 0

End Sub

Private Sub MSFlexGrid1_DblClick()

' открываем окно редактирования стоимости выбранного продукта

EditGridData

End Sub

Private Sub Option1_Click()

' изменяем тип диаграммы на 2DBar

MSChart1.chartType = VtChChartType2dBar

End Sub

Private Sub Option2_Click()

' изменяем тип диаграммы на 2DLine

MSChart1.chartType = VtChChartType2dLine

End Sub

Private Sub Option3_Click()

' изменяем тип диаграммы на 3DLine

MSChart1.chartType = VtChChartType3dLine

End Sub

Private Sub Option4_Click()

' изменяем тип диаграммы на 3DBar

MSChart1.chartType = VtChChartType3dBar

EndSub

Помимо главной формы, в проекте представлена диалоговая форма сохранения диаграммы. Исходныйкодмодуляимеетследующийвид:

Option Explicit

Private Sub CancelButton_Click()

' закрываем диалоговую форму

Me. Hide

End Sub