Programación General > Visual Basic para principiantes

 Ingresar un numero de 4 cifras

<< < (2/2)

Nebire:
Mmmm... a medias...


--- Código: Visual Basic ---   'Txtnu.MaxLength = 4 ' Esto puedes establecerlo en la interfaz, especialmente si su valor no cambiará...  Private Sub Txtnu_Validate(Cancel As Boolean)            Txtnu.Text = Format$(Txtnu.Text, "0###")               ' aquí me refería mas bién (además de darle formato ya que se usa como cifra) a que determines si tiene 4 y ninguna otra cantidad de caracteres       ' maxlength determina que el usuario sólo pueda introducir comio máximo 4 letras, por tanto aquí atenderemos a que no sean menos de 4, el código sería el siguiente       ' si el texto no tiene los caracteres indicados no se permite al usuario perder el foco del control... date cuenta que previamente lo hemos formateado y además le hemos pedido que a la izquierda incluya ceros si lo precisa.      if  len(Txtnu.Text ) <> Txtnu.MaxLength then               cancel=true             Cmdver.enabled=false     else          Cmdver.enabled= true     end if   End Sub  
Por tanto si ya hemos filtrado el texto y estamos seguros que tiene 4 caracteres, dicha comprobación resulta redundante... ya que en el mismo, aseguramos de activar o desactivar el botón. Dicho botón debe estar desactivado al iniciarse la aplicación, sólo cuando se introduzca un texto 'válidado' se activa.


--- Código: Visual Basic ---  Private Sub Cmdver_Click()    Dim nu As Integer, extre As Integer, cent As Integer, cart As Integer, i As Integer, suma As Integer, extre1 As Integer, extre2 As Integer, total As Integer  ' aquí sobra la comprobación de 4 cifras, ya se hizo en el validate, necesario para poder activar el botón....nu = Val(Txtnu.Text)   extre1 = Left(nu, 1)   extre2 = Right(nu, 1)   cent = Mid(nu, 2, 2) .....  ect...  

Navegación

[0] Índice de Mensajes

[*] Página Anterior