Inserir Nova TextBox  [Resolvido]

Text Box, Form's, rotinas, etc.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Inserir Nova TextBox

Mensagempor sumoner80 » Sex Mai 22, 2020 10:21 am

Olá Bom Dia !

Então, estou criando um formulário e nele Quero colocar um botão de Adicionar nova textbox pra quando o Usuário tiver a necessidade de adicionar mais informações ele possa adicionar uma nova textbox no formulário ou excluir. pórem pesquisei em vários fóruns e não encontrei nada a respeito. e fiquei com uma dúvida de que talvez não seja possível. se alguém puder me ajudar ou souber onde posso encontrar um tópico á respeito.
desde já muito obrigado !!
"No que diz respeito ao empenho, ao compromisso, ao esforço, à dedicação, não existe meio termo. Ou você faz uma coisa bem feita ou não faz..." - Ayrton Senna
Avatar do usuário
sumoner80
Membro
Membro
 
Mensagens: 20
Registrado em: Sex Fev 07, 2020 10:21 pm
Has thanked: 8 times
Have thanks: 0 time

{ SO_SELECT }

Re: Inserir Nova TextBox  [Resolvido]

Mensagempor srobles » Dom Mai 24, 2020 2:45 am

sumoner80,

Impossível não é, o complicado é controlar isso posteriormente. Mas vamos lá, veja se a rotina abaixo atende sua necessidade.

No evento Click do respectivo botão, copie e cole o que se segue :
Código: Selecionar todos
    Dim contCtl As Long
    Dim ctlTxt As Control
   
    With Me
        contCtl = 0
       
        For Each ctlTxt In .Controls
            If Left(ctlTxt.Name, 7) = "txtTemp" Then
                contCtl = contCtl + 1
            End If
        Next
       
        Set ctlTxt = .Controls.Add("Forms.TextBox.1")
       
        If contCtl = 0 Then
            With ctlTxt
                .Name = "txtTemp" & contCtl
                .Top = 50
                .Left = 10
                .Height = 18
                .Width = 120
            End With
        Else
            With ctlTxt
                .Name = "txtTemp" & contCtl
                .Top = (Me.Controls("txtTemp" & contCtl - 1).Top + Me.Controls("txtTemp" & contCtl - 1).Height) + 10
                .Left = Me.Controls("txtTemp" & contCtl - 1).Left
                .Height = 18
                .Width = 120
            End With
        End If
        Set ctlTxt = Nothing
    End With
Espero ter ajudado.

Abs.

Saulo Robles

Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond

For this post the author srobles thanked:
sumoner80 (Ter Mai 26, 2020 11:36 pm)
srobles
Membro
Membro
 
Mensagens: 434
Registrado em: Sáb Mai 09, 2015 10:35 pm
Has thanked: 129 times
Have thanks: 187 times


Voltar para Formulários

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 0 visitantes