| Microsoft Chart Control で注釈を表示 |
| 下記サンプルは、必ず、CSVファイルを使っての基本的なグラフの表示 をご覧になってからお試しください。 Private Sub Button14_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button14.Click 'Microsoft Chart Control で注釈を表示 Call ChartClar(Chart1) '設定を一旦初期値に戻す。(通常は必要ありません。) With Chart1 '注釈の表示位置をデータポイントで指定する必要があるので下記のような設定になっています。 '(もう少し解りやすいやり方があるのかも知れませんが取りあえずという事で) Dim series(ds.Tables(0).Columns.Count - 1) As Series For i As Integer = 1 To ds.Tables(0).Columns.Count - 1 'Debug.Print(ds.Tables(0).Columns(i).ColumnName) '系列の作成(国語・数学・英語) series(i - 1) = New Series series(i - 1).Name = ds.Tables(0).Columns(i).ColumnName Next i For j As Integer = 1 To ds.Tables(0).Columns.Count - 1 For i As Integer = 0 To ds.Tables(0).Rows.Count - 1 '点数の取得(69,87,74,71,84,81,80,82,69,86,73,72,96,81,75) 'Debug.Print(CType(ds.Tables(0).Rows(i).Item(j), Integer).ToString) series(j - 1).Points.Add(CType(ds.Tables(0).Rows(i).Item(j), Integer)) Next i Next j For i As Integer = 1 To ds.Tables(0).Columns.Count - 1 '取得したデータを書き込み .Series.Add(series(i - 1)) Next i For i As Integer = 1 To ds.Tables(0).Rows.Count With .ChartAreas(0).AxisX 'ラベルの作成(浅野・安室・加藤・斉藤・鈴木) .CustomLabels.Add(i * 2, 0, ds.Tables(0).Rows(i - 1).Item(0).ToString) End With Next i With .ChartAreas(0).AxisY .Maximum = 120 '点数の最大値(注釈が下に表示されてしまうので、最大値を大きくして上に表示するように) .Minimum = 0 '点数の最小値 .Interval = 20 '点数のメモリ間隔(２０点毎) End With '■------------------- 注釈を設定 ----------------Start--■ Dim ca As New CalloutAnnotation() ca.Name = "CA1" '注釈の吹き出しスタイルを取得または設定 ca.CalloutStyle = CalloutStyle.Cloud '他７種類の形があります 注① 参照 ca.Text = "帰国子女なので" '注釈の文字 ca.ForeColor = Color.Red ca.Font = New Font("ＭＳ Ｐ明朝", 11, FontStyle.Bold) ca.BackColor = Color.Yellow ca.ShadowColor = Color.Blue '注釈の影色 ca.ShadowOffset = 3 '注釈の影のサイズ '表示位置の設定 ca.AnchorDataPoint = .Series("英語").Points(2) .Annotations.Add(ca) 'グラフの注釈を追加 '■-----------------------------------------------End----■ End With End Sub |
上記コードの実行結果 |
| 注 ① メンバー名 説 明 SimpleLine 吹き出しテキストに下線が付けられ、線がアンカー ポイントを指します。 Borderline 吹き出しテキストを囲む境界線が描画され、線がアンカー ポイントを指します。 Cloud 雲形吹き出し内に吹き出しテキストが描画され、小さな雲形吹き出しがアンカー ポイントを指します。 Rectangle 吹き出しテキストを囲む四角形が描画され、アンカー ポイントに接続されます。 RoundedRectangle 吹き出しテキストを囲む角丸四角形が描画され、アンカー ポイントに接続されます。 Ellipse 吹き出しテキストを囲む楕円が描画され、アンカー ポイントに接続されます。 Perspective 吹き出しテキストを囲むパースペクティブ四角形が描画され、アンカー ポイントに接続されます。 |