2020年5月18日 星期一

vb.net MSChart變色 [Set MSChart color] 


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Imports System.Windows.Forms.DataVisualization.Charting



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Chart1.ChartAreas.Clear()

        Chart1.Legends.Clear()

        Chart1.Series.Clear()

        Chart1.ChartAreas.Add("New")

        Chart1.Legends.Add("Type")

        Chart1.Series.Add("Fecha")

        Chart1.BackColor = Color.Black

        Chart1.ChartAreas("New").BackColor = Color.Black

        Chart1.Legends("Type").BackColor = Color.Black

        Chart1.Series("Fecha").LabelBackColor = Color.Beige

        Chart1.Series("Fecha").IsVisibleInLegend = False

        Chart1.Series("Fecha").IsValueShownAsLabel = False

        Chart1.Series("Fecha").Color = Color.Gray

        Chart1.Series("Fecha").BorderColor = Color.Yellow


        Chart1.Series("Fecha").ChartType = DataVisualization.Charting.SeriesChartType.Area


        For i As Integer = 0 To 10

            Dim Dp As New DataPoint()

            Dp.SetValueY(strEnumX(i), strEnumY(i))

            Chart1.Series("Fecha").Points.Add(Dp)

        Next

    End Sub
於
標籤： , , , ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)