Inserimento controlli in VBA.

Question

Come posso,  in VBA, creare su una form esistente un controllo Frame contenente a sua volta altri controlli? Grazie.

Answer 1

Ciao Pietro,

Come posso,  in VBA, creare su una form esistente un controllo Frame contenente a sua volta altri controlli? Grazie.

A titolo di esempio, per aggiungere dinamicamente un controllo Frame con quattro controlli TextBox, prova qualcosa del genere:

'=========>>

Option Explicit

'--------->>

Private Sub CommandButton1_Click()

    Dim oFrame As Object

    Dim oTextBox As Object

    Dim iCtr As Long

    Const dLeft As Long = 10

    Const dHeight As Long = 20

    Const dWidth As Long = 40

    Const dIncr As Long = 0

    Const dTop As Long = 35

    Set oFrame = UserForm1.Controls.Add( _

                 "Forms.Frame.1", "Test", True)

    With oFrame

        .Height = 100

        .Width = 215

        .Left = 10

        .Top = 20

    End With

    For iCtr = 1 To 4

        Set oTextBox = oFrame.Controls.Add( _

                      "Forms.TextBox.1", "Test" & iCtr, True)

        With oTextBox

            .Height = dHeight

            .Width = dWidth

            .Left = dLeft + (dWidth + 10) * (iCtr - 1)    ') + 10

            .Top = dTop

        End With

    Next iCtr

End Sub

'<<=========

Potresti scaricare il mio file di prova Pietro20200415.xlsm

===

Regards,

Norman