tratando de hacer el juego de ahorcado

[rikimm]

si como veran estoy haciendo ese sencillo juego pero que ma da vueltas en un solo problema estoy utilizando un lista donde tengo las palabras esas palabras las seleciono con un rando de ahi lo mando a una caja de texto para hacer con un for saber el indicide y letra que es y todo funciona con las condiciones que pongo que si una caja de texto(me refiero a la letra que esta escrita ) es igual a una de las letras me aparesca la letra en otra caja de texto el problema qu etengo consiste en que si se repite esa letra como que no cumple la condicion y no me la pone en la caja de texto por decirlo asi tengo al palabra solo de esa palabra me aparecen en sus respectivas cajas de testo hasta la letra l la ultima o no me la pone y no entiendo el porque ya le busque ya la analize y no doy mas dejo mi codigo

Código vb2008:

private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rest, letra As String
        Dim x As Integer
        Dim y As String
 
        rest = TextBox5.Text
        letra = TextBox6.Text
        For x = 0 To rest.Length - 1
            MessageBox.Show(rest(x))
            If rest.Substring(x, 1) = TextBox5.Text(0) Then
                TextBox1.Text = rest(x)
            ElseIf rest.Substring(x, 1) = TextBox5.Text(1) Then
                TextBox2.Text = rest(x)
            ElseIf rest.Substring(x, 1) = TextBox5.Text(2) Then
                TextBox3.Text = rest(x)
            Else
                TextBox4.Text = rest(x)
 
            End If
        Next x
 

este es donde esta el random

Código vb2008:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rand As New Random
 nume = rand.Next(0, 4)
        x = ListBox1.Items(nume)
        TextBox5.Text = x
 

[gedarufi]

Asi por encima creo que deberías de estar haciendo la comparación con la variable letra y no con TextBox5, otra cosa que se me ocurre es utilizar IndexOf y Replace en lugar de SubString.

Saludos

[rikimm]

de hecho si no es con el textbox 5 perdon seria con la variable letra creo q copie mal el codigo pero aunq lo ponga con la variable letra no me funciona no logro hacerlo y porque sustituir el substring por el indexof que es lo que hace el indexof

[gedarufi]

Si quieres pon el código completo y yo le doy una mirada.

Saludos

[rikimm]

de hecho el codigo original es el q pusi al princiopio solo que en la condicion que pus al principio es este

Código vb2008:

If letra = rest(0) Then
                TextBox1.Text = TextBox5.Text(0)
            ElseIf letra = rest(1) Then
                TextBox2.Text = TextBox5.Text(1)
            ElseIf letra = rest(2) Then
                TextBox3.Text = TextBox5.Text(2)
            ElseIf letra = rest(3) Then
                TextBox4.Text = TextBox5.Text(3)
             End If
 

[gedarufi]

Listo, pero necesito que me pongas en contexto, que almacena Text1, Text2, etc???

[rikimm]

lo que hacen esas caja de texto es que si si son iguales las letras las muestra en cada cajada de texto que corresponden