| Вопрос: Построение диаграм? | Добавлено: 19.09.06 13:00 |
Автор вопроса:  Sergey
|
|
Подскажите пожалуйста чем можно построить диаграму.
Вроде есть контрол Micrisoft Chart control 6.0 но примеров работы с ним найти не удалось. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 19.09.06 23:39 |
|
Сам мудился когда-то с MS Charom...
примеров действительно нет, и поиска по форуму у нас тоже 
Я тебе процедурку оторву в котрой я строил Private Sub Command3_Click()
Dim i As Long Dim val As Single With Form1.MSChart1 .ColumnCount = Form1.ListView1.ListItems.Count 'количество секторов .RowCount = 1 'количество кружков .RowLabel = "Диаграмма " & Combo1.List(Combo1.ListIndex) 'Название Select Case Combo2.ListIndex Case 0 .chartType = VtChChartType2dBar Case 1 .chartType = VtChChartType3dCombination Case 2 .chartType = VtChChartType2dPie End Select End With 'On Error Resume Next For i = 1 To Form1.ListView1.ListItems.Count With Form1.MSChart1 .Column = i 'устанавливаем текущим сектором первый If Combo1.ListIndex = 0 Then val = Form1.ListView1.ListItems(i) Else val = Form1.ListView1.ListItems(i).SubItems(Combo1.ListIndex) If i = 1 And val <> 0 Then val = 0: i = 1 .Data = val End With Next i Form1.Command3.Top = 4800 Form1.Command3.Left = 8520 Form1.MSChart1.Visible = True Unload Me End Sub |
||
Страница: 1 |