vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Controls   |   VB-Versionen: VB200803.09.09
Chart von Microsoft und dazu noch gratis

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

Autor:   SkyfloyBewertung:  Views:  19.336 
ohne HomepageSystem:  Win2k, WinXP, Vista, Win7, Win8, Win10kein Beispielprojekt 

Na da laust mich doch der Affe, 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

Imports System.Windows.Forms.DataVisualization.Charting
With cha_rente
  .ChartAreas.Clear()
  .Series.Clear()
 
  ' Add Chart Area to the Chart
  Dim chartArea1 As New ChartArea()
  .ChartAreas.Add(chartArea1)
 
  Dim Series1 As New Series()
  .Series.Add(Series1)
 
  .AntiAliasing = AntiAliasingStyles.All
  .TextAntiAliasingQuality = TextAntiAliasingQuality.High
  .BackColor = Color.Transparent
  .BackSecondaryColor = Color.Transparent
  .BackHatchStyle = ChartHatchStyle.DashedHorizontal
  .BackGradientStyle = GradientStyle.DiagonalRight
  .BorderColor = Color.Transparent
  .BorderDashStyle = ChartDashStyle.DashDotDot
  .BorderWidth = 1
 
  .Titles.Clear()
  .Titles.Add("Titel")
  .Titles(0).Text = "Vergleich Altersrente"
  .Titles(0).Font = New Font("Thahoma", 10, FontStyle.Regular)
  .Titles(0).ForeColor = Color.Black
  .Titles(0).BorderColor = Color.Transparent
  .Titles(0).BackColor = Color.Transparent
  .Titles(0).Alignment = System.Drawing.ContentAlignment.BottomCenter
  .Titles(0).ToolTip = "Title"
 
  Dim yval As Double() = {2000.30, 3562.32}
  Dim xVal As String() = {"1. Wert", "2. Wert"}
 
  .ChartAreas("ChartArea1").Area3DStyle.Enable3D = True
  .ChartAreas("ChartArea1").Area3DStyle.LightStyle = LightStyle.Simplistic
  .ChartAreas("ChartArea1").Area3DStyle.IsRightAngleAxes = True
  .ChartAreas("ChartArea1").Area3DStyle.WallWidth = 0
  .ChartAreas("ChartArea1").Area3DStyle.Inclination = 1
  .ChartAreas("ChartArea1").BackColor = Color.Transparent
  .ChartAreas("ChartArea1").Area3DStyle.Rotation = 0
  .ChartAreas("ChartArea1").Area3DStyle.Inclination = 0
 
  .Series("Series1").ChartType = SeriesChartType.Bar
  .Series("Series1").BorderColor = Color.WhiteSmoke
  .Series("Series1")("DrawingStyle") = "Cylinder"
 
  Dim i As Integer = 0
  For i = 0 To 1
    .Series("Series1").Points.AddXY(xVal(i), yval(i))
    Select Case i
      Case 0
        .Series("Series1").Points(i).Color = Color.OldLace
      Case 1
        .Series("Series1").Points(i).Color = Color.MediumAquamarine
    End Select
  Next 
 
  Dim format As ChartImageFormat = ChartImageFormat.Png
  format = ChartImageFormat.Png
  SaveImage("C:\tmp\testa.png", 
End With

Einfach zu handhaben und sieht dazu noch super aus!



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2019 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.