Solo Numeros y Punto Decimal

[crow78]

No me funciona el motor de busqueda en el foro...no me muestra nada
asi que escribo mi pregunta....como permitir que un text acepte solo numeros...y el punto decimal....
saludos.... probe los ejemplos que encontre...pero no funcionan...
veran tengo tres text's


Importe text1.text
Iva text2.text
Total text3.text

al cargar estan en cero...programe su propiedad el evento change cuando cambia el primero...pues automaticamente me muestre el resultado....y si cambia el segundo...lo vuelva a mostrar....pero si meto una letra pues ya sabran....

saludos...

[GeoAvila]

en las faq's hay un ejemplo para que un textbox acepto solo numeros, el punto es el ascii = 46 nos vemos..

[black_devil]

Para aceptar sólo números

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Not IsNumeric("0" & this & Chr(KeyAscii)) Then
Beep
KeyAscii = 0
End If
End If
End Sub

Para convertir tu texto con decimal:

Código:

Private Sub Text1_Validate(Cancel As Boolean)
Text1.text = Format(Text1.text,"#,##0.0")
End Sub

En formato moneda:

Código:

Text1.text = Format(Text1.text,"$#,##0.0")

Después del 0. agregas los decimales que quieres mostrar, por ej. $1000,0
la idea es que cuando presiones enter, se transforme tu resultado ...

Ojo, para que trabajes con enter coloca esto en el evento del FORM

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{tab}"
End Sub

y en la propiedad KeyPreview del FORM déjalo en True para que trabajes con enter...


Saludos

[crow78]

Agrdezco sus comentarios....solucione el problema....
de la siguiente manera:

Private Sub Text9_KeyPress(KeyAscii As Integer)
Dim Tot1 As Double
Dim tot2 As Double
Dim tot3 As Double
Dim tot4 As Double
If ((KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii < 44 Or KeyAscii > 46)) Then
If (KeyAscii <> 8) Then KeyAscii = 0
If Text9.Text = "" Then
Text9.Text = 0
End If
If (Text12.Text = 0) Then
' Multiplico en importe por el IVA
Tot1 = Text10.Text * Text9.Text
'limito a dos decimales el resultado
tot2 = Round(Tot1, 2)
Text14.Text = tot2
'Sumo el IVA obetnido con dos decimales al importe...
tot3 = tot2 + Text9.Text
tot4 = Round(tot3, 2)
Text11.Text = tot4
End If
End If
End Sub

No se si sea lo correcto pero funciona....acepto cambios

[elsaky]

otra opcion

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
ElseIf KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End If
End Sub

saludos

[JoxeDuke12]

este codigo te permite solo escribir numeros el punto y borrar si queres q se ejecute algo le preguntas si el KeyAscii = 13 y si si es le colocas el codigo ay, el KeyAscii =13 equivale a enter

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 47 And KeyAscii < 58 Or KeyAscii = 46 Or KeyAscii = 8 Then

Else
KeyAscii = 0
End If
if KeyAscii =13 then
'codigo q se desea ejecutar
else
'pues nada
end if
End Sub

[jorevale]

Public Function SoloNumeros(ByVal KeyAscii As Integer) As Integer
If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
If InStr("0123456789.,-", Chr(KeyAscii)) = 0 Then
SoloNumeros = 0
Beep
Else
SoloNumeros = KeyAscii
End If
If KeyAscii = 8 Then SoloNumeros = KeyAscii
End Function