タイトル | : Chartに任意の文字列を表示 |
記事No | : 10972 |
投稿日 | : 2012/12/01(Sat) 18:36 |
投稿者 | : そら |
すみません、VB2010を始めたばかりの超初心者です。
下記のサンプルでは凡例の位置に、 ブルーの棒と任意の文字列(ABCD)が表示されますがブルーの棒は要りません。 任意の文字列のみを表示したいのです。 しかも複数行です。 更には、Chartをクリップボードにコピーした時には、 この任意の文字列も含まれるようにしたいのです。 どのような方法でも構いません、よろしくお願いします。
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Dim dt As New DataTable '列の作成 With dt.Columns .Add("日付", GetType(String)) .Add("指数", GetType(Integer)) End With 'データの追加 dt.Rows.Add("12/01", 40) dt.Rows.Add("12/02", 60) dt.Rows.Add("12/03", 30) '初期化 Chart1.Series.Clear() 'グラフの種類,系列,軸の設定 Dim rosoku = Chart1.Series.Add("棒グラフ") With rosoku .ChartType = DataVisualization.Charting.SeriesChartType.Column .XValueMember = "日付" .YValueMembers = "指数" End With Chart1.DataSource = dt Chart1.DataBind() End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Chart1.Series(0).LegendText = "ABCD" End Sub End Class
|