| 2018/01/26(Fri) 10:16:19 編集(投稿者)
■No86399 (mako さん) に返信
> ただ、15分・30分・60分等の切り替えは RadioButton でしたいとこもあるのです。
No86380 のフォームに RadioButton (または CheckBox) を 3 つ貼り付け、下記を試してみてください。
Private Sub RadioButtons_CheckedChanged(sender As Object, e As EventArgs) _
Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged
If Chart1.ChartAreas.Count = 3 Then
Chart1.ChartAreas("15分エリア").Visible = RadioButton1.Checked
Chart1.ChartAreas("30分エリア").Visible = RadioButton2.Checked
Chart1.ChartAreas("60分エリア").Visible = RadioButton3.Checked
End If
End Sub |