Visual Basic 2 password y calculadora

 1. password

En este tema aprendimos a modificar las propiedades de los objetos para poder formar un formulario en el cual te pidiera una clave para poder accesar a la siguiente página.

2. calculadora

Para esta práctica investigamos como hacer una calculadora en Visual Basic.

Asi fue como nosotros lo realizamos.

Programación de la calculadora:
Private Sub cmdsumar_Click ( )
txtresultado = Val (txtcantidad) + Val (txtcantidad2)
End Sub

Private Sub cmddividir_Click ( )
If txtcantidad2.Text = 0 Then
MsgBox "operación invalida", vbCritical, "información"
txtcantidad2. Text = " "
Else
txtresultado = Val (txtcantidad) / Val (txtcantidad2)
End If
End Sub

¿Cómo se valida un textbox para que acepte solo números?

Private Sub Text1_KeyPress (KeyAscii as Integer)
Strvalid = "1234567890"
KeyAscii = Asc (Chr (KeyAscii))
If (KeyAscii > 10) Then
If InStr (strvalid, Chr (KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub