Criar Objetos No Form

[seiyacz]

Existe uma maneira de criar textbox e label em um formulario via codigo? Porque preciso exibir todos os campos de uma tabela simultaniamente em um formulario. MAs não tenho um numerodecampos definido. Então o VB temque ler a tabela eadicionar os textbox de acordo com a quantidade de campos da tabela. Estou tentando isso em ADO e Acces. Dem uma mãozinha por favor...

[Clemente Silva]

É mais ou menos isso:

Private Sub AdicionarCampos(Quantidade As Long)

   

    Dim X As Object, Cont As Long

    Dim Esquerda As Single, Topo As Single

    Dim Largura As Single, Altura As Single

    Dim Incremento As Single

   

    Esquerda = 150

    Topo = 150

    Altura = 300

    Largura = 2500

   

    For Cont = 1 To Quantidade

   

        Set X = Me.Controls.Add("VB.TextBox", "txtCampo" & Cont)

   

        With X

            .Visible = True

            .Move Esquerda, Topo + Incremento, Largura, Altura

            Incremento = (.Top + .Height)

        End With

       

        Set X = Nothing

       

    Next

   

End Sub

É só chamar a rotina passando como argumento a quantidade de campos do Recordset. Para saber quantos campos tem no Recordset, é só passar o valor da propriedade Count do objeto Fields na variável objeto Recordset que você está usando (Exemplo: Quantidade = MeuRecordset.Fields.Count)

Ajuste a rotina de acordo com o tamanho e espaçamento que você quiser para os TextBox.

[]'s

[seiyacz]

Pô cara brigadão. Eu adoro vocês ( no bom sentido)