Mschart

Como grafico usando este componente en visual basic un formulario de mediciones a traves de un datagrid...gracias
1

1 respuesta

Respuesta
1
Dim iAux As Integer
'Te defines el tipo de grafico
MSChart1.chartType = VtChChartType2dBar
'Numero de columnas
MSChart1.ColumnCount = 1
MSChart1.Column = 1
'Numero de filas
Data1. Recordset. MoveLast
MSChart1.RowCount = Data1.Recordset.RecordCount
'Recorremos el recordset cogiendo el valor y la etiqueta
Data1. Recordset. MoveFirst
Do
iAux = iAux + 1
MSChart1.Row = iAux
MSChart1.Data = Data1.Recordset.Fields(3)
MSChart1.RowLabel = Data1.Recordset.Fields(5)
Data1.Recordset.MoveNext
Loop While Not Data1.Recordset.EOF
MSChart1.ShowLegend = False
MSChart1. Move 100, 100, ScaleWidth - 200, ScaleHeight - 200
Te agradeceria que si no quieres preguntar nada mas sobre este tema, finalizases la pregunta de la manera adecuada.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas