Créer des contrôles dynamiquement qui se comporte comme normauxRésolu

Question

Salut a tous,

Je sais qu'il existe deja plusieurs questions et sources a ce sujet, mais soit je ne les ai pas bien compris, soit pas trouv&#233;e :( Donc je voudrais pouvoir cr&#233;er des controles de fa&#231;on dynamique, mais sans la methode index (car necessite que un controle soit deja present) et si possible avec withevents, pour pouvoir g&#233;rer les evenements de ce controle. Ce serait pour un systeme de plug in, ou, pour effectuer diverse actions, l'utilisateur pourrait avoir besoin d'un controle (un treeview par exemple). Il me faudrait donc aussi le moyen de le cr&#233;er autre part que dans le module ou le code est &#233;crit.
J'espere avoir et&#233; clair, et merci d'avance pour vos reponses
++

LTourist

Gobillot · Accepted Answer

- le composant doit &#234;tre coch&#233; pour avoir la biblioth&#233;que

- dans projet.option faut d&#233;cocher:

   Remove information about unused ActiveX contyrols



- d&#233;claration WithEvents uniquement sur la Forme

Public WithEvents obj1 As mscomctllib.ListView



 Set obj1 = Controls.Add("mscomctllib.ListViewCtrl.2", "Liste")



- le Set peut &#234;tre fait dans le module:

Public Sub Creation()

    Set Form1.obj1 = Form1.Controls.Add("mscomctllib.ListViewCtrl.2", "Liste")

    Form1.obj1.Visible = True

End Sub


Daniel

Gobillot · Answer

cr&#233;ation d'un bouton:









Dim WithEvents obj1  As CommandButton

    

Set obj1 = Controls.Add("VB.CommandButton", "button")

 

obj1.Visible = True

obj1.Top = 100

obj1.Left = 100

ect ...



Private Sub Obj1_Click()

    Beep

End Sub 


Daniel

supermotaboy · Answer

Merci de ta r&#233;ponse. En effet j'avais vu cette solution, le probleme est qu'avec cette solution, je ne parviens pas cr&#233;er des controles plus "complexes", enfin n etant pas inclus par default dans VB, tel que des ListView ou des TreeView... Comment faire? Et y'a t'il un moyen pour cr&#233;er cette objet sur la Form1 par exemple alors que le code se situe dans le Module MonModule (encore par exmple :) )?

LTourist

supermotaboy · Answer

Merci beaucoup, ce qu'il me manquait en fait c'&#233;tait le "Ctrl.2" a la fin de la chaine referen&#231;ant quel objet cr&#233;er. D'ailleurs si tu pouvait me dire comment tu l'as obtenu je suis preneur, parce que j'ai beau cherch&#233;, je ne la trouve dans aucun menu, ni dans l'explorateur d'objet. Merci beaucoup!

LTourist

Gobillot · Answer

je l'ai obtenu par un message d'erreur qui apparait:

   Run-Time error '739'

   Cannot add control "mscomctllib.treeview" . . . .

   the ProgID for this control is "MSComctlLib.TreeCtrl.2"



Public WithEvents obj1 As MSComctlLib.TreeView



Set obj1 = Controls.Add("mscomctllib.treectrl.2", "Arbre")


en fait sans le ".2" &#231;a passe aussi


Daniel

nhervagault · Answer

Salut

pour la creation des controles dynaques tel que des User control 
tu peux utiliser la m&#233;thodes des index

moi, je les manipules comme cela.

sur la form 
le user(0) est invisible
et apres j'appele la methode 
   F1.ctl1(0).Top = 0
    While Not rsADO.EOF
        Load F1.ctl1(i)
        F1.ctl1(i).Top = F1.ctl1(i - 1).Top + F1.ctl1(i - 1).Height
        F1.ctl1(i).Style = "Supprimer"
        F1.ctl1(i).nom = rsADO!champ1 * -1
        F1.ctl1(i).property1 = rsADO![champ2] * -1
        F1.ctl1(i).Visible = True
        i = i + 1
        rsADO.MoveNext
    Wend

F1 est le nom de la form car tout la gestion des controles avait &#233;t&#233; dans ce projet 
d&#233;port&#233; dans des modules. car les une bonne partie des controles etait present sur une seule form (c'etait la demande) la mise en module et encore mieux en class permet de travailler a plusieurs sur une grosse forme ;-)

j'ai renommer les champs c'est pour cela que c'est moins parlant

supermotaboy · Answer

Merci de vos reponses. Pour ta solution nhervagault, justement je souhaiterais eviter de l'utilis&#233;, car celui m'oblige a cr&#233;er un controle sur ma form a la base, et comme il s'agit d'un systeme de plugin, &#231;a m'embete un peu car &#231;a voudrais dire que je devrais prevoir tout les cas possible sur ma form, et &#231;a prendrai de la place pour rien. Mais merci quand meme de l'astuce, c'est toujours bon a prendre, surtout si l'on doit cr&#233;er un nombre important de meme controle avec les memes options ;)
Merci a vous deux :)
LTourist

supermotaboy · Answer

J'accepte quand meme ta reponse pour aider les gens a trouver une solution qui leurs conviennent, apres tout ces demandes sur le forum ne servent pas qu'a celui qui pose la question ;)
++

LTourist

Créer des contrôles dynamiquement qui se comporte comme normaux

8 réponses

Discussions similaires