Traducción de VbBaidu
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