Red de conocimiento informático - Conocimiento informático - Si has aprendido VB, echa un vistazo a la pregunta de ejemplo ```` ¿Ayúdame a analizarla, por favor?

Si has aprendido VB, echa un vistazo a la pregunta de ejemplo ```` ¿Ayúdame a analizarla, por favor?

Private Sub Command1_Click() Control de inicio de sesión con contraseña

Static Num As Integer define num como un número estático

Si Num lt 2, la contraseña solo se puede ingresar dos veces

Si Text1.Text lt;gt; "Hys249078Azop^!" ¡Entonces la contraseña es Hys249078Azop^! ¡Entonces la contraseña es Hys249078Azop^!

Num = Num 1 Determina el número de veces que se ha ingresado la contraseña

MsgBox "¡La contraseña es incorrecta, por favor vuelve a ingresar!", 64 "Verificación de contraseña". , 64, Ventana emergente "Revisión de contraseña"

Text1.SelStart = 0 TextControl comienza a estar vacío

Text1.SelLength = Len(Text1.Text) asigna un valor y pasa la contraseña

Text1.SelText = ""

Text1.SelLength = Len(Text1.Text) asignación, pasar contraseña

Text1.SelText = ""

Text1.SelLength = Len(Text1.Text)p>MsgBox "¡La contraseña no es válida, comuníquese con el administrador!", 16, "Revisión de contraseña". , 16. "Revisión de contraseñas"

End

End If

End Sub

¡Ni siquiera puedo entender el contenido anterior!

Subcomando privado2_Click()

Fin Fin

Fin Sub

Subtexto privado1_KeyPress(KeyAscii como entero)

Si KeyAscii = 13 Entonces presione Enter = Haga clic en el botón uno

KeyAscii = 0

Command1.Value = 1

Finalizar si

Fin Sub

上篇: El teléfono Xiaomi siempre oscurece automáticamente la pantalla 下篇: Cómo mantener el ventilador del portátil funcionando a máxima velocidad

Artículos populares