¿Cómo crear una tabla de este tipo usando programación Vb? Lea los datos del archivo y dibuje un cuadrado recto, luego use el mouse para sacar los datos del formulario.
Solo pueden ser números.
¿Oscuro? S1,? ¿T2? ¿T3? ¿S4A? Largo
¿Oscuro? A1,? ¿A2? ¿A3? ¿A4A? Largo
¿Oscuro? C1,? ¿C2? ¿C3? c4a? Largo
¿Privado? ¿Sub? Form_Load()
i. ¿Retiro automático? =?real
Temporizador1. ¿Intervalo? =?1500
S4? =?Formulario 1. ¿altura? -?600
S2? =?Formulario 1. ¿altura? -?600
A4? =?Formulario 1. ¿altura? -?600
A2? =?Formulario 1. ¿altura? -?600
C4? =?Formulario 1. ¿altura? -?600
C2? =?Formulario 1. ¿altura? -?600
¿Fin? Submarino
¿Privado? ¿Sub? Timer1_Timer()
¿T3? =?S3? +?100
S4? =?3000?-?Texto1. texto
i. ¿Color de primer plano? =?& ampHFF & amp;
I. ¿Cable? (OX1,?OY1)-(OX2,?OY2),? I. color de fondo
i. ¿Cable? (S1,?S2)——(S3,?S4)
S1? =?S1? +?100
S2? =?Cuarto sonido cardíaco
A3? =?A3? +?100
A4? =?3000?-?Texto2. texto
i. ¿Color de primer plano? =?& ampH0 & amp;
I. ¿Cable? (O1X1,?O1Y1)-(O1X2,?O1Y2),? I. color de fondo
i. ¿Cable? (A1,?A2)-(A3,?A4)
A1? =?A1? +?100
A2? =?Número A4
C3? =?C3? +?100
C4? =?3000?-?SMS 3. texto
i. ¿Color de primer plano? =?& ampHFF00 & amp
I. ¿Cable? (O1X1,?O1Y1)-(O1X2,?O1Y2),? I. color de fondo
i. ¿Cable? (C1,?C2)——(C3,?C4)
C1? =?C1? +?100
C2? =?Deficiencia del componente IV del complemento
¿Fin? Sub Simplemente pegue el código de arriba en el formulario. ?
O control mschart1.
Ejemplos de uso:
¿Privado? ¿Sub? Form_Load()
MSChart1.chartType? =?VtChChartType2dLine? Establecer en curva 2D.
¿Oscuro? Uno(6,?0)?como? ¿Entero? Declarar una matriz.
¿Para qué? ¿I? =?1?¿Adónde ir? 6?Bucle transversal
a(I,?0)?=?I? *?¿I? *?¿I? Asignar un valor a cada elemento del array
¿Siguiente? Yo
MSChart1. ¿Datos del gráfico? =?¿Respuesta? Asigne los datos de la matriz a la propiedad ChartData del objeto MSChart.
¿Para qué? ¿I? =?1?¿Adónde ir? 7?Establezca 8 puntos de datos
MSChart1. ¿Plan? =?Yo? Mueva la posición para que apunte a la posición I-ésima.
MSChart1. ¿Rompecabezas? =?Yo? Establecer contenido de etiqueta de línea
¿Siguiente? Yo
¿Terminar? Submarino
¿Privado? ¿Sub? Command1_Click()
¿Qué usar? MSChart1
.
¿Tipo de gráfico? =?VtChChartType2dLine? Establecer en curva 2D.
. ¿Conteo de columnas? =?1?Sólo una curva
. ¿Número de filas? =?7?Establecer 8 puntos de datos
¿Para qué? ¿I? =?1?¿Adónde ir? 7? Bucle transversal
. ¿Plan? =?Yo? Mueva la posición para que apunte a la posición I-ésima.
. ¿Rompecabezas? =?Yo? Establecer contenido de etiqueta de línea
. ¿datos? =?Yo? ? 2? ¿Asignar
luego
finalizar? ¿Con
el final? Submarino
¿Privado? ¿Sub? Command2_Click()
¿Atenuar? ¿cn? ¿Como? ¿Nuevo? ADOB. Relación
Declarar una nueva conexión.
¿Oscuro? primero? ¿Como? ¿Nuevo? ADOB. Conjunto de registros
Declarar un nuevo conjunto de registros.
¿Oscuro? SQLStr? ¿Como? Línea
Declara una cadena.
cn. ¿abierto? "Proveedor=Microsoft.Jet.OLEDB.4.0Data?Source="? y amplificador? Aplicación. ¿camino? y amplificador? " \ db 1 . MDB; Modo = ReadWrite; ¿Persistencia? ¿Seguridad? Información = False Jett? OLEDB: ¿Base de datos? Contraseña = 111 "
Abrir conexión
SqlStr? =?"¿Seleccionar? ¿Ingresos? ¿De dónde? Declaración de pérdidas y ganancias"
Establecer declaración SQL
primero. ¿Posicionamiento del cursor? =?Cliente adulto
Establece la posición del cursor del conjunto de registros.
primero. ¿abierto? SQLStr,? ¿cn? anuncioOpenDynamic,? adlock es optimista? anuncioCmdText? Abra el conjunto de registros.
¿Configuración? MSChart1. ¿Fuente de datos? =?primero? Modifique la fuente de datos de MSChart1.
¿Fin? Submarino