Jump to content
sAnt0s98

Carregar diferentes textbox num ciclo for

Recommended Posts

sAnt0s98

Tendo varias textbox num form como posso fazer algo do tipo num ciclo for  (for j as integer = 1 to x ) textbox(x).text = textbox1.text ?? 

obg.

Share this post


Link to post
Share on other sites
ribeiro55

Olá sAnt0s98.

Podes fazer referências das ditas cujas para dentro de um array, ou podes percorrer o Me.Controls do form, filtrando por textboxes e comparando os nomes.

  • Vote 1

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
sAnt0s98
6 minutos atrás, ribeiro55 disse:

Olá sAnt0s98.

Podes fazer referências das ditas cujas para dentro de um array, ou podes percorrer o Me.Controls do form, filtrando por textboxes e comparando os nomes.

Não sei como faço nem de uma maneira nem da outra :/, nao sei como se cria um array sequer n sei as sintaxes.

Share this post


Link to post
Share on other sites
carlos sousa 2015
1 hora atrás, sAnt0s98 disse:

Tendo varias textbox num form como posso fazer algo do tipo num ciclo for  (for j as integer = 1 to x ) textbox(x).text = textbox1.text ?? 

obg.

Para listar os controlos aqui vai o ciclo:

 

For Each c As Control In Me.Controls
    If c.GetType Is GetType(TextBox) Then
        ' escrever o que queres fazer if (c.Text='qq coisa'....
    End If
Next

 

  • Vote 1

Share this post


Link to post
Share on other sites
sAnt0s98
18 minutos atrás, carlos sousa 2015 disse:

Para listar os controlos aqui vai o ciclo:

 


For Each c As Control In Me.Controls
    If c.GetType Is GetType(TextBox) Then
        ' escrever o que queres fazer if (c.Text='qq coisa'....
    End If
Next

 

 Dim x As Integer 
 Dim j As Integer 
x = Tb_alunosBindingSource.Count
        Tb_alunosBindingSource.MoveFirst()
        For g As Integer = 1 To x
            If TurmaTextBox1.Text = ComboBox1.Text And ProfessorTextBox1.Text = ComboBox3.Text And DisciplinaTextBox1.Text = ComboBox4.Text And AnoletivoTextBox1.Text = ComboBox2.Text Then
        j=j+1                
        TextBox(j).Text = TurmaTextBox1.Text
            End If
            Tb_alunosBindingSource.MoveNext()
        Next

 

Eu queria que a parte da textbox(j).text funciona-se, como n é possivel fazer assim, como aplico esse ciclo ao meu ciclo ? sry pela nobice 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.