COMO USAR ESTRUTURA DE REPETICAO NO OBJETO TEXTBOX

SKILLERSKL 31/05/2012 19:37:58
#403306
Fala ai galera, meu problema é o seguinte.. to criando um programa de digitação e em cada exerdcicio tem 36 textbox[ô]s mas o problema é que o codigo para cada textbox é o mesmo só que tenho que alternar a texbox. tem como criar um for para trocar de texbox? Se tiver outro jeito tbm fala ae!


Valeu !
TECLA 31/05/2012 22:36:46
#403314
Criar TextBox em Run-time
Dim txt(8) As TextBox, y As Integer = 10
        For i As Integer = 0 To 7
            txt(i) = New TextBox
            txt(i).Name = [Ô]txtRandom[Ô] & i.ToString()
            txt(i).Text = [Ô]txtRandom[Ô] & i.ToString()
            txt(i).Location = New System.Drawing.Point(200, y)
            txt(i).Size = New System.Drawing.Size(100, 20)
            Me.Controls.Add(txt(i))
            y += 30
        Next i


Manipular um dos controles criados previamente
For Each txt As Control In Me.Controls
            If TypeOf (txt) Is TextBox Then
                If txt.Name.Equals([Ô]txtRandom4[Ô]) Then
                    txt.Text = [Ô]POnLine[Ô]
                End If
            End If
        Next
LULUFAN12 01/06/2012 14:46:03
#403339
Estamos no msm projeto e vou postar o código aki em baixo...
Esse foi a forma q conseguimos fazer alguma coisa.


Select Case pular
Case 1
If txt1.Text <> [Ô]a[Ô] Then
txt1.Text = [Ô][Ô]
Else
pular = pular + 1
End If
Case 2
If txt1.Text <> [Ô]as[Ô] Then
txt1.Text = [Ô]a[Ô]
txt1.SelectionStart = 1
erros = erros + 1
Else
pular = pular + 1
End If
Case 3
If txt1.Text <> [Ô]asd[Ô] Then
txt1.Text = [Ô]as[Ô]
txt1.SelectionStart = 2
erros = erros + 1
Else
pular = pular + 1
End If
Case 4
If txt1.Text <> [Ô]asdf[Ô] Then
txt1.Text = [Ô]asd[Ô]
txt1.SelectionStart = 3
erros = erros + 1
Else
pular = pular + 1
End If
Case 5
If txt1.Text <> [Ô]asdfg[Ô] Then
txt1.Text = [Ô]asdf[Ô]
txt1.SelectionStart = 4
erros = erros + 1
Else
pular = pular + 1
End If
Case 6
If txt1.Text <> [Ô]asdfg [Ô] Then
txt1.Text = [Ô]asdfg[Ô]
txt1.SelectionStart = 5
erros = erros + 1
Else
pular = pular + 1
End If
End Select
Label2.Text = erros / 2
If pular = 7 Then
txt1.Enabled = False
txt2.Focus()
pular = 1
End If

esse é o codigo que está na txt1.
como podemos fazer para que esse codigo
alterne nas proximas txtbox.???
Tópico encerrado , respostas não são mais permitidas
Voltar