Visual Basic - Permitir ingresar solo una coma

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 5
Ha aumentado su posición en 22 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Permitir ingresar solo una coma

Publicado por Agustin (4 intervenciones) el 06/07/2018 00:30:03
Buenas foro, necesito ayuda con un problemita.

Estoy programando una calculadora, y necesito que en el textbox (llamado text1) solo se puedan ingresar numeros, una sola como, y si se ingresa un punto se convierta en coma.

Pero para esto si o si necesito utilizar la sentencia CASE. Ya tengo la parte del codigo que me permite ingresar solo numeros, me falta lo de la coma y el punto.

Aca dejo el codigo que tengo
1
2
3
4
5
6
7
8
9
10
11
Private Sub text1_KeyPress(KeyAscii As Integer)
 
Select Case KeyAscii
 
Case 48 To 57   'Numeros
Case 8          'Borrar
Case 44         'Coma
 
End Select
 
End Sub
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
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Permitir ingresar solo una coma

Publicado por Andres Leonardo (1798 intervenciones) el 06/07/2018 15:46:05
y si utilizas un masktextbox o le das format al contenido te evitas las validaciones.
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
sin imagen de perfil
Val: 5
Ha aumentado su posición en 22 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Permitir ingresar solo una coma

Publicado por Agustin (4 intervenciones) el 06/07/2018 18:27:06
Necesito usar si o si el case
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
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Permitir ingresar solo una coma

Publicado por Andres Leonardo (1798 intervenciones) el 06/07/2018 21:52:15
Prueba esto


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub text1_KeyPress(KeyAscii As Integer)
 
Select Case KeyAscii
    Case 48 To 57   'Numeros debe permitir
        Exit Sub
    Case 8          'Borrar debe permitir
        Exit Sub
    Case 44         'Coma
        If InStr(1, Text1.Text, ",") Then
            MsgBox "si tiene "
            KeyAscii = 0
        Else
            MsgBox "No tiene "
            Exit Sub
        End If
    Case 46         'Punto
        Exit Sub
    Case Else
        KeyAscii = 0
        MsgBox "Caracter no permitido", vbCritical
End Select
Text1.Text = Replace(Text1.Text, ".", ",")
End Sub

quita los demas msgbox y solo deja las instrucciones.
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