Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Diagramm
Autor: HGuenther
Datum: 10.01.03 14:13
Hallo, vieleicht hilft das Private Sub Form_Load() Dim spalten(1 To 5) ChDrive App.Path ChDir App.Path Data1.DatabaseName = "programme" Data1.RecordSource = "Programme" Data1.Refresh Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF Select Case Data1.Recordset("idx") Case 1 spalten(1) = spalten(1) + 1 Case 2 spalten(2) = spalten(2) + 1 Case 3 spalten(3) = spalten(3) + 1 Case 4 spalten(4) = spalten(4) + 1 Case 5 spalten(5) = spalten(5) + 1 End Select Data1.Recordset.MoveNext Loop gr.ChartData = spalten 'Menüpunkt Drucken fuer die Grafik aktivieren Main.mnuDruckeGrafik.Enabled = True Main.mnuFarbe.Enabled = True If Main.mnuRot.Checked = True Then With frmchart.gr.Plot.SeriesCollection(1).DataPoints(-1) .Brush.Style = VtBrushStyleSolid .Brush.FillColor.Set 255, 0, 0 ' .Brush.FillColor.Red = CInt(150) '.Brush.FillColor.Green = CInt(150) '.Brush.FillColor.Blue = CInt(150) End With ElseIf Main.mnuGelb.Checked = True Then With frmchart.gr.Plot.SeriesCollection(1).DataPoints(-1) .Brush.Style = VtBrushStyleSolid .Brush.FillColor.Set 255, 255, 0 ' .Brush.FillColor.Red = CInt(150) '.Brush.FillColor.Green = CInt(150) '.Brush.FillColor.Blue = CInt(150) End With ElseIf Main.mnuBlau.Checked = True Then With frmchart.gr.Plot.SeriesCollection(1).DataPoints(-1) .Brush.Style = VtBrushStyleSolid .Brush.FillColor.Set 51, 102, 255 ' .Brush.FillColor.Red = CInt(150) '.Brush.FillColor.Green = CInt(150) '.Brush.FillColor.Blue = CInt(150) End With End If End Sub 'Abschnitt 2 Private Sub Form_Activate() Dim spalten(1 To 6, 1 To 6) 'Hier wird wie in der Load ereignis geprüft ob eine Grafik möglich ist Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF Select Case Data1.Recordset("IDX") Case 1 spalten(1, 2) = spalten(1, 2) + 1 spalten(1, 1) = "" & spalten(1, 2) & " Anwendung/en" Case 2 spalten(2, 2) = spalten(2, 2) + 1 spalten(2, 1) = "" & spalten(2, 2) & " Tool/s" Case 3 spalten(3, 2) = spalten(3, 2) + 1 spalten(3, 1) = "" & spalten(3, 2) & " Spiel/e" Case 4 spalten(4, 2) = spalten(4, 2) + 1 spalten(4, 1) = "" & spalten(4, 2) & " Treiber" Case 5 spalten(5, 2) = spalten(5, 2) + 1 spalten(5, 1) = "" & spalten(5, 2) & " Film/e" Case 6 spalten(6, 2) = spalten(6, 2) + 1 spalten(6, 1) = "" & spalten(6, 2) & " Musik" End Select Data1.Recordset.MoveNext Loop gr.ChartData = spalten End Sub Abschnitt 3 Private Sub Datenanzeigen_Click() Dim spalten(1 To 5, 1 To 6) Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF Select Case Data1.Recordset("IDX") Case 1 spalten(1, 2) = spalten(1, 2) + 1 spalten(1, 1) = "Anwendungen =" & spalten(1, 2) & "" Case 2 spalten(2, 2) = spalten(2, 2) + 1 spalten(2, 1) = "Tool's =" & spalten(2, 2) & "" Case 3 spalten(3, 2) = spalten(3, 2) + 1 spalten(3, 1) = "Spiele =" & spalten(3, 2) & "" Case 4 spalten(4, 2) = spalten(4, 2) + 1 spalten(4, 1) = "Treiber =" & spalten(4, 2) & "" Case 5 spalten(5, 2) = spalten(5, 2) + 1 spalten(5, 1) = "Filme =" & spalten(5, 2) & "" End Select Data1.Recordset.MoveNext Loop gr.ChartData = spalten End Sub Dieser Code hollt die Daten aus einer Datenbank und Prüft ob Daten da sind, wenn ja dann wird eine Grafik in Balken form gezeichnet Gruss Hagen

Diagramm	132	Carly	10.01.03 13:36
Re: Diagramm	364	HGuenther	10.01.03 14:13
Re: Diagramm	71	Carly	10.01.03 14:24

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen