La Red de Conocimientos Pedagógicos - Currículum vitae - Traducción de VbBaidu

Traducción de VbBaidu

La "Opción explícita" requiere una declaración de variable.

SubForm_Load()' privado cuando el formulario se carga en la memoria.

texto 1 = " text1.maxlength=20 " ' el texto 1 muestra " texto 1 . maxlength = 20 ".

texto 2 = " texto2. bloqueado = verdadero " ' el texto 2 muestra "texto 2. bloqueado = verdadero".

Finaliza el proceso "End Sub".

Subtexto privado 1 _ pulsación de tecla (la tecla ASCII es un número entero)' texto 1 tecla del teclado ASCII es el código de la tecla.

Dim k As Integer, i As Integer 'Establece que k e I son enteros cortos.

Si KeyAscii = 13, presione 'Si enter'.

Texto2 = " 'Texto vacío2.

K = Len(Texto1)'Cuenta el número de caracteres en Texto1.

Para i = 1 a k ' Bucle de 1 a k

Mid(Text1, I, 1) "Text2" Debería haber algunos errores de código aquí

'

Siguiente yo

Terminará si...

El proceso "End Sub" finaliza