Load frame avec option button dynamique

Télécharger le projet
Commenter

Description

Créé dynamiquement autant de frame contenant chacun 3 optionbutton que l'utilisateur indique. Ceci est en fait un exemple pour expliquer comment loader dynamiquement des frames contenat des contrôles. L'astuce c de ne pas oublier la propriété Container du contrôle introduit dans le frame.

Source / Exemple : 


Private Function AddFrames()
    Dim i As Integer
    Dim T As Integer
    'Dim Index As Integer
    
    T = CInt(MyNbr.Text)
    
    For i = 1 To T
        Dim Myframe As Frame
        Set Myframe = Form1.Controls.Add("VB.Frame", "Index" & i)
        
        
       Myframe.Width = 2500
       Myframe.Height = 1000
       Myframe.Top = 150 + i * 1000 + 10
       Myframe.Left = 400
       Myframe.Visible = True
       
       For j = 10 To 12
            X = j - 9
            Dim MyoptionButton As OptionButton
            Set MyoptionButton = Form1.Controls.Add("VB.OptionButton", "OBIndex" & (j * i))
            MyoptionButton.Width = 1500
            MyoptionButton.Height = 100
            MyoptionButton.Top = 10 + X * 250
            MyoptionButton.Left = 100
            MyoptionButton.Caption = "OBIndex" & (j * i)
            
            MyoptionButton.Visible = True
            Set MyoptionButton.Container = Myframe
            
       Next
       
       
       
    Next

Form1.Height = 1500 + i * 1000 + i * 10

       
End Function

Conclusion :


Merci à Lo
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_davyboy)