Création dynamique de textBox

Question

Bonjour,



je souhaite cr&#233;er dynamiquement des textBox gr&#226;ce &#224; la commande:  Load textBox1.



Le probl&#232;me est que j'obtient ce message d'erreur:  "361:
Impossible de charger ou de d&#233;charger cet objet". En regardant dans
l'aide j'ai vu qu'il fallait cr&#233;er un groupe de contr&#244;le, mais apparemment ce n'est pas possible en VBA.



Donc si vous savez comment faire pour cr&#233;er un groupe ou pour charger un textBox n'h&#233;sitez pas.

cs_ITALIA · Answer

Voici un exemple de code &#224; placer dans un Userform, qui permet de cr&#233;er
dynamiquement un COMMANDBUTTON et un TEXTBOX et de r&#233;cup&#233;rer leurs
&#233;v&#233;nements:

Private WithEvents Bouton1 As MSForms.CommandButton
Private WithEvents Text1 As MSForms.TextBox

Private Sub Bouton1_Click()
MsgBox "Hello !!!"
End Sub

Private Sub CommandButton1_Click()
Set Bouton1 = UserForm1.Controls.Add("Forms.CommandButton.1", "Bouton1",
True)
Bouton1.Left = 18
Bouton1.Top = 150
Bouton1.Width = 175
Bouton1.Height = 20
Bouton1.Caption = "je suis : " & Bouton1.Name

Set Text1 = UserForm1.Controls.Add("Forms.TextBox.1", "Text1", True)
Text1.Left = 18
Text1.Top = 200
Text1.Width = 175
Text1.Height = 20
Text1.Text = "je suis : " & Text1.Name
End Sub 

It@li@

Kleidp · Answer

Le probl&#232;me est qu'apr&#232;s le UserForm1.Controls je n'ai pas de Add (J'utilise le VB d'access 2000)

Création dynamique de textBox

2 réponses

Discussions similaires