Autor Tema: Caja De Texto Numeric Con Punto Decimal (Leído 2326 veces)

Javoche · « **en:** Miércoles 20 de Julio de 2005, 06:54 »

Hola:

Para una aplicacion que estoy haciendo necesito una caja numerica, que acepte solo un punto decimal, el codigo que tengo es el sig:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If KeyAscii <> Asc(".") Then
If Text1 = "" Then
If KeyAscii < Asc("1") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
Else
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End If
End If
End If
End Sub

Agradezco su ayuda.

Soultaker

Tambien podrias usar un EditMask

toten

pana un consejo men acostunbrate a usar el tab para que la estructura de tus code se entienda mas facilmente!!! y dime que es lo que quieres o necesitas con exactitud

solcito

Como dijo Soultaker! El control se llama MaskEdBox y en las propiedades le puedes indicar el formato, es muy simple de usar!

Saludos

Bebecita

Si quieres seguir usando tu codigo agregale esta linea. En este caso solo te permite introducir en el TextBox una sola coma (,) como separador decimal

If KeyAscii = 44 And (InStr(Text1.Text, Chr(KeyAscii)) <> 0) Then KeyAscii = 0

Javoche

Muchas Gracias por sus consejos a Solcito y a Soultaker, lo que necesitaba era una Textbox normal donde se escribiera un solo punto decimal y numeros, lo del MaskEdBox ya lo había pensado, pero lo que esoty haciendo es un trabajo para mi escuela, y el profesor quería una caja de texto y no otro objeto.

Bebesita, me salvaste el pellejo, agregue tu codigo con el mio y funciono perfectamente, ahora lo muestro siguiendo los consejos de Toten en lo que respecta al Tab:

Código: Text

Private Sub TxtSalario_KeyPress(KeyAscii As Integer)
If KeyAscii &#60;&#62; 8 Then
     If KeyAscii = 46 And (InStr(TxtSalario.Text, Chr(KeyAscii)) &#60;&#62; 0) Then
            If TxtSalario = &#34;&#34; Then
                 If KeyAscsii &#60; Asc(&#34;1&#34;) Or KeyAscii &#62; Asc(&#34;9&#34;) Then
                 KeyAscii = 0
                 Beep
                 End If
            Else
                 If KeyAscii &#60; Asc(&#34;0&#34;) Or KeyAscii &#62; Asc(&#34;9&#34;) Then
                 KeyAscii = 0
                 Beep
                 End If
            End If
       End If
End If
End Sub
 

SoloCodigo

Autor Tema: Caja De Texto Numeric Con Punto Decimal (Leído 2326 veces)

Javoche

Caja De Texto Numeric Con Punto Decimal

Soultaker

Re: Caja De Texto Numeric Con Punto Decimal

toten

Re: Caja De Texto Numeric Con Punto Decimal

solcito

Re: Caja De Texto Numeric Con Punto Decimal

Bebecita

Re: Caja De Texto Numeric Con Punto Decimal

Javoche

Re: Caja De Texto Numeric Con Punto Decimal