Aug 22
Otro ejemplo básico de como generar gráficos con MSChart.
- oForm=Createobject(_form1_)
oForm.Show
Read Events
Define Class form1 As Form
Top = 0
Left = 0
Height = 520
Width = 790
DoCreate = .T.
Name = "Form1"
Add Object mschart As OleControl With ;
Top = 10, ;
Left = 5, ;
Height = 500, ;
Width = 780, ;
Name = "MsChart", ;
OleClass = _MSChart20Lib.MsChart_
Procedure Init
Create Cursor crsChart (myCaption c,myValue i)
For ix =1 To 10
Insert Into crsChart Values (Sys(2015),Int(Rand()*1000))
Endfor
Thisform.mschart.Editpaste
Thisform.mschart.ChartType = 1
Endproc
-
Procedure QueryUnload
Clear Events
Endproc
Enddefine
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
