Notifications
Clear all

Como criar campo TextBox em tempo de execução?

7 Posts
1 Usuários
0 Reactions
1,502 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Se o usuário digitar 4 no campo Qtd Meses o sistema tem que mostrar 4 TextBox com os meses progressivo ao campo Mês/Ano Inicio.... se digitar 10 tem q mostrar 10 TextBox.

Exemplo:
Mês/Ano Inicio: Fev/2012
Qtd Meses: 5

Fev/2012
Mar/2012
Abril/2012
Mai/2012
Jun/2012

Segue anexo, Imagem e Planilha.

 
Postado : 11/01/2012 6:19 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Cara,
Esse lance que você quer é bem complexo, de criar em tempo de execução.

em anexo tem uma opção que indicaria, da uma sacada no meu exemplo, acho que ajuda.

Usei apenas o formulário principal em outro excel, pois o seu arquivo estava dando uns erros.

 
Postado : 11/01/2012 6:48 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Muito obrigado!
Deu certo aqui... :D

O problema dos mêses Jan/2011 e continua Jan/2011 Fev/2011 assim por diante.
Acredito que essa solução pode da erro!

 
Postado : 11/01/2012 6:52 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Cara o que você vai precisar ai é

Pegar o valor da comboxbox Mês inicial Exemplo Fev.

Ai vc joga esse valor ( data ) da primeira textbox

ai faz um calculo nas outras tipo a data de cima + 30 ai ele vai preencher com os outros meses.

Não fiz aqui mas acho que daria certo.

 
Postado : 11/01/2012 6:59 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pesquisando no Forum temos :

Em Bibliotecas exemplos que provavelmente possam ajudar :
Adicionando Controle a Formulário Em Tempo de Execução
viewtopic.php?f=21&t=1931

E no Tópico abaixo tambem temos outros exemplos :
inserir controle em tempo de execução
viewtopic.php?f=10&t=2858&p=12873#p12873

[]s

 
Postado : 11/01/2012 8:19 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pegar o valor da comboxbox Mês inicial Exemplo Fev.
Ai vc joga esse valor ( data ) da primeira textbox
ai faz um calculo nas outras tipo a data de cima + 30 ai ele vai preencher com os outros meses.
Não fiz aqui mas acho que daria certo.

Caio,

Tentei fazer 100x de vezes e não tive sucesso com essa lógica...

if (DataMesAno = "Janeiro" and QtdMeses = "12")

txtPrimeiro.Value = "Jan"
txtSegundo.Value = "Fev"
txtTerceiro.Value = "Mar"
txtQuarto.Value = "Dez"
...

else if if (DataMesAno = "Fevereiro" and QtdMeses = "2")

txtSegundo.Value = "Fev"
txtTerceiro.Value = "Mar"

Assim por diante!
Estou com a cabeça quente com isso doutor, se poder da uma força.

Obrigado
Um grande abraço!

 
Postado : 11/01/2012 1:32 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

If Mes.Text = "01" & QtdMes.Text = "12" Then

txtPrimeiroMes.Text = "Janeiro"
txtSegundoMes.Text = "Fev"
txtTerceiroMes.Text = "Mar"

Eu alterei o campo Mes/Ano Inicio para Mês: então agora recebe em campos separados...
Veja no print.

 
Postado : 11/01/2012 2:04 pm