prob entre CommandButton et Combobox

Boujour à tous

Je travaille dans VB6.
Lorsque je place le code suivant dans une Sub Command1_Click()
tous ce passe bien (avec un point d'arret pour verifier!).

Mais le même code dans une Sub Combo1_Click() me declanche une erreur
du type 'impossible dans ce context'.

Je n'ai rien trouvé a ce sujet dans le forum.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim var As Boolean Private Sub Combo1_Click() Me.Controls.Add "VB.Frame", "frame1" With Me.Controls("frame1") .ForeColor = &HFFFF& .BackColor = &H40& .BorderStyle = 1 .Top = 680 .Left = 280 .Width = 11500 .Height = 3500 .Visible = True End With var = True If var = True Then Me.Controls.Remove "frame1" 'declanchement d'une erreur' End If End Sub

---

Si quelqu'un a une idée.

Merci d'avance.

Bonjour,

Je n'ai pas VB sous la main pour vérifier l'exactitude de ton code et te fais donc confiance.

Une chose me saute aux yeux, cependant :

Tu veux créer un mort-né sans lui laisser le temps de naître (ce que ton point d'arrêt permettait, avec ton commandbutton.....

essaye donc de mettre un Doevents après
Me.Controls.Add "VB.Frame", "frame1"
et au besoin un autre après ton End With

Merci de ta reponse rapide Ucfoutu

Petite précision, ce code est un code de test.
Mon but n'est pas d'afficher une frame mais de
resoudre le fait que ce code ne fonctionne pas
pour utiliser la solution (si solution il y a) dans un autre code
plus complexe.

solution y a t'il ????

As-tu lu ce que j'ai écrit ?
As-tu inséré le doevents ?

C'est avant tout un problème d'existence de ce que tu tues !!!

Te viendrait-il, à l'idée (par exemple), de mettre une tétine dans la bouche d'un bébé tout de suite après l'avoir conçu, sans attendre les 9 mois qui lui sont nécessaires pour naître ?

Non, bien évidemment.

Or, dans ton code :
1) tu conçois ici :

Code:

---

Me.Controls.Add "VB.Frame", "frame1"

---

2) tu prends un couteau là :

Code:

---

var = True

---

au passage : évite de nommer Var une variable

3) tu dis : "puisque j'ai un couteau, je tue" là :

Code:

---

1 2 3

If var = True Then Me.Controls.Remove "frame1" 'declanchement d'une erreur' End If

---

sans même savoir si le temps nécessaire à la création s'est écoulé depuis le moment de la conception (temps que permet ton point d'arrêt dans ton essai avec un CommndButton ....

Si maintenant ta question est : comment puis-je faire pour supprimer ce qui n'a pas encore eu le temps d'être créé, la réponse est élémentaire et évidente ....8O

Je viens d'essayer avec DoEvents

Code:

---

1 2 3 4 5

... Me.Controls.Add "VB.TextBox", "frame1" DoEvents ...

---

Même résultat.

Si le probleme est au niveau de la creation de la Frame
pourquoi le code dans un Command Button fonctionne ?

(mon but final étant d'ajouter dynamiquement des textbox, listbox, button
et autre... en fonction de la selection d'une ComboBox et de les supprimer
au changement de selection.
je ne suis pas encore une brute en prog, c'est peut-être que ma démarche n'est pas la bonne?)

Je n'en sais rien (pas VB sous la main) !!!

De mémoire alors (sans garantie du gouvernement) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Command1_Click() Dim ctrl As Control Set ctrl = Controls.Add("VB.Frame", "Frame1") With ctrl .visible = true .ForeColor = &HFFFF& .BackColor = &H40& .BorderStyle = 1 .Top = 680 .Left = 280 .Width = 11500 .Height = 3500 .Visible = True End With DoEvents End Sub

---

serait la syntaxe que j'utiliserais...

Puis je me réfèrerais à ctrl pour zigouiller ....

Mais bon.... C'est à main levée et de mémoire... alors, je peux me tromper ....

Citation:

---

Envoyé par MSDN

Impossible de décharger dans ce contexte. (Erreur 365)

Dans certains cas, vous ne pouvez pas décharger une feuille ou un contrôle situé sur une feuille. Les causes et les solutions de cette erreur sont les suivantes :

....

Il y a une instruction Unload dans l'événement Change, Click ou DropDown d'un contrôle ComboBox.
Supprimez l'instruction Unload de l'événement.

....

---

Merci de votre recherche

J'avait déjà lu l'explication de l'erreur renvoyée,
mais je ne la comprend pas dans ce cas.

j'ai déjà essayé de passer par une fonction ou place le
code de suppression du controle dans un module mais sans succes.

doit-je donc me résoudre à faire autrement ?

de toute façon je trouve ta façon de faire un peu bizarre, ça m'étonne même que cela fonctionne (pour la partie création)

J'ai plutôt l'habitude de passer par un tableau de contrôles, en utilisant load moncontrole(index) puis unload ...

Citation:

---

Envoyé par Christ&Luka

J'avait déjà lu l'explication de l'erreur renvoyée,
mais je ne la comprend pas dans ce cas.

---

La méthode Remove de la collection Controls revient à décharger (Unload) un contrôle
Or, je répète :
Dans certains cas, vous ne pouvez pas décharger une feuille ou un contrôle situé sur une feuille ....

Essaie :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Command1_Click() Me.Controls.Add "VB.Frame", "frame1" With Me.Controls("frame1") .ForeColor = &HFFFF& .BackColor = &H40& .BorderStyle = 1 .Top = 680 .Left = 280 .Width = 11500 .Height = 3500 .Visible = True End With End Sub   Private Sub Combo1_Click() Me.Controls.Remove "frame1" End Sub

---

Ca ne marche pas non plus
Alors que :

Code:

---

1 2 3

Private Sub Command2_Click() Me.Controls.Remove "frame1" 'declanchement d'une erreur' End Sub

---

fonctionne ;)

Merci de ce complement d'information.