Red de conocimiento informático - Problemas con los teléfonos móviles - ¿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.

¿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.

¡Dibuja una línea clara! El siguiente código requiere un temporizador, control text1 text2 text3, preste atención al control tex1 text2 text3.

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