mi padre y yo

mi padre y yo
¡¡¡¡igualitos!!!!

Buscar este blog

viernes, 25 de junio de 2010


ESTE PROGRAMA SE CREA MEDIANTE VISUAL BASIC.
EL OBJETIVO DE ESTE PROGRAMA ES DAR LA TABLA DE MULTIPLICAR DE CUALQUIER NUMERO SOLO AL UNDIR UN BOTON.
TAMBIEN SE LE CREA UNA OPCION EN LA CUAL AL DARLE EN EL BOTON SALIR QUE ESTA DEBAJO DEL MSGBOX APAREZCA EL MENSAJE QUE DICE "por favor confirma si ya te quiere ir".
PARA QUE FUNCIONARA CORRECTAMENTE SE INTRODUJERON VARIOS CONTROLES CON SUS RESPECTIVAS FUNCIONES.
ESTOS CONTROLES SON:
1 LABEL.
2 TEXTBOX.
3 COMMANDBUTTON
los codigos que se introducen en los controles creados son los siguientes:


El botón Ver Tabla
Private Sub Command1_Click()
Dim res As Long, retorno
For n = 1 To 10
res = Text1 * n
retorno = Chr(13) & Chr(10)
Text2 = Text2 & Text1 & " x " & n & " = " & res & retorno
Next n
End Sub
El botón Nueva Tabla
Private Sub Command2_Click ()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
El botón Salir
Private Sub Command3_Click()
If MsgBox("Por Favor Confirma Si Ya Te Quieres Ir", vbYesNo, "¿Qué Ya Te Quieres Ir?") =
vbYes Then
End
Else
Cancel = 1
End If
End Sub

No hay comentarios:

Publicar un comentario