Chart von Microsoft und dazu noch gratis

    • VB.NET

      Chart von Microsoft und dazu noch gratis

      Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5

      mal was von Microsoft, völlig umsonst - ein Chart-Tool zum Einbinden in die eigene .NET Anwendung. Zunächst einmal ein paar Links für den Download und die Dokumentation:
      Einbinden über Toolbox - nach der Installation befindet sich die DLL normalerweise im Ordner Programme\Microsoft Chart Controls

      VB.NET-Quellcode

      1. Imports System.Windows.Forms.DataVisualization.Charting


      VB.NET-Quellcode

      1. With cha_rente
      2. .ChartAreas.Clear()
      3. .Series.Clear()
      5. ' Add Chart Area to the Chart
      6. Dim chartArea1 As New ChartArea()
      7. .ChartAreas.Add(chartArea1)
      9. Dim Series1 As New Series()
      10. .Series.Add(Series1)
      12. .AntiAliasing = AntiAliasingStyles.All
      13. .TextAntiAliasingQuality = TextAntiAliasingQuality.High
      14. .BackColor = Color.Transparent
      15. .BackSecondaryColor = Color.Transparent
      16. .BackHatchStyle = ChartHatchStyle.DashedHorizontal
      17. .BackGradientStyle = GradientStyle.DiagonalRight
      18. .BorderColor = Color.Transparent
      19. .BorderDashStyle = ChartDashStyle.DashDotDot
      20. .BorderWidth = 1
      22. .Titles.Clear()
      23. .Titles.Add("Titel")
      24. .Titles(0).Text = "Vergleich Altersrente"
      25. .Titles(0).Font = New Font("Thahoma", 10, FontStyle.Regular)
      26. .Titles(0).ForeColor = Color.Black
      27. .Titles(0).BorderColor = Color.Transparent
      28. .Titles(0).BackColor = Color.Transparent
      29. .Titles(0).Alignment = System.Drawing.ContentAlignment.BottomCenter
      30. .Titles(0).ToolTip = "Title"
      32. Dim yval As Double() = {2000.30, 3562.32}
      33. Dim xVal As String() = {"1. Wert", "2. Wert"}
      35. .ChartAreas("ChartArea1").Area3DStyle.Enable3D = True
      36. .ChartAreas("ChartArea1").Area3DStyle.LightStyle = LightStyle.Simplistic
      37. .ChartAreas("ChartArea1").Area3DStyle.IsRightAngleAxes = True
      38. .ChartAreas("ChartArea1").Area3DStyle.WallWidth = 0
      39. .ChartAreas("ChartArea1").Area3DStyle.Inclination = 1
      40. .ChartAreas("ChartArea1").BackColor = Color.Transparent
      41. .ChartAreas("ChartArea1").Area3DStyle.Rotation = 0
      42. .ChartAreas("ChartArea1").Area3DStyle.Inclination = 0
      44. .Series("Series1").ChartType = SeriesChartType.Bar
      45. .Series("Series1").BorderColor = Color.WhiteSmoke
      46. .Series("Series1")("DrawingStyle") = "Cylinder"
      48. Dim i As Integer = 0
      49. For i = 0 To 1
      50. .Series("Series1").Points.AddXY(xVal(i), yval(i))
      51. Select Case i
      52. Case 0
      53. .Series("Series1").Points(i).Color = Color.OldLace
      54. Case 1
      55. .Series("Series1").Points(i).Color = Color.MediumAquamarine
      56. End Select
      57. Next
      59. Dim format As ChartImageFormat = ChartImageFormat.Png
      60. format = ChartImageFormat.Png
      61. SaveImage("C:\tmp\testa.png")
      62. End With


      Einfach zu handhaben und sieht dazu noch super aus!

    Facebook
    Telefonspende