Jump to content
davidquelhas@hotmail.com

Ciclo para inserir TextBox

Recommended Posts

davidquelhas@hotmail.com

Boas

Tenho um trabalho onde queria fazer um ciclo. É assim tenho uma TextBox onde insiro uma tarefa, e um botton e eu ao clicar nesse buton queria que me adiciona-se outra tarefa, ou, seja inseria-me outra TextBox, resumindo quantas vezes clicar no button, insere-me sempre uma textBox (tarefa nova).

Share this post


Link to post
Share on other sites
herty

Isso não é um ciclo, mas sim no evento onclick() fazes um new TextBox.

Qualquer coisa parecida com isto dentro do envento.

Set obj = Me.Controls.Add("VB.TextBox", "CaixaTexto")

obj.Top = 50
obj.Left = 50
obj.Height = 375
obj.Visible = True

p.s:Codigo não testado apenas vi na net xD

Share this post


Link to post
Share on other sites
Andrepereira9

boas

Dim txtBox As New TextBox()

        With txtBox
            .Text = "TextBox1"
            .Location = New System.Drawing.Point(10, 25)
            .Size() = New System.Drawing.Size(70, 20)
        End With

        With Me.Controls
            .Add(txtBox)
        End With


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
davidquelhas@hotmail.com

Antes de mais obrigado pessoal pela ajuda

falta um promenor, eu ao clicar no botão insere uma textbox, mas só me insere uma vez, não faz um ciclo, ou provavelmente insere mas a sua localização é sempre a mesma isso faz com que aparece um em cima do outo

Share this post


Link to post
Share on other sites
herty

onde tens

.Location = New System.Drawing.Point(10, 25)
.Size() = New System.Drawing.Size(70, 20)

os numeros tem de ser variaveis, que cada vem que carregues aunmentao, para criares noutro sitio:

algo como

.Location = New System.Drawing.Point(x, 25)
.Size() = New System.Drawing.Size(70, x+10)
x=x+10

espero ajudar

Share this post


Link to post
Share on other sites
davidquelhas@hotmail.com

o meu código é este

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        Dim txtBox As New TextBox()

        With txtBox
            .Text = "TextBox1"
            '.Location = New System.Drawing.Point(50, 200)
            '.Size() = New System.Drawing.Size(70, 20)
            '.Location = New System.Drawing.Point(10, 25)
            '.Size() = New System.Drawing.Size(70, 20)
            .Location = New System.Drawing.Point(x, 25)
            .Size() = New System.Drawing.Size(70, x + 10)
            x = x + 1
        End With

        With Me.Controls
            .Add(txtBox)
        End With

    End Sub

só insere uma vez

Share this post


Link to post
Share on other sites
Andrepereira9

boas

1º ele mete um textbox sempre que carregas no botão. Apenas esta a por no mesmo sitio, porque estás a declarar a variavel x, quando carregas no botão, logo o valor de x vai ser sempre 0. Mete a declaração da variavel fora do evento do botão

2º  em vez de incrementares o x em 1, experimenta em pelo menos 70, que é o tamanho do textbox


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
davidquelhas@hotmail.com

O problema está resolvido, existe é um promenor eu no meu form tenho um tabcontrol e ao clicar no button que esta dentro do tabcontrol insere-me o textbox sempre fora do tabcontrol ou por tras do mesmo a medida que eu enserir as textboxs, eu queria que enseri-se lá dentro.

Dim txtBox As New TextBox()

       With txtBox
           txtBox.BackColor = Color.Gold
           '.Text = ""
           'txtBox.Location = New System.Drawing.Point(x, 100)
           txtBox.Location = New System.Drawing.Point(50, x)
           .Size() = New System.Drawing.Size(70, x + 10)
           x = x + 30

       End With

       With Me.Controls
           .Add(txtBox)
       End With

É este o meu código

Share this post


Link to post
Share on other sites
Andrepereira9

boas onde tens

With Me.Controls
   .Add(txtBox)
End With

metes o nome da paginaTab

With TabPage1.Controls
   .Add(txtBox)
End With


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
davidquelhas@hotmail.com

Obrigado Andreia pela ajuda,

Já tá a funcionar

Posto aqui o Código:

 '//Declaração de Variáveis;
       'Textbox;
       Dim txtBox As New TextBox()
       'Label;
       Dim label As New Label

       '//Inicio do Ciclo While;
       With label
           'Texto do "Label";
           label.Text = "Tarefa"
           'Localização do "Label";
           label.Location = New System.Drawing.Point(10, y)
           txtBox.BackColor = Color.Gold
           txtBox.Size = New System.Drawing.Size(200, x + 0)
           txtBox.Location = New System.Drawing.Point(100, x)
           ToolTip1.SetToolTip(txtBox, "Intruduza a Tarefa a Planear...")
           Button3.Visible = True
           Button3.Location = New System.Drawing.Point(315, b)
           'Espaçamento para baixo;
           y = y + 50
           x = x + 50
           b = b + 50
           'Dentro do "TabControl", adiciona "Label", "TextBox", "Button3";
           TabPage1.Controls.Add(label)
           TabPage1.Controls.Add(txtBox)
           TabPage1.Controls.Add(Button3)
       End With
       '//Fim do Ciclo While;

Share this post


Link to post
Share on other sites
davidquelhas@hotmail.com

Agora apareceu-me um problema, eu insiro uma nova tarefa, ao inserir o button da tarefa anterior desaparece sempre, ficando somente visivel o button da nova tarefa.

Share this post


Link to post
Share on other sites
davidquelhas@hotmail.com

Este Button3 referido acima é um button que eu criei já com Backgroudimage. Por isso é que o chamo, porque se criar um, não sei aplicar-lhe a Backgroudimage nem faze-lo abrir outro form.

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.