Microsoft Chart Controls für Microsoft .NET Framework 3.5

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Gaga.

    Microsoft Chart Controls für Microsoft .NET Framework 3.5

    Hallo,

    kann man das Chart Control für .net Framework 3.5 auch im Visual Studio 2005 nutzen? Ich suche nun schon seit geraumer Zeit ein Tool oder sonstiges zum erstellen eines ganz normalen Diagramms. Nix, wo ich mich durch ein 100 seitiges englisches Tutorial quälen muß oder aber versteckt was abdrücken soll. Einfach nur X & Y Achse mit Werten. So langsam bin ich am verzweifeln.
    Wenn die Zeit kommt in der man könnte, ist die vorrüber in der man kann.

    Hallo Gaga,

    ich kann dort keinen passenden Eintrag finden. Evtl. habe ich ja nicht alles installiert, was dazu gehört. Bis jetzt waren das "dotnetfx35setup","MSChart.exe" und "MSChartLP_deu.exe". Dann habe ich mir noch die VB-Samples installiert um mich einlesen zu können. Aber leider kann ich keinen Eintrag finden, aus dem ich entnehmen könnte das er zu zedGraph gehört und in die ToolBox gehört.

    Es tut mir leid, wenn ich da evtl. etwas schwerfällig bin. Aber so lange muß ich noch nicht unter dem Visual Studio 2005 arbeiten und habe auch keine großen Vorkentnisse gehabt. Aber dafür gibt es ja dieses prima Forum :D
    Wenn die Zeit kommt in der man könnte, ist die vorrüber in der man kann.

    ...ich bins mal wieder ?(

    Also nun hab ich soweit denk ich mal alles installiert, was mit dem Umgang von ZedGraph nötig sein sollte (als letztes die .dll fur 1.1 & 2.0). Trotzdem sieht es bei mir anders als in den Samples aus (siehe Anhang). Auch meckert mich wegen dem fehlenden Namespace bei Einfügen von Programmcode aus den Samples an. Irgend etwas stimmt doch da noch nicht.

    @ Gaga

    Kannst Du mir nicht evtl. mal etwas Code als Bsp. zeigen damit ich testen kann, ob noch etwas fehlt?

    Danke im vorrab für Deine Mühe!

    P.S. Wozu brauche ich Framework 3.5, wenn ich als .dll sowieso nur 1.1 und 2.0 laden kann?
    Bilder

    • Chart.JPG

      28,78 kB, 825×532, 289 mal angesehen
    Wenn die Zeit kommt in der man könnte, ist die vorrüber in der man kann.

    Ich hab eigentlich nur einen Import auf ZedGraph drin.
    P.S. Wozu brauche ich Framework 3.5, wenn ich als .dll sowieso nur 1.1 und 2.0 laden kann?
    Wenn du wirklich VB2005 verwendest, hast du das FW 3.5 ja sowieso nicht zur Verfügung, das gibts erst seit VB2008

    Beispiel:
    Code in Form1:

    VB.NET-Quellcode

    1. Imports ZedGraph
    3. Public Class Form1
    6. '// BarGraphBandDemo
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    8. Handles MyBase.Load
    10. FillList()
    13. Dim gpnInit As GraphPane = Me.zedGraph.GraphPane
    15. '// Einstelungen die normalerweise im Eigenschaftsfenster gemacht werden
    17. '// das PointValueEvent aktivieren
    18. Me.zedGraph.IsShowPointValues = True
    19. '// grundsätzlich das Scrollen einschalten
    20. Me.zedGraph.AutoScroll = True
    21. '// die horizontale Scrollbar anzeigen
    22. Me.zedGraph.IsShowHScrollBar = True
    23. '// ja, das ist ernst gemeint, noch sagen,
    24. '// dass wirklich gescrollt werden soll
    25. Me.zedGraph.IsAutoScrollRange = True
    26. '// Texte
    27. gpnInit.Title.Text = "Line Graph with Band Demo"
    28. gpnInit.XAxis.Title.Text = "Sequence"
    29. gpnInit.YAxis.Title.Text = "Temperature, C"
    31. '// beiger Hintergrund
    32. '// Fill the axis background with a color gradient
    33. gpnInit.Chart.Fill = New Fill(Color.FromArgb(255, 255, 245), Color.FromArgb(255, 255, 190), 90.0F)
    35. '// Anzeigebereich
    36. '// Manually set the x axis range
    37. 'MsgBox(gpnInit.XAxis.Scale.MaxGrace)
    38. 'gpnInit.XAxis.Scale.MaxAuto = False
    40. gpnInit.XAxis.Scale.Min = 100
    41. gpnInit.XAxis.Scale.Max = 800
    43. gpnInit.YAxis.Scale.Min = 0
    44. gpnInit.YAxis.Scale.Max = 140
    46. '// gepunktelte Linien
    47. '// Display the Y axis grid lines
    48. gpnInit.YAxis.MajorGrid.IsVisible = True
    49. gpnInit.YAxis.MinorGrid.IsVisible = True
    51. '// Text "Optimal Range"
    52. '// Add a text item to label the highlighted range
    53. Dim textRange As TextObj = New TextObj("Optimal" & vbCrLf & "Range", 0.9, 0.4, _
    54. CoordType.PaneFraction, _
    55. AlignH.Right, AlignV.Center)
    57. textRange.FontSpec.Fill.IsVisible = False
    58. textRange.FontSpec.Border.IsVisible = False
    59. textRange.FontSpec.IsBold = True
    60. textRange.FontSpec.IsItalic = True
    61. gpnInit.GraphObjList.Add(textRange)
    63. '// Grünen Bereich machen
    64. RedrawGreenBox()
    66. '// Ansicht aktualisieren
    67. '// tell the control to rescale itself
    68. Me.zedGraph.AxisChange()
    70. '// redraw the entire form
    71. Me.zedGraph.Invalidate()
    72. End Sub
    76. Private Function zedGraph_PointValueEvent(ByVal sender As ZedGraph.ZedGraphControl, ByVal pane As ZedGraph.GraphPane, ByVal curve As ZedGraph.CurveItem, ByVal iPt As Integer) As String _
    77. Handles zedGraph.PointValueEvent
    78. Dim ptpCurrent As PointPair = curve(iPt)
    80. Return curve.Label.Text & vbCrLf & " Y: " + ptpCurrent.Y.ToString("f2") & vbCrLf & " X: " + ptpCurrent.X.ToString("f1")
    81. End Function
    84. Private Sub zedGraph_ScrollEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) _
    85. Handles zedGraph.ScrollEvent
    86. RedrawGreenBox()
    87. End Sub
    90. Private Sub zedGraph_ZoomEvent(ByVal sender As ZedGraph.ZedGraphControl, ByVal oldState As ZedGraph.ZoomState, ByVal newState As ZedGraph.ZoomState) _
    91. Handles zedGraph.ZoomEvent
    92. RedrawGreenBox()
    93. End Sub
    96. Private Sub RedrawGreenBox()
    97. Dim gpnInit As GraphPane = Me.zedGraph.GraphPane
    98. If gpnInit.GraphObjList.Count > 1 Then gpnInit.GraphObjList.RemoveAt(1)
    99. Dim boxGreen As BoxObj
    100. With gpnInit.XAxis.Scale
    101. boxGreen = New BoxObj(.Min, 100, .Max - .Min, 30, Color.Empty, _
    102. Color.FromArgb(150, Color.LightGreen))
    103. End With
    104. boxGreen.Fill = New Fill(Color.White, Color.FromArgb(200, Color.LightGreen), 45.0F)
    105. boxGreen.ZOrder = ZOrder.F_BehindGrid
    106. gpnInit.GraphObjList.Add(boxGreen)
    107. End Sub
    110. Private Sub btnSymbols_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    111. Handles btnSymbols.Click
    112. Dim gpnInit As GraphPane = Me.zedGraph.GraphPane
    113. Dim crvLine As LineItem
    114. For Each crvItem As CurveItem In gpnInit.CurveList
    115. crvLine = CType(crvItem, LineItem)
    116. crvLine.Symbol.IsVisible = Not crvLine.Symbol.IsVisible
    117. Next crvItem
    118. Me.zedGraph.Invalidate()
    119. End Sub
    122. Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    123. Handles btnAdd.Click
    125. Dim gpnInit As GraphPane = Me.zedGraph.GraphPane
    126. Dim booSymbol As Boolean
    127. If gpnInit.CurveList.Count > 0 Then
    128. booSymbol = CType(gpnInit.CurveList.Item(0), LineItem).Symbol.IsVisible
    129. Else
    130. booSymbol = True
    131. End If
    133. For Each cliAdd As CurveListItem In Me.lvwKurven.SelectedItems
    134. Dim crvKurve As LineItem = gpnInit.AddCurve(cliAdd.Text, cliAdd.x, cliAdd.y, cliAdd.ForeColor)
    135. crvKurve.Symbol.Fill = New Fill(Color.White)
    136. crvKurve.Symbol.IsVisible = booSymbol
    137. If gpnInit.CurveList.Count = 1 Then Me.zedGraph.AxisChange()
    138. Next cliAdd
    140. Me.zedGraph.Invalidate()
    141. End Sub
    144. Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    145. Handles btnDel.Click
    147. Dim gpnInit As GraphPane = Me.zedGraph.GraphPane
    148. For Each cliDel As CurveListItem In Me.lvwKurven.SelectedItems
    149. For Each crvKurve As LineItem In gpnInit.CurveList
    150. If crvKurve.Label.Text = cliDel.Text Then
    151. gpnInit.CurveList.Remove(crvKurve)
    152. Exit For
    153. End If
    154. Next crvKurve
    155. Next cliDel
    156. Me.zedGraph.Invalidate()
    157. End Sub
    160. Private Sub FillList()
    162. Dim x() As Double = {100, 200, 300, 400, 500, 600, 700, 800, 900, 1000, 1100, 1200, 1300, 1400, 1500, 1600}
    163. Dim y() As Double = {100, 115, 75, 22, 98, 40, 10, 50, 60, 100, 110, 90, 70, 75, 80, 60}
    164. Dim y2() As Double = {90, 100, 95, 35, 80, 35, 35, 40, 45, 90, 99, 82, 65, 90, 80, 50}
    165. Dim y3() As Double = {80, 110, 65, 15, 54, 67, 18, 25, 36, 84, 74, 80, 70, 65, 61, 45}
    167. Dim cliNew As New CurveListItem("Curve 1", Color.Red)
    168. cliNew.x = x
    169. cliNew.y = y
    170. Me.lvwKurven.Items.Add(cliNew)
    172. cliNew = New CurveListItem("Curve 2", Color.Blue)
    173. cliNew.x = x
    174. cliNew.y = y2
    175. Me.lvwKurven.Items.Add(cliNew)
    177. cliNew = New CurveListItem("Curve 3", Color.Green)
    178. cliNew.x = x
    179. cliNew.y = y3
    180. Me.lvwKurven.Items.Add(cliNew)
    182. End Sub
    185. Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
    186. Dim gpnInit As GraphPane = Me.zedGraph.GraphPane
    187. gpnInit.XAxis.Scale.Min += 15
    188. gpnInit.XAxis.Scale.Max += 25
    189. Me.zedGraph.Invalidate()
    190. RedrawGreenBox
    191. End Sub
    192. End Class
    194. Public Class CurveListItem : Inherits ListViewItem
    195. Public x() As Double
    196. Public y() As Double
    197. Public Sub New(ByVal Text As String, ByVal Color As Color)
    198. MyBase.Text = Text
    199. MyBase.ForeColor = Color
    200. End Sub
    201. End Class


    Code im Designer:
    (im Projektexplorer auf alle Dateien Anzeigen und dann unter Form1.VB die Form1.Designer.vb)

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class Form1
    3. Inherits System.Windows.Forms.Form
    5. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    6. <System.Diagnostics.DebuggerNonUserCode()> _
    7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    8. If disposing AndAlso components IsNot Nothing Then
    9. components.Dispose()
    10. End If
    11. MyBase.Dispose(disposing)
    12. End Sub
    14. 'Wird vom Windows Form-Designer benötigt.
    15. Private components As System.ComponentModel.IContainer
    17. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    18. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    19. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    20. <System.Diagnostics.DebuggerStepThrough()> _
    21. Private Sub InitializeComponent()
    22. Me.components = New System.ComponentModel.Container
    23. Me.zedGraph = New ZedGraph.ZedGraphControl
    24. Me.btnSymbols = New System.Windows.Forms.Button
    25. Me.lvwKurven = New System.Windows.Forms.ListView
    26. Me.colKurve = New System.Windows.Forms.ColumnHeader
    27. Me.btnAdd = New System.Windows.Forms.Button
    28. Me.btnDel = New System.Windows.Forms.Button
    29. Me.btnTest = New System.Windows.Forms.Button
    30. Me.SuspendLayout()
    31. '
    32. 'zedGraph
    33. '
    34. Me.zedGraph.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    35. Or System.Windows.Forms.AnchorStyles.Left) _
    36. Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    37. Me.zedGraph.AutoScroll = True
    38. Me.zedGraph.IsAutoScrollRange = True
    39. Me.zedGraph.IsShowHScrollBar = True
    40. Me.zedGraph.Location = New System.Drawing.Point(12, 12)
    41. Me.zedGraph.Name = "zedGraph"
    42. Me.zedGraph.ScrollGrace = 0
    43. Me.zedGraph.ScrollMaxX = 0
    44. Me.zedGraph.ScrollMaxY = 0
    45. Me.zedGraph.ScrollMaxY2 = 0
    46. Me.zedGraph.ScrollMinX = 0
    47. Me.zedGraph.ScrollMinY = 0
    48. Me.zedGraph.ScrollMinY2 = 0
    49. Me.zedGraph.Size = New System.Drawing.Size(472, 422)
    50. Me.zedGraph.TabIndex = 0
    51. '
    52. 'btnSymbols
    53. '
    54. Me.btnSymbols.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
    55. Me.btnSymbols.Location = New System.Drawing.Point(12, 440)
    56. Me.btnSymbols.Name = "btnSymbols"
    57. Me.btnSymbols.Size = New System.Drawing.Size(68, 23)
    58. Me.btnSymbols.TabIndex = 1
    59. Me.btnSymbols.Text = "Symbole"
    60. Me.btnSymbols.UseVisualStyleBackColor = True
    61. '
    62. 'lvwKurven
    63. '
    64. Me.lvwKurven.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    65. Me.lvwKurven.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colKurve})
    66. Me.lvwKurven.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
    67. Me.lvwKurven.Location = New System.Drawing.Point(490, 12)
    68. Me.lvwKurven.Name = "lvwKurven"
    69. Me.lvwKurven.Size = New System.Drawing.Size(142, 199)
    70. Me.lvwKurven.TabIndex = 2
    71. Me.lvwKurven.UseCompatibleStateImageBehavior = False
    72. Me.lvwKurven.View = System.Windows.Forms.View.Details
    73. '
    74. 'colKurve
    75. '
    76. Me.colKurve.Text = ""
    77. '
    78. 'btnAdd
    79. '
    80. Me.btnAdd.Location = New System.Drawing.Point(490, 217)
    81. Me.btnAdd.Name = "btnAdd"
    82. Me.btnAdd.Size = New System.Drawing.Size(48, 24)
    83. Me.btnAdd.TabIndex = 3
    84. Me.btnAdd.Text = "Add"
    85. Me.btnAdd.UseVisualStyleBackColor = True
    86. '
    87. 'btnDel
    88. '
    89. Me.btnDel.Location = New System.Drawing.Point(544, 217)
    90. Me.btnDel.Name = "btnDel"
    91. Me.btnDel.Size = New System.Drawing.Size(48, 24)
    92. Me.btnDel.TabIndex = 4
    93. Me.btnDel.Text = "Del"
    94. Me.btnDel.UseVisualStyleBackColor = True
    95. '
    96. 'btnTest
    97. '
    98. Me.btnTest.Location = New System.Drawing.Point(490, 267)
    99. Me.btnTest.Name = "btnTest"
    100. Me.btnTest.Size = New System.Drawing.Size(87, 26)
    101. Me.btnTest.TabIndex = 5
    102. Me.btnTest.Text = "ScrollTest"
    103. Me.btnTest.UseVisualStyleBackColor = True
    104. '
    105. 'Form1
    106. '
    107. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    108. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    109. Me.ClientSize = New System.Drawing.Size(634, 475)
    110. Me.Controls.Add(Me.btnTest)
    111. Me.Controls.Add(Me.btnDel)
    112. Me.Controls.Add(Me.btnAdd)
    113. Me.Controls.Add(Me.lvwKurven)
    114. Me.Controls.Add(Me.btnSymbols)
    115. Me.Controls.Add(Me.zedGraph)
    116. Me.Name = "Form1"
    117. Me.Text = "Form1"
    118. Me.ResumeLayout(False)
    120. End Sub
    121. Friend WithEvents zedGraph As ZedGraph.ZedGraphControl
    122. Friend WithEvents btnSymbols As System.Windows.Forms.Button
    123. Friend WithEvents lvwKurven As System.Windows.Forms.ListView
    124. Friend WithEvents colKurve As System.Windows.Forms.ColumnHeader
    125. Friend WithEvents btnAdd As System.Windows.Forms.Button
    126. Friend WithEvents btnDel As System.Windows.Forms.Button
    127. Friend WithEvents btnTest As System.Windows.Forms.Button
    129. End Class

    Du brauchst jetzt eigentlich nur ein neues Projekt anlegen, die beiden Codeteile in die zwei Dateien kopieren und einen Verweis auf ZedGraph aufnehmen (Code ist VB2005)

    Hallo Gaga,

    erst einmal recht herzlichen Dank für das Projekt. Klappt sehr gut. :thumbsup: Hoffe Du hast nichts dagegen, wenn ich bei einem erneuten Problem diesen Thread hier noch mal aufgreife und mich damit hier im Forum noch mal melde?
    Wenn die Zeit kommt in der man könnte, ist die vorrüber in der man kann.

    Hallo Gaga,

    da wäre schon meine erste Frage (und hoffentlich auch die letzte): Auf der X-Achse möchte ich einen Tag von 0-24 Uhr darstellen. Die Meßpunkte sollten dann auch Uhrzeiten des Tages sein. Ausbauen will ich es dann, sofern es mir möglich ist, das man über 2 Monatskalender die Zeitspanne von - bis einstellen kann. Aber das wäre dann "nur" Nice to Have. Wichtiger wäre mir, die Uhrzeit auf der X-Ache zu haben. Hast Du da noch mal einen Tip für mich?
    Wenn die Zeit kommt in der man könnte, ist die vorrüber in der man kann.

Facebook
Telefonspende