質問編集履歴
3
StackedColumn100を追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -100,7 +100,31 @@
|
|
|
100
100
|
|
|
101
101
|
Next
|
|
102
102
|
|
|
103
|
-
|
|
103
|
+
```ここに言語を入力 StackedColumn100
|
|
104
|
+
|
|
105
|
+
を追加
|
|
106
|
+
|
|
107
|
+
|
|
108
|
+
|
|
109
|
+
For i As Integer = 7 To 11
|
|
110
|
+
|
|
111
|
+
|
|
112
|
+
|
|
113
|
+
Dim columnName As String = ds.Tables(0).Columns(i).ColumnName.ToString()
|
|
114
|
+
|
|
115
|
+
.Series.Add(columnName)
|
|
116
|
+
|
|
117
|
+
.Series(columnName).ChartType = DataVisualization.Charting.SeriesChartType.StackedColumn100
|
|
118
|
+
|
|
119
|
+
.Series(columnName).XValueMember = ds.Tables(0).Columns(0).ColumnName.ToString()
|
|
120
|
+
|
|
121
|
+
.Series(columnName).YValueMembers = columnName
|
|
122
|
+
|
|
123
|
+
Next
|
|
124
|
+
|
|
125
|
+
|
|
126
|
+
|
|
127
|
+
```
|
|
104
128
|
|
|
105
129
|
 '------------- ここまでは、基本的な表示設定と同じ -----------------------------------------
|
|
106
130
|
|
2
実行結果のグラフの表示
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
### 前提・実現したいこと
|
|
1
|
+
### 前提・実現したいこと
|
|
2
2
|
|
|
3
3
|
VB2010 Windows7環境
|
|
4
4
|
|
1
タグの追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
File without changes
|