タイトル : Re^6: Chart point の更新方法 投稿日 : 2020/12/07(Mon) 12:00 投稿者 : かるび
魔界の仮面弁士さん、ご対応ありがとうございます。 > なぜ 3, 10 を指定したのでしょうか。その数字はどこから来たものですか? すみませんでした。 > Me.Chart1.Series(0).Points(1).ValueY この .ValueY が 無くて エラーになります。 環境はVSexp2017を使用しています。 ご指導していただいた内容でこのようにしてみました。 (見て解るようにY値をおのおの違う値に変えています) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'ここで Series(0).Points(1)のY値を 10に 変更! dat(1) = 10 Me.Chart1.Series(0).Points.Clear() For i As Integer = 0 To 10 Me.Chart1.Series(0).Points.AddXY(i, dat(i)) Next End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'ここで Series(0).Points(1)のY値を 11に 変更! Me.Chart1.Series(0).Points(1) = New DataPoint(1, 11) End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'ここで Series(0).Points(1)のY値を 12に 変更! Me.Chart1.Series(0).Points.RemoveAt(1) Me.Chart1.Series(0).Points.InsertXY(1, 1, 12) End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'ここで Series(0).Points(1)のY値を 13に 変更! Me.Chart1.Series(0).Points(1).YValues = {13.0} End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click 'ここで Series(0).Points(1)のY値を 14に 変更! Me.Chart1.Series(0).Points(1).SetValueY(14) Me.Chart1.Series.Invalidate() End Sub |