bonjour,
je dois réaliser un formulaire dans lequel des controles dynamiques doivent s'afficher.
Pour cela j'utilise la fonction CreateControl()
Mais je dois également ajouter un évènement, en cas de click, sur ce controle.
Je reussi bien a créer ce les controles (de type zone de liste), mais a l'execution, VBA me renvoi ce message d'erreur :
"gestionnaire d'evenement non valide" (Err = 57017)
pouvez vous m'aider car je pense avoir tout essayé, en vain. Merci
voici mon code (L'erreur se produit sur la ligne ou il y a la methode "CreateEventProc" ) :
Code :
- Dim CtrlEntCbLb As Control
- Dim mdlEvent As Module
- Dim lCreEvent As Long
- Dim FrmIliv As Form
- Set FrmIliv = Forms("Frm_suivi_ILiv_Analyse croisée_v2" )
- Set CtrlEntCbLb = CreateControl(FrmIliv.Name, acTextBox, acDetail, "", "" )
- CtrlEntCbLb.Name = "Codelabo"
- CtrlEntCbLb.Left = 1100
- CtrlEntCbLb.Top = 57
- CtrlEntCbLb.Width = 1035
- CtrlEntCbLb.Height = 255
- CtrlEntCbLb.BackColor = 55769
- CtrlEntCbLb.BackStyle = 1
- CtrlEntCbLb.ForeColor = 0
- CtrlEntCbLb.FontWeight = 700
- CtrlEntCbLb.FontSize = 9
- CtrlEntCbLb.FontName = "Arial"
- CtrlEntCbLb.BorderStyle = 1
- CtrlEntCbLb.SpecialEffect = 0
- CtrlEntCbLb.InSelection = 0
- CtrlEntCbLb.FontItalic = 0
- CtrlEntCbLb.TextAlign = 2
- CtrlEntCbLb.Visible = True
- CtrlEntCbLb.Locked = True
- CtrlEntCbLb.ControlSource = "CodeLabo"
- Set mdlEvent = FrmIliv.Module
- lCreEvent = mdlEvent.CreateEventProc("Click", CtrlEntCbLb.Name)
|
Message édité par fredoh3 le 15-04-2005 à 15:19:39
FORUM HardWare.fr
