Hallo Zusammen,
ich bin ziemlich neu in Umgang mit VB und insbesondere Charts.
Kann mir jemand einen Tipp geben wie ich in einer Schleife das anzusprechende Diagramm als Variable deklarieren kann?
Hier eine Schleife über 3 Diagramme, die ich gerne ohne "IF M=1 then … " programmieren möchte.
Danke im Voraus.
Gruß Günter
ich bin ziemlich neu in Umgang mit VB und insbesondere Charts.
Kann mir jemand einen Tipp geben wie ich in einer Schleife das anzusprechende Diagramm als Variable deklarieren kann?
Hier eine Schleife über 3 Diagramme, die ich gerne ohne "IF M=1 then … " programmieren möchte.
VB.NET-Quellcode
- For m = 1 To 3 ' über Maschinen
- If m = 1 Then
- With Chart1
- .ChartAreas(0).AxisX.LabelStyle.Interval = 1
- .Titles.Clear()
- .Titles.Add("Schuster " & MaNrV)
- For i = 1 To 24 ' über Zeit
- .Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
- .Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
- Next i
- End With
- ElseIf m = 2 Then
- With Chart2
- .ChartAreas(0).AxisX.LabelStyle.Interval = 1
- .Titles.Clear()
- .Titles.Add("Schuster " & MaNrV)
- For i = 1 To 24 ' über Zeit
- .Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
- .Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
- Next i
- End With
- ElseIf m = 3 Then
- With Chart3
- .ChartAreas(0).AxisX.LabelStyle.Interval = 1
- .Titles.Clear()
- .Titles.Add("Schuster " & MaNrV)
- For i = 1 To 24 ' über Zeit
- .Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
- .Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
- Next i
- End With
- End If
- Next m
- For m = 1 To 3 ' über Maschinen
- If m = 1 Then
- With Chart1
- .ChartAreas(0).AxisX.LabelStyle.Interval = 1
- .Titles.Clear()
- .Titles.Add("Schuster " & MaNrV)
- For i = 1 To 24 ' über Zeit
- .Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
- .Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
- Next i
- End With
- ElseIf m = 2 Then
- With Chart2
- .ChartAreas(0).AxisX.LabelStyle.Interval = 1
- .Titles.Clear()
- .Titles.Add("Schuster " & MaNrV)
- For i = 1 To 24 ' über Zeit
- .Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
- .Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
- Next i
- End With
- ElseIf m = 3 Then
- With Chart3
- .ChartAreas(0).AxisX.LabelStyle.Interval = 1
- .Titles.Clear()
- .Titles.Add("Schuster " & MaNrV)
- For i = 1 To 24 ' über Zeit
- .Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
- .Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
- Next i
- End With
- End If
- Next m
Danke im Voraus.
Gruß Günter
Gruß Günter