Un divertido juego/truco en Microsoft Visual Basic (10 / 10 paso)

Paso 10: El código completo

Public Class Form1

TxtLen DIM As Integer
Private Sub hidden_TextChanged (sender como System.Object, e como System.EventArgs) tiradores ocultados. TextChanged
txtLen = Len (ocultado. Texto)
petición. Texto = Microsoft.VisualBasic.Left ("por favor conteste la siguiente pregunta:", txtLen)
Si Microsoft.VisualBasic.Right (ocultado. Texto, 1) = "." Entonces
astuto. Texto = Microsoft.VisualBasic.Left (ocultado. Texto, Len (ocultado. Texto) - 1)
End If
Si petición. Texto = "por favor conteste la siguiente pregunta:" entonces
pregunta. Activado = True
End If

End Sub

Private Sub question_TextChanged (sender como System.Object, e como System.EventArgs) maneja la pregunta. TextChanged
Si Microsoft.VisualBasic.Right (pregunta. Texto, 1) = "?" Entonces
Inicio. Activado = True
End If
End Sub

Private Sub start_Click (sender como System.Object, e como System.EventArgs) manijas comienzan. Haga clic en
Como Boolean DIM prueba
Si InStr (ocultado. Texto, ".") Entonces
comprobar = True
End If
Si la prueba = False Then
astuto. Texto = "No puedo contestar esa pregunta".
End If
Inicio. Habilitado = False
restablecer. Activado = True
respuesta. Texto = astuto. Texto
pregunta. ReadOnly = True
petición. ReadOnly = True
End Sub

Private Sub reset_Click (sender como System.Object, e como System.EventArgs) manijas reset. Haga clic en
restablecer. Habilitado = False
astuto. Texto = "No puedo contestar esa pregunta".
petición. Texto = "Escriba su petición, luego presione la tecla Tab".
oculta. Texto = nada
pregunta. Texto = nada
pregunta. Habilitado = False
petición. ReadOnly = False
pregunta. ReadOnly = False
respuesta. Texto = nada
End Sub
Fin clase