tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
Chartコントロール(VB2008版)でデータポイントラベルの表示(VB.NET) ( No.1 )  [親スレッドへ]
日時: 2010/03/10 15:37
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[チャート][描画・画像][]                                  *
* キーワード:Microsoft Chart Controls,基本設定,グラフ,データポイントラベル       *
***********************************************************************************
投 稿 日 : 2010/03/10
投 稿 者 : 花ちゃん

Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'2.データポイントラベルの表示
   Call ChartClar(Chart1)  '設定を一旦初期値に戻す。(通常は必要ありません。)
   With Chart1
      For i As Integer = 1 To colums
         Dim columnName As String = ds.Tables(0).Columns(i).ColumnName.ToString()
         '系列の設定(国語・数学等)
         .Series.Add(columnName)
         .Series(columnName).ChartType = DataVisualization.Charting.SeriesChartType.Column
         'X 軸のラベルテキストの読込・設定(浅野等の氏名)
         .Series(columnName).XValueMember = ds.Tables(0).Columns(0).ColumnName.ToString()
         'グラフ用のデータの読込・設定(点数)
         .Series(columnName).YValueMembers = columnName

         '■------------------- データポイントラベルの設定・表示 ----------------Start--■
         'データポイントラベルを表示
         .Series(i - 1).Label = "#VALY"

         '文字色をBlueに設定
         .Series(i - 1).LabelForeColor = Color.Blue
         .Series(i - 1).Font = New Font("MS P明朝", 10, FontStyle.Bold)
         '■---------------------------------------------------------------------End----■

      Next
   End With
End Sub



 [スレッド一覧へ] [親スレッドへ]