eCarlos - Nu med mere Charting
25-07-2007 23:24:00
Der sker da lidt i kodefabrikken i disse dage.. Surt vi ingen sol har, men godt kodelysten er der:).
Havde brug for et lille barchart til mit statistik system her til aften, har ledt med lys og lygte efter noget der bare mindede om en super pæn. absolut freeware komponent, men uden held :(.
(Dog har jeg lige fået et link fra Mr. J til ZedGraph, der rent faktisk ser ret godt ud, men for sent).
Det blev til en semi-generisk komponent, så jeg kan få den brugt over hele linien.. Den er stadig på (1 times udviklingstid, og 2 timers finpudsningstid) stadiet Men det virker squ.
Dim oChart as Veroz.Charting.BarChart = New Veroz.Charting.BarChart
oChart.DataSource = oDS.Tables(0)
oChart.ImageSize = New Size(400, 200)
oChart.DisplayMember = "mydate"
oChart.ValueMember = "myvalue"
Dim oB As Bitmap = oChart.GetChart()
oB.Save(Response.OutputStream,Imaging.ImageFormat.Jpeg)
Thats it :)
Tags: vb.net, Chart, Barchart, Asp.net