VB - Chart als Variable

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    VB - Chart als Variable

    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.

    VB.NET-Quellcode

    1. For m = 1 To 3 ' über Maschinen
    3. If m = 1 Then
    5. With Chart1
    7. .ChartAreas(0).AxisX.LabelStyle.Interval = 1
    9. .Titles.Clear()
    11. .Titles.Add("Schuster " & MaNrV)
    13. For i = 1 To 24 ' über Zeit
    15. .Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
    17. .Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
    19. Next i
    21. End With
    23. ElseIf m = 2 Then
    25. With Chart2
    27. .ChartAreas(0).AxisX.LabelStyle.Interval = 1
    29. .Titles.Clear()
    31. .Titles.Add("Schuster " & MaNrV)
    33. For i = 1 To 24 ' über Zeit
    35. .Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
    37. .Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
    39. Next i
    41. End With
    43. ElseIf m = 3 Then
    45. With Chart3
    47. .ChartAreas(0).AxisX.LabelStyle.Interval = 1
    49. .Titles.Clear()
    51. .Titles.Add("Schuster " & MaNrV)
    53. For i = 1 To 24 ' über Zeit
    55. .Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
    57. .Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
    59. Next i
    61. End With
    63. End If
    65. Next m
    67. For m = 1 To 3 ' über Maschinen
    69. If m = 1 Then
    71. With Chart1
    73. .ChartAreas(0).AxisX.LabelStyle.Interval = 1
    75. .Titles.Clear()
    77. .Titles.Add("Schuster " & MaNrV)
    79. For i = 1 To 24 ' über Zeit
    81. .Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
    83. .Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
    85. Next i
    87. End With
    89. ElseIf m = 2 Then
    91. With Chart2
    93. .ChartAreas(0).AxisX.LabelStyle.Interval = 1
    95. .Titles.Clear()
    97. .Titles.Add("Schuster " & MaNrV)
    99. For i = 1 To 24 ' über Zeit
    101. .Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
    103. .Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
    105. Next i
    107. End With
    109. ElseIf m = 3 Then
    111. With Chart3
    113. .ChartAreas(0).AxisX.LabelStyle.Interval = 1
    115. .Titles.Clear()
    117. .Titles.Add("Schuster " & MaNrV)
    119. For i = 1 To 24 ' über Zeit
    121. .Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
    123. .Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
    125. Next i
    127. End With
    129. End If
    131. Next m


    Danke im Voraus.

    Gruß Günter
    Gruß Günter

    @GünterD Willkommen im Forum. :thumbup:
    Fasse Chart1, Chart2 und Chart3 zu einem Array zusammen und feddich:

    VB.NET-Quellcode

    1. Dim charts = {Chart1, Chart2, Chart3}
    2. For m = 1 To 3 ' über Maschinen
    3. charts(m).ChartAreas(0).AxisX.LabelStyle.Interval = 1
    4. charts(m).Titles.Clear()
    5. charts(m).Titles.Add("Schuster " & MaNrV)
    6. For i = 1 To 24 ' über Zeit
    7. charts(m).Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
    8. charts(m).Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
    9. Next i
    10. Next m
    12. For m = 1 To 3 ' über Maschinen
    13. charts(m).ChartAreas(0).AxisX.LabelStyle.Interval = 1
    14. charts(m).Titles.Clear()
    15. charts(m).Titles.Add("Schuster " & MaNrV)
    16. For i = 1 To 24 ' über Zeit
    17. charts(m).Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
    18. charts(m).Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
    19. Next i
    20. Next m
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Willkommen im Forum.
    Jetzt stellt sich mir nur die Frage, warum diese komplette Schleife exakt 2x gleich hintereinander ausgeführt werden soll. Für den Fall, dass das überhaupt gewollt und sinnvoll ist, dann gleich

    VB.NET-Quellcode

    1. For l = 1 To 2
    2. For m = 1 To 3 ' über Maschinen
    3. charts(m).ChartAreas(0).AxisX.LabelStyle.Interval = 1
    4. charts(m).Titles.Clear()
    5. charts(m).Titles.Add("Schuster " & MaNrV)
    6. For i = 1 To 24 ' über Zeit
    7. charts(m).Series("Wert").Points.AddXY(xAchse(i), Werte(m, i))
    8. charts(m).Series("Ziel").Points.AddXY(xAchse(i), Ziele(i)) '
    9. Next i
    10. Next m
    11. Next
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende