Visual Basic - boolean

Life is soft - evento anual de software empresarial
 
Vista:

boolean

Publicado por Mirta (10 intervenciones) el 21/09/2009 22:51:41
Gracias por ayudarme.
Necesito crear una función ValidoDto que verifique si se ha ingresado un valor numérico en un textBox, de ser así la función debe devolver el valor booleano Verdadero, de lo contrario Falso. Esta función la debo utilizar en un botón. Si devuelve Verdadero se realiza un descuento caso contrario muestra un mensaje indicando que el valor ingresado no es un número.
También debo validar los valores ingresados en dos TextBox que deben ser numéricos para poder realizar un cálculo.
Desde ya muchas gracias, Mirta
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:boolean

Publicado por juan carlos (518 intervenciones) el 22/09/2009 06:00:44
espero te sirva esto Mirta, es para que los textbox no admitan letras

Function numeros(Tecla As Integer) As Integer
Dim strValido As String
strValido = "0123456789"
If Tecla > 26 Then
If InStr(strValido, Chr(Tecla)) = 0 Then
Tecla = 0
End If
End If
numeros = Tecla
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = numeros(KeyAscii)
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = numeros(KeyAscii)
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:boolean

Publicado por mirta (10 intervenciones) el 22/09/2009 06:12:00
gracias Juan muy agradecida
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar