Load frame avec option button dynamique

Soyez le premier à donner votre avis sur cette source.

Vue 6 242 fois - Téléchargée 611 fois

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
17
Date d'inscription
lundi 21 octobre 2002
Statut
Membre
Dernière intervention
24 novembre 2004

Un grand merci d'un petit scarabé qui tente de se former seul à VB... Je vais enfin pouvoir finir mon application autorun en passant à la V4...
Messages postés
17
Date d'inscription
lundi 5 avril 2004
Statut
Membre
Dernière intervention
12 mars 2005

salut, ok pour la création, ça y est je comprends.

Mais maintenant je voudrais décharger des controles. Donc j'utilise ' Unload controle(index) ' et aucun pb cela fonctionne tant que l'on retire les controles dans l'ordre ou ils ont étaient créés.
Mais si je veux décharger un controle dans n'importe quel ordre...???

je m'explique:

je crée dynamiquement un groupe de 3 controles indexés respectivement(aprés le modèle0) 1,2 et 3.
je decide de supprimer le controle avec l'index 2.
il me reste 1 et 3.
... mon prog continue et plus loin innévitablement je tombe sur une err.number 340 "le controle 2 n'existe pas".

je voudrais donc, aprés l'éffacement, ré-indexer les controles créés.
J'ai essayé avec " control(index).Index = nouvel Index " mais cela ne fonctionne pas car la propriété Index est en lecture seule.

Sais tu s'il est possible de ré-indexer un groupe de controles?
Ou alors, peut etre faut il approcher le Pb différement...
Si tu as une petite idée sur le chose... Merci!!!
Messages postés
55
Date d'inscription
vendredi 20 octobre 2000
Statut
Membre
Dernière intervention
13 octobre 2008

tu me sauve la vie
ca faisait un mois que je cherchait comment ajouter dynamiquent un controle dans une frame
merci beaucoup!!!
Messages postés
1
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
22 septembre 2003

Comment en cliquant sur un de ces bouton option, je peux activer une autre frame pour y creer dynamiquement des optionbutton?
merci
Messages postés
189
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
3 avril 2005

MArchr pô sous VB5

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.