Ajouter dynamiquement un control dans un form

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Ajouter dynamiquement un control dans un form

latruffe

Bdovore

Salut à tous,

je voudrais pouvoir créer de controls dynamiquement dans un form mais je ne connais pas à l'avance le nombre de controls à creer.

Il s'agit de text box. Quelle est la procédure pour créer des control depuis le code vba ?

J'ai d'abord penser à qq chose comme

Code :

dim NewControl as control
Set new control as .....
forms("abcd" ).controls.add new control

mais visiblement ça ne fonctionne pas.

Si qq'un a une suggestion., elle est la bienvenue.

---------------
« Lorsque le bûcheron pénétra dans la forêt avec sa hache, les arbres se dirent : ne nous inquiétons pas, le manche est des nôtres. » | Gérez votre collection de BD en ligne !

Publicité

latruffe

Bdovore

Bah, plus la peine de chercher, j'ai trouvé.

Pour ceux que ça interesse, voila un exemple de code :

CreateControl, CreateReportControl Methods Example

The following example first creates a new form based on an Orders table. It then uses the CreateControl method to create a text box control and an attached label control on the form.

Code :

Sub NewControls()
Dim frm As Form
Dim ctlLabel As Control, ctlText As Control
Dim intDataX As Integer, intDataY As Integer
Dim intLabelX As Integer, intLabelY As Integer
' Create new form with Orders table as its record source.
Set frm = CreateForm
frm.RecordSource = "Orders"
' Set positioning values for new controls.
intLabelX = 100
intLabelY = 100
intDataX = 1000
intDataY = 100
' Create unbound default-size text box in detail section.
Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _
intDataX, intDataY)
' Create child label control for text box.
Set ctlLabel = CreateControl(frm.Name, acLabel, , _
ctlText.Name, "NewLabel", intLabelX, intLabelY)
' Restore form.
DoCmd.Restore
End Sub

Gnub

tu peux faire plus simple en donnant à un contrôle un index (0 par exemple) au moment de la création ;

Puis dans ton code, tu met

Code :

load TonControle(1)
TonControle.visible = true

Tu obtient comme ça un contrôle similaire à ton premier

drasche

latruffe a écrit :

Code :

dim NewControl as control
Set new control as .....
forms("abcd" ).controls.add new control

sisi ça fonctionne parfaitement bien, c'est juste que le code est mal foutu.

Exemple de création d'une combobox:

Code :

Dim WithEvents ctlCombo as VB.ComboBox
...
Set ctlCombo = Controls.Add("VB.ComboBox", "ctlCombo" )
ctlCombo.Move 10, 10
ctlCombo.Visisble = True

Ce que tu dois retenir:
Ce code ne marche que dans un conteneur de contrôles (Form, UserControl).
* la clause WithEvents permet de capter les évènements émis par ton contrôle, tout comme la form, etc...
* Le contrôle ne peut être créé que par la méthode Add de la collection Controls, qui est une propriété de l'objet conteneur, donc le code ne peut fonctionner que dans une Form ou un UserControl. Important: le premier paramètre à Add est toujours le type du contrôle précédé de la librairie à laquelle il appartient (donc VB.ComboBox) et le second paramètre est un identifiant unique dans la collection (tu ne peux utiliser 2x le même).
* le Move, tu en fais ce que tu veux, ton contrôle n'est pas positionné par défaut dans la fenêtre.
* de même, un contrôle est toujours invisible quand tu le crées, il convient donc de le rendre visible.

Pour le retirer lors de la destruction du conteneur:

Code :

Set ctlCombo = Nothing
Call Controls.Remove("ctlCombo" )

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Ajouter dynamiquement un control dans un form

Sujets relatifs
Organiser ses compos delphi sur la form ?	Passage de parametres a une form...
[JAVASCRIPT] Faire afficher d control et décalé le reste du formulaire	[JavaScript] Remplir un champ de form à partir d'une autre fenêtre
[C++] ajouter un int à une string	[JS ] Valider un FORM en JS
[HTML] form : envoyer vers une page php, ou vers une autre	[Delphi] multitache : activer une form à la fin d'une tache
Probleme pour générer dynamiquement une expression	Comment ajouter un caractère à un nom sous MS-DOS ?
Plus de sujets relatifs à : Ajouter dynamiquement un control dans un form

Page générée en 0.063 secondes