オープンソースのグラフ・コントロール「ZedGraph」を使う：連載：VBで実践！ 外部コンポーネント活用術（2/4 ページ）

Imports ZedGraph

Public Class Form2

  Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Create_LineGraph(zg1) ' 折れ線グラフ
  End Sub

  ' 折れ線グラフ
  Private Sub Create_LineGraph(ByVal zg As ZedGraphControl)

    Dim myPane As GraphPane = zg.GraphPane

    ' グラフ／X軸、Y軸のタイトル設定
    myPane.Title.Text = "線グラフのサンプル"
    myPane.XAxis.Title.Text = "時間"
    myPane.YAxis.Title.Text = "値"

    ' X軸の目盛りを描画
    myPane.XAxis.MajorGrid.IsVisible = True

    ' Y軸のスケールを赤に
    myPane.YAxis.Scale.FontSpec.FontColor = Color.Red
    myPane.YAxis.Title.FontSpec.FontColor = Color.Red

    ' 反対側のY軸の目盛りの描画
    myPane.YAxis.MajorTic.IsOpposite = False
    myPane.YAxis.MinorTic.IsOpposite = False

    ' Yが0の位置の水平線
    myPane.YAxis.MajorGrid.IsZeroLine = True
    myPane.YAxis.Scale.Align = AlignP.Inside

    ' Y軸の範囲を指定する
    myPane.YAxis.Scale.Min = -20
    myPane.YAxis.Scale.Max = 30
    myPane.YAxis.IsVisible = True

    ' グラフ領域の内側をグラデーションに
    myPane.Chart.Fill = _
        New Fill(Color.White, Color.LightGray, 45.0F)

    ' テキストボックスをグラフの左下に描画
    Dim text As New TextObj( _
      "Zoom: 左のマウスボタンでドラッグ" & Chr(10) & _
      "Pan: Ctrl+左ボタンでドラッグ" & Chr(10) & _
      "Context Menu: 右ボタン", _
       0.05F, 0.95F, CoordType.ChartFraction, AlignH.Left, AlignV.Bottom)
    text.FontSpec.StringAlignment = StringAlignment.Near
    myPane.GraphObjList.Add(text)

    ' スクロールバーは非表示
    zg.IsShowHScrollBar = False
    zg.IsShowVScrollBar = False
    zg.IsAutoScrollRange = True

    ' ポイントの値をToolTip風に表示する
    zg.IsShowPointValues = True

    ' 描画するデータを作成
    Dim list As New PointPairList
    Dim i As Integer, x As Double, y As Double

    For i = 0 To 35
      x = i * 5.0
      y = Math.Sin(i * Math.PI / 15.0) * 16.0
      list.Add(x, y)
    Next i

    ' 赤い線でグラフの名称は“サイン波”に設定
    Dim myCurve As LineItem
    myCurve = myPane.AddCurve( _
        "サイン波", list, Color.Red, SymbolType.Diamond)
    myCurve.Symbol.Fill = New Fill(Color.White) ' ラインの色

    ' グラフ情報を再計算
    zg.AxisChange()

  End Sub

Dim myPane As GraphPane = zg.GraphPane

Private Sub CreateGraph_GradientByZBars(z1 As ZedGraphControl)

  Dim myPane As GraphPane = z1.GraphPane
  myPane.Title.Text = "グラデーションを使った棒グラフ"
  myPane.XAxis.Title.Text = "棒の数"
  myPane.YAxis.Title.Text = "値"

  myPane.Chart.Fill = _
    New Fill(Color.White, Color.FromArgb(220, 220, 255), 45)
  myPane.Fill =  _
    New Fill(Color.White, Color.FromArgb(255, 255, 225), 45)

  ' サンプルデータを用意
  Dim list As New PointPairList()
  Dim rand As New Random()

  Dim i As Integer
  For i = 0 To 15
    Dim x As Double = CDbl(i) + 1
    Dim y As Double = rand.NextDouble() * 1000
    Dim z As Double = i / 4.0
    list.Add(x, y, z)
  Next i

  ' 棒グラフを追加
  Dim myBar As BarItem = _
    myPane.AddBar("グラデーション", list, Color.Blue)
  Dim colors As Color() = _
    {Color.Red, Color.Yellow, Color.Green, Color.Blue, Color.Purple}
  myBar.Bar.Fill = New Fill(colors)
  myBar.Bar.Fill.Type = FillType.GradientByZ

  myBar.Bar.Fill.RangeMin = 0
  myBar.Bar.Fill.RangeMax = 4

  z1.AxisChange()

End Sub