sip tengo un texto en vb .net 2005 y un contador de numeros weno la idea es que cuando ingreso datos solo que cuente los numeros eso es facil pero cuando borro numeros tambien tiene que decrementar el contador eso tambien lo hice pero si mantengo la tecla del(retroceso) sin agregar ningun numero salta error por desbordamiento del vector de cadena y no lo puedo solucionar le valido para que sea igual o mayor a 0 y no me descuenta los numeros borrados quiero solucionar para que no me salte error al borrar sin poner un numero ._.
Código:
Public Class frmnro2
Dim cont As Integer = 0
Private Sub txt1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt1.KeyPress
Dim cad As String
Dim n As Integer
If Char.IsNumber(e.KeyChar) = True Then
cont += 1
lbl1.Text = "Numeros ingresados:" & cont
ElseIf (Asc(e.KeyChar) = 8) And (n >= 0) Then
cad = txt1.Text.ToString
n = txt1.SelectionStart()
If (Char.IsNumber(cad(n - 1)) = True) And n >= 0 Then
cont -= 1
lbl1.Text = "Numeros ingresados:" & cont
End If
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt1.TextChanged
End Sub
Private Sub frmnro2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub lbl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl1.Click
End Sub
End Class