Paso 8: Codificación, parte III
El resto del código sólo puede copiar desde aquí. Sólo tiene que ver con Cuándo se convierten en activan los botones y cómo aparece la respuesta, pero es bastante autoexplicativo.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
