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.
Merci à Lo
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
- Load frame avec option button dynamique
- Problème avec frames et option buttons ✓ - Forum - Visual Basic 6
- Contrôles style xp (16 usercontrols: listbox, option, frame, bar, check, buttons...) - Codes sources - Visual Basic / VB.NET (Control)
- CODE POUR GROUPE D'OPTIONS CREE DYNAMIQUEMENT ✓ - Forum - VB.NET
- Problème avec des options button ✓ - Forum - Visual Basic 6
- VB6 Propblème avec Option Button ✓ - Forum - Visual Basic
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!!!
ca faisait un mois que je cherchait comment ajouter dynamiquent un controle dans une frame
merci beaucoup!!!
merci
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.