Notifications
Clear all

inserir controle em tempo de execução

47 Posts
1 Usuários
0 Reactions
10.7 K Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá a todos !!!
seguinte galera tentei buscar outros recursos mas assim meu sistema fica mais profissa...
Preciso de um codigo que conte os equipamentos dentro da frota selecionada no combo box e insira um label com o caption com o nome do equipamento e um textbox para receber as informações para cada equipamento...
Isso sera mais um salto no meu aprendizado...
Conto com vcs...

Anexo Atualizado em 06/09/2014

 
Postado : 23/11/2011 1:05 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Anderson... ainda não abri seu arquivo, mas veja se este tópico ajuda...

viewtopic.php?f=21&t=1931&p=7776#p7776

 
Postado : 23/11/2011 5:57 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Então Edson tudo BLZ?
Olha só já vi esse post e agora mais a noite fiz um modelo baseado nele, inclusive ele ta corrompido vou postar ele lá pra manter o modelo...
Então tenho 2 pro aqui
1quando carrego uma frota grande por exempo 793D que tem 20 equipamentos beleza, mas quando carrego uma nova frota menor os textbox e label dos equipamentos da frota anterior continuam precisava mata-los sempre queo combo box carregasse
2 preciso preencher os textbox e depois enviar para a plan e não sei com fazer referencia a eles...

Anexo Atualizado em 06/09/2014

 
Postado : 23/11/2011 7:59 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Consegui resolver a questão de "matar" os controle inserindo em um novo formulario não é o ideal mas ajuda, porem não faço a menor ideia de como inserir os dados dos textbox na planilha não sei o nome que eles recebem', fiz alguns testes mas sem resultado...

Anexo Atualizado em 06/09/2014

 
Postado : 24/11/2011 4:23 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Anderson, antes de sugerir o tópico, subi o arquivo novamente...

 
Postado : 24/11/2011 6:30 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Anderson, segue o exemplo adaptado em um único Formulário, adicionei as rotinas para Remover os Controles antes de criar os Novos, e lançar os dados dos Textbox na planilha.

No Evento Change do Combo adicionei somente a chamada a rotina que remove os controles antes e uma msgbox que exibe o nome de cada controle do tipo Textbox que é criado, depois apague, é só para melhor entendimento.
Os Botões que acrescentei, exceto o de Lançar na Planilha os outros conteem as rotinas separadas, tambem com a intensão de melhor entendere o código caso queira rodar separado utilizando a ttecla "F8".

Anexo Atualizado em 06/09/2014

Veja se está Funcional, e apesar de anexar o modelo aqui, pediria a sua permissão para anexa-la em "Biblioteca", assim teríamos mais um exemplo.

Veja um outro exemplo que anexei, onde não temos o formulário e o mesmo é criado desde o inico com vários controles.
viewtopic.php?f=21&t=1931&p=12943#p12943

Teste e qualquer duvida, retorne.

[]s

 
Postado : 24/11/2011 8:40 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Edson VLW!!
Comojá tinha pesquisado antes e vi que tava corrompido não tive o cuidado de conferir.
Mauro Show !!!
Fica a vontade para disponibilizar em qualquer lugar...
Galera VLW :lol: :lol: :lol:

 
Postado : 25/11/2011 5:29 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Fiz umas mudanças no modelo, no meu sistema vai ficar bem diferente mas a base é a mesma.
Achei que seria interessante um frame com scrollbar auto ajustavel e inserir na plan2.
bom ve ai e da uma opinião... :D

Anexo Atualizado em 06/09/2014

 
Postado : 25/11/2011 8:51 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Vcs poderiam me explicar como devo tratar os comandos inseridos?
Por exemplo:
Com insiroo evento click nos labels?

 
Postado : 28/11/2011 6:08 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Anderson, a Fonte que colquei no Tópico Biblioteca referente a "Criar Controles em Tempo de Execução", tem uma rotina que cria vários controles, entre eles os "checkbox", e se reparar na rotina, mais abaixo tem as instruções que criam os Eventos quando os mesmos forem Selecionados (clicados), seria o caso de adaptar esta parte para os controles Label(s)

http://www.tek-tips.com/faqs.cfm?fid=5757
'Create Event Handler Code For Each Check Box

[]s

 
Postado : 28/11/2011 6:15 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mauro naveguei pelo site e achei muita coisa interessante mas não entendi aquele codigo.
Estou tentando adaptar um codigo de array de botões que vc me passou a algum tempo mas não ta funcionando tambem.
To começando a estudar classes e to perdido.... :cry: :cry: :cry:

 
Postado : 29/11/2011 7:41 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

@ Mauro Coutinho,
achei muito massa esse lance de criar os componentes, me surgiu a ideia de criar um questionário diâmico, até li o artigo anterior porém não compreendi muito bem como inserir um evento em um objeto criado.

O anexo tem um exemplo, gostaria que ao clicar no checkbox ele me retornace o a caption desse checkbox ou se ele está true ou false, você poderia fazer um exemplo?.

Anexo Atualizado em 06/09/2014

 
Postado : 17/01/2012 12:14 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Caio, conforme solicitado em PVT, veja se seria isto:

Inseri um modulo de Classe para podermos lidar com Controles em Tempo de Execução:
Usando o Evento : WithEvents

Adaptado do site:
http://j-walk.com/ss/excel/tips/tip44.htm

Não cheguei a analizar todas as suas rotinas, só adaptei a implementação dos CheckBox.

Anexo Atualizado em 06/09/2014
Questionário Dinâmico_Mauro

Qualquer duvida retorne.

Mauro Coutinho

 
Postado : 17/01/2012 10:26 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mauro,
Tenho uma ultima dúvida em relação a isso.

Imagina que listo 10 opções onde cada opção possui uma pontuação que totalizam 100% , ou seja, se eu clicar em uma das opções ele soma ao total o peso dessa alternativa.

Uma lógica do tipo:
se a opção1 for = true então pega o peso dela e soma ao total
se não o valor é zero.

Como seria a lógica para criação desses pesos?, tinha pensado em colocar o peso na própria caption só que não é possível, pois na caption vai o conteúdo da opção.

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

Caio, você está se referindo ao exemplo que anexei ?

A opção1 se refere aos CheckBox ? ou a outro controle ?

Dependendo, podemos criar um Select Case para as opções, se for utilizar os CheckBox, ficaria mais ou menos assim :

Adicione um TextBox ao formulário e renomeie para "txtTotal"
Adicione a seguinte Variavel no Modulo de Classe : Dim sValor

Na rotina Private Sub CheckBoxGroup_Click(), adicione as linhas :
sValor = CheckBoxGroup.Caption
Call Somar

Sub Somar()

    If CheckBoxGroup.Value = False Then
        UserForm1.txtTotal.Value = 0
        
        Exit Sub
        
    End If
    
    Select Case sValor
    
        Case "Pergunta 1"
            UserForm1.txtTotal.Value = 100 + 10
            
        Case "Pergunta 2"
            UserForm1.txtTotal.Value = 100 + 20
        
        Case "Pergunta 3"
            UserForm1.txtTotal.Value = 100 + 30
            
        Case "Pergunta 4"
            UserForm1.txtTotal.Value = 100 + 40
            
        Case Else
        
        End Select
    
End Sub

Fiz meio na pressa, se for isto, faltará definirmos se o Total mudadará com as alternações dos Falso e Verdadeiros quando selecionado mais de um checkbox.

[]s

 
Postado : 24/01/2012 1:50 pm
Página 1 / 4