Soyez le premier à donner votre avis sur cette source.
Vue 6 269 fois - Téléchargée 611 fois
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
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.