***text numerico con 2 decimales***

mira esto que te paso.. creo que no es lo mejor..
pero ya que nadie te contesta tu insistente pregunta..
crea un proyecto nuevo
agrega un textbox que se llamara textbox1

luego pega este codigo.. ojo son dos eventos..
a ver si funciona como queres..

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox1.TextChanged

If Val(Me.TextBox1.Text) = 0 Then

Me.TextBox1.Text = ""

Else

Dim intPosicion As Integer = Me.TextBox1.SelectionStart

Me.TextBox1.Text = Format(Val(Me.TextBox1.Text), "##0.00")

Me.TextBox1.SelectionStart = intPosicion

End If

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

Dim Caracter As Char

Try '

If Asc(e.KeyChar) = Keys.Back Then

e.Handled = False

Exit Sub

End If



If e.KeyChar = "." Then

e.Handled = False

If InStr(Me.TextBox1.Text, ".") > 0 Then

Me.TextBox1.SelectionStart = Me.TextBox1.Text.Length - 2

e.Handled = True

End If

Exit Sub

End If



'el codigo ascii del backspace es el 8

'convertir el caracter escrito en el texbox a caracter

Caracter = Convert.ToChar(e.KeyChar)

'si es un digito

If Not Char.IsDigit(Caracter) Then

e.Handled = True

Exit Sub

End If

Catch ex As Exception

Debug.WriteLine(ex.ToString)

End Try

End Sub








"Richard" wrote in message
news:

Estimados(as). He posteado varias veces este mensaje pero no encuentro la
ayuda para el caso. Por lo cual recurro de nuevo a la consulta.
Como hacer un text numerico con 2 decimales y al pulsar el . decimal el
cursor se desplace hacia los decimales.
U otra sugerencia que tengan.

Gracias de antemano.
RV