Visual Basic Forum

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 536

Hey Community
da eigentlich so viele leute diagramme benötigen keine keiner wirklich weis was er machen soll
und da ich es ja selber auch brauch mach ich mal ein texttut über MS Chart.

gut...

Vorbereitung:
wir brauchen die komponenten:
"microsoft chart control 6.0"

und für mein beispiel noch microsoft "window common controls 6.0"

dann einfach mal das ms chart control auf die form ziehen
und darunter noch listview platzieren

ein paar einstellungen am listview und dann haben wirs...
wir machen 2 spalten
1. tag
2. preis

(was vl noch zu sagen wäre... ich mache ein linien diagramm was die benzinpreise veranschaulicht...)
http://www.visual-basic-forum.de/viewtopic.php/treibst...echner-526.html

also weiter mit listview
View = 3 lvwReport
Gridlines true

na dann werden wir mal listview mit ein paar daten füttern ^^

Visual Basic: [code]

For i = 1 To 10
Set List = ListView1.ListItems.Add(, , i)
Randomize 'zufallszahl generieren
With List
.SubItems(1) = "1," & Int(Rnd * 300) 'in die zweite spalte die zahl schreiben
'z.b. 1,229
End With
Next

[/code]

so jetzt haben wir ein paar daten
weiter gehts

MS CHART

ja stimmt ms chart müssen wir auch noch einstellen...
dazu gibts einiges zu sagen...

.Repaint....................true or false ob das diagramm nach änderung neu gezeichnet werden soll
.chartType................welches diagramm verwendet werden soll
1 = ein einfaches balkendiagramm
wir benützen 3 -> liniendiagramm
.RowCount.................ist die anzahl der daten die verwendet werden
.ColumnCount.............wie viele linien paralell laufen wir haben nur eine
.Column.....................Legt die aktuell verwendete Linie fest

weiters brauchen wir noch
.row..........................wofür genau weis ich nicht... ^^ wenn ihr die zahlen auswechselt werdet ihr e sehen dass es optisch nicht schön ist
darum lassen wir .row = i ^^
.data.........................ja dass ist der eigentliche wert...
.RowLabel ..................Beschriftung

fangen wir an

Visual Basic: [code]

With MSChart1
.Repaint = True 'jedes mal neu zeichnen
.chartType = 3 'linien diagramm
.RowCount = ListView1.ListItems.Count 'anzahl der werte
.ColumnCount = 1 ' Zahl der Linien
.Column = 1
end with

[/code]

und noch die daten einlesen...
Visual Basic: [code]

with MSChart1
for i = 1 to .RowCount
.Row = i
.Data = listview1.listitems(i).subitems(1)
.Rowlabel = "Tag " & i
next
end with

[/code]

naja das wars eigentlich
is ja nicht so schwer

wenn ihr soweit seit sollte das doch hoffentlich so aussehen...

ich hoffe ich konnte euch ein bissi was lernen
und über kritik und lob bin ich hoch erfreut

lg Chris

hat denn keiner was dazu zu sagen *heul*^^
_________________

klausheinrich · Newbie Anmeldedatum: 04.11.2009 Beiträge: 4

Hi chris,

coole sache, hast Du ne Ahnung wie man ein gestapeltes Säulendiagramm mit
dem ms chart control bauen kann ?

greets

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 536

hey
das ist ja ewigkeiten her dass ich das tut erstellt habe...
freut mich total dass es jemand gebrauchen kann

ich habe mich leider schon lange nicht mehr mit dem ms chart control beschäftigt
aber was ich mich noch erinnern kann ist die auswahl der diagramme leider nicht so groß wie im excel
und wenn du ein gestapteltes säulendiagramm oder ähnliches im .charttype nicht findest
glaub ich leider dass ich dir da auch nicht weiter helfen kann

trozdem viel erfolg mit dem tut
lg
_________________