Discussion :

[sefir]

bosoir,
j'aimerai savoir comment peut-on proceder par programmation à positionner un control sur un conteneur comme une frame à titre d'exemple (Left,TOP)
merci d'avance

[patbou]

bonjour

si c est un frame que tu veux creer dynamiquement dans un userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub UserForm_Initialize()
Dim fram As frame
Set fram = Me.Controls.Add("Forms.frame.1", Nom, True)
  With fram
        .Left = 30
        .Top = 50
        .Width = 100
        .Height = 40
        .Caption = "le nom que tu veux"
  End With
End Sub

[sefir]

merci pout ta réponse , mais ce quie je veux , c'est de positionner par programation des controles dans une frame
autrement dit , Left et Top du control par rapport au frame

[SilkyRoad]

bonsoir

Tu peux utiliser cette syntaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim i As Integer
    Dim TxtB As Control
 
    'boucle pour créer 5 Textbox dans le controle Frame1
    For i = 1 To 5
        Set TxtB = Frame1.Add("forms.Textbox.1")
 
        With TxtB
            .Left = 5
            .Top = 10 + ((i - 1) * 30)
            .Width = 75
            .Height = 20
        End With
    Next i

bonne soirée
michel