SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Jesmi89 en Jueves 23 de Octubre de 2008, 22:59

Título: No se porque aparece este error...
Publicado por: Jesmi89 en Jueves 23 de Octubre de 2008, 22:59
Hola, lo que pasa es que estoy haciendo este pequeño codigo, pero no se porque al momento de ejecutarlo me aparece el siguiente error:

Código: Text
  1. Public Class Form1
  2.  
  3.     Private Sub LlenarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LlenarToolStripMenuItem.Click
  4.         Dim b As Integer
  5.         Dim i As Integer
  6.         Dim c As Integer
  7.  
  8.         Dim a() As Integer
  9.  
  10.         b = TextBox1.Text
  11.         ReDim a(b)
  12.         For i = 1 To b
  13.             a(i) = InputBox("Ingrese Datos")
  14.  
  15.             c = a(i)
  16.             TextBox2.Text = TextBox2.Text & c
  17.         Next
  18.     End Sub
  19. End Class
  20.  
  21.  


y me aparece un error que dice:

InvalidCastException was unhandled

La conversion de la cadena "" en el tipo 'integer' no es válida

Gracias. :(
Título: Re: No se porque aparece este error...
Publicado por: Nebire en Domingo 26 de Octubre de 2008, 00:00
Tienes un cacao impresionante convirtiendo cadenas a valor y valor a texto... esto en VB6 era completamente normal, pero vb2005 no le gusta...

cuando vayas a pasar el contenido de una cadena a una variable numérica acostúmbrate a usarla en la forma

numero= Cint(cadena) : numero= Cint("texto")   ' si es un valor entero lo esperado, si fuera byte Cbyte(...), etc...

y cuando vayas a convertir de número a texto usa:

cadena= Cstr(numero)

El error posiblemente te aparezca en 'TextBox2.Text = TextBox2.Text & c'  si es u7na concatenación de caracteres hazlo así:
TextBox2.Text = TextBox2.Text & Cstr(c) y ya de paso cambia también... la línea 'a(i) = InputBox("Ingrese Datos")' por:  a(i) =cint( InputBox("Ingrese Datos"))