| Fila A | |
|
H.U.P. que permita evaluar los días que los usuarios revisan sus correos electrónicos durante una semana. Si es de 0 ó 1 día,
contarlos; de lo contrario, si
el número de días es de 2
ó 3 generar el mensaje
“_____________________”; sino, si fueran más días mostrar una
imagen.
|
|
| Dim usuario As Integer _________________________________________ Private Sub cmdaceptar_Click() If txtdias.Text <= 1 Then usuario = usuario + 1 MsgBox ("Usuarios 0 ó 1 día :" & usuario) Else If txtdias.Text >= 2 And txtdias.Text <= 3 Then MsgBox ("Usa regularmente la de cuenta de correo") Else imgcarta.Visible = True End If End If End Sub _________________________________________ Private Sub cmdnuevo_click() txtdias.Text = "" imgcarta.Visible = False End Sub |
|