Hola, queria pedirles ayuda con un error que me da un programa. En este ingreso una palabra, y al hacer click la desglosa en varios textbox. Pero cada letra debe ser mostrada cada un segundo (como en cámara lenta ), para eso uso un timer. Este es el error:

Código:

Public Class Form1
    Dim cont As Integer
    Dim palabraAux As String
    Dim txts() As TextBox = {TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10}
    Dim strTextbox As String
    Private Sub BotonComenzar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonComenzar.Click
        Dim cant_letras As Integer, x As Integer
        cant_letras = Len(Palabra.Text)
        If Trim(cant_letras) = 0 Then Exit Sub
        palabraAux = Palabra.Text
        For x = 0 To Len(palabraAux)
            txts(x).Text = "" 'Error: Referencia a objeto no establecida como instancia de un objeto.
        Next x
        cont = 0
        Tiempo.Enabled = True
    End Sub
    Private Sub Tiempo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tiempo.Tick
        txts(cont).Text = Mid(palabraAux, cont + 1, 1)
        cont = cont + 1
        If cont = Len(Palabra.Text) Then
            Tiempo.Enabled = False
            cont = 0
        End If
    End Sub
End Class

Espero que puedan ayudarme a corregir el error lo mas pronto que puedan, porque apenas estoy comenzando con VB.Net y no entiendo mucho :S
Desde ya gracias!

Eso ocurre porque tu apuntador (Indice) esta haciendo referencia a un objeto que no existe!!! Si tu palabra tiene 20 caracteres te marcara el error pues solo tienes 9 Textbox, tu cadena debe ser máximo de 9 caracteres y tu ciclo for debe ir de 0 a 8 o en su defecto de 0 a Len(Cadena)-1 Ammm no se si me explico pero por ahi va tu problema saludos cordiales

Iniciado por tux2003

Eso ocurre porque tu apuntador (Indice) esta haciendo referencia a un objeto que no existe!!! Si tu palabra tiene 20 caracteres te marcara el error pues solo tienes 9 Textbox, tu cadena debe ser máximo de 9 caracteres y tu ciclo for debe ir de 0 a 8 o en su defecto de 0 a Len(Cadena)-1 Ammm no se si me explico pero por ahi va tu problema saludos cordiales

Gracias por tu ayuda amigo. mira que hice lo que me dijiste, pero me da el mismo error. Emmm puse el ciclo for como me indicaste, y en la propiedad maxlenght de textbox de ingreso puse 9. Pero el error sigue :s . No se que mas hacer, me ayudas?

Saludos! y gracias otra vez

A mi me parece que tu codigo no puede funcionar de ninguna de las maneras debido a esto:

Código:

If Trim(cant_letras) = 0 Then Exit Sub

Ademas:

Código:

Private txts() As TextBox

' Constructor del formulario
Sub New()
    InitializeComponent()
    '---------------------------------------------------------------------------------------------------
    ' Iniciar la matriz 
    txts = {TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10}
    '---------------------------------------------------------------------------------------------------
End Sub

Private Sub BotonComenzar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonComenzar.Click
    
    Dim cant_letras As Integer = Palabra.Text.Trim.Length - 1
    If cant_letras < 0 OrElse cant_letras > txts.GetUpperBound(0) Then
        Exit Sub
    End If

    For x As Integer = 0 To cant_letras
    	txts(x).Text = ""
    Next

    cont = 0
    Tiempo.Enabled = True
End Sub

[QUOTE=lareost;58384]A mi me parece que tu codigo no puede funcionar de ninguna de las maneras debido a esto:

Código:

If Trim(cant_letras) = 0 Then Exit Sub

Gracias por tu ayuda "lareost"
aun no entiendo mucho de constructores y todo eso. Me lo explicaste muy bien, ya me quedo en claro el tema. Gracias otra vez!
Mis saludos para ti.