Autor Tema: No se porque aparece este error... (Leído 3447 veces)

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

Public Class Form1
 
    Private Sub LlenarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LlenarToolStripMenuItem.Click
        Dim b As Integer
        Dim i As Integer
        Dim c As Integer
 
        Dim a() As Integer
 
        b = TextBox1.Text
        ReDim a(b)
        For i = 1 To b
            a(i) = InputBox("Ingrese Datos")
 
            c = a(i)
            TextBox2.Text = TextBox2.Text & c
        Next
    End Sub
End Class
 
 

y me aparece un error que dice:

InvalidCastException was unhandled

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

Gracias.

Nebire

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"))

SoloCodigo

Autor Tema: No se porque aparece este error... (Leído 3447 veces)

Jesmi89

No se porque aparece este error...

Nebire

Re: No se porque aparece este error...