Site hosted by Angelfire.com: Build your free website today!
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

Volver a la Página Principal