Visual Basic - como controlar en un textbox...

Life is soft - evento anual de software empresarial
 
Vista:

como controlar en un textbox...

Publicado por malena81 (7 intervenciones) el 26/03/2003 11:06:05
Hola, estoy haciendo un proyecto. Tengo cuadros de texto para introducir un código que deseo que sea de tipo numerico solamente. Necesito saber como es posible controlar que unicamente se introduzcan numeros. Muchas gracias, espero respuestas.
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:como controlar en un textbox...

Publicado por Xavi (11 intervenciones) el 26/03/2003 12:58:01
Mira te colocas este modulo estandar y lo llamas Entrada

Function Entrada(caracter As Integer, tipo As Byte) As Integer
Dim letra As String, vocales As String
vocales = "aeiouáéíóúAEIOUÁÉÍÓÚÀÈÌÒÙàèìòùüÜ"
Entrada = caracter
letra = Chr(caracter)
If Asc(letra) = 13 Or Asc(letra) = 8 Then
Exit Function
End If
Select Case tipo
Case 1
If (letra < "0" Or letra > "9") Then
Entrada = 0
End If
Case 2
If Not Abecedario(letra, vocales) Then Entrada = 0
Case 3
If InStr(vocales, letra) = 0 Then Entrada = 0
End Select
End Function
Function Abecedario(letra As String, vocales As String) As Boolean
letra = UCase(letra)
Abecedario = (letra >= "A" And letra <= "Z") Or _
(letra = "Ñ") Or InStr(vocales, letra) <> 0
End Function

y en el evento keypress del textbox colocas esto cuando te interese

KeyAscii = Entrada(KeyAscii, 1)

si colocas un 1 solo te coje numeros, si colocas cero solo coge letras
espero te sirva
un salu2
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