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! Dieser Tipp wurde bereits 24.189 mal aufgerufen.
Anzeige
![]() ![]() ![]() 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. |
sevISDN 1.0 ![]() Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Tipp des Monats ![]() Dieter Otter Beliebige Zeichen am Anfang und Ende eines Strings entfernen Mit der Trim-Funktion lassen sich nicht nur Leerzeichen, sondern bei Bedarf auch beliebige Zeichen entfernen. Neu! sevPopUp 2.0 ![]() Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... |
||||||||||||||||
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. |