Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo usar VB para hacer que el control mschart solo muestre coordenadas pero no curvas

Cómo usar VB para hacer que el control mschart solo muestre coordenadas pero no curvas

Private Sub Chart_Ini()

'Inicializar gráfico

'-----valor de coordenadas del eje x-----valor de coordenadas del eje Y------- -- -

ReDim MyDataH(20, 1)

ReDim MyDataA(20, 1)

Para i = 0 a 20

MisDatosH(i, 0) = 0

MisDatosH(i, 1) = 0

MisDatosA(i, 0) = 0

MisDatosA (i , 1) = 0

Siguiente i

'Establece la apariencia del gráfico de forma de onda

Con Chart1

'Establece el apariencia de la línea argumental

.

.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 200

.Plot.Axis(VtChAxisIdY).ValueScale. Máximo = 300

'//Establece el valor mínimo

.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0

.Plot.Axis(VtChAxisIdX ).ValueScale.Minimum = 0

'//

.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'Número de cuadrícula menor del eje X

. Plot.Axis(VtChAxisIdY) .ValueScale.MinorDivision = 0 'Número de cuadrícula menor del eje Y

.Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleDotted

.VtPenStyleDotted

.Plot.AutoLayout = False

.Plot.UniformAxis = False

.chartType = VtChartType2dXY 'Establece el gráfico en un diagrama de dispersión bidimensional

. ChartData = MyDataH 'Datos

Terminar con

'Configuración de apariencia del gráfico de forma de onda

Usar Chart2

'Establecer. la apariencia de la trama

p>

.Plot.SeriesCollection(1)..Plot.SeriesCollection(1).Pen.Width = 30

.Plot.SeriesCollection(1) .Pen.Style = VtPenStyleSolid

'Establecer eje XY

.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False

.Plot.Axis(VtChAxisIdY ).ValueScale.Auto = False

'//Establecer el valor máximo

.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 200

p>

..Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 300

'//Establece el valor mínimo

.Plot.Axis(VtChAxisIdY).ValueScale. Mínimo = 0

.Plot.Axis(VtChAxisIdX ).ValueScale.Minimum = 0

.ValueScale.Minimum = 0

'//

.Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 10 'Número de cuadrícula principal en el eje X

.Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 10 'Número de cuadrícula principal en Número de grids

.ValueScale.MajorDivision = 10 'Número de cuadrícula principal en el eje Y

.Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'MajorDivision en la cuadrícula menor del eje X number

.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0 'Número de cuadrícula menor del eje Y

.Plot.Axis(VtChAxisIdX).Axis MajorPen.Style = VtPenStyleDotted.

.Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleDotted

.Plot.AutoLayout = False

.UniformAxis = False

.chartType = VtChChartType2dXY 'Establece el gráfico en un gráfico de dispersión 2D

.ChartData = MyDataA 'Datos

Terminar con

End Sub

上篇: ¿Cómo conectar win10 a iphone6? Ninguna respuesta. 下篇: Cómo transferir datos de un teléfono antiguo a un teléfono nuevo mediante transferencia vivo

Artículos populares