Site hosted by Angelfire.com: Build your free website today!
Fila C

H.U.P. que permita calcular el pago a realizar en un comercio.

Si  éste es menor a 100 dólares mostrar una imagen; de lo contrario, si es mayor evaluar si el pago es con tarjeta de crédito. De ser así hacer emitir el mensaje “Pago con tarjeta de crédito”; de lo contrario el mensaje será “Pago en efectivo”.

Private Sub cmdaceptar_Click()
  If txtpago.Text < 100 Then
     imgcara.Visible = True
     Else

        If cbotipodepago.Text = "tarjeta" Then
            MsgBox ("Pago con tarjeta")
         Else
             MsgBox ("Pago en efectivo")
        End If

  End If
End Sub
______________________________________________
Private Sub cmdnuevo_click()
txtpago.Text = ""
imgcara.Visible = False
cbotipodepago.Text = "Elige tipo de pago"
End Sub

Volver a la Página Principal