Question bête...Résolu

Question

Salut tout le monde,



J'ai cru comprendre en regardant sur le forum qu'on pouvait cr&#233;er un controle sur un formulaire &#224; partir du code.
En gros, je voudrais que, d&#232;s que l'utilisateur clique sur un bouton,
&#231;a cr&#233;e des checkbox et des textbox et je voudrais pouvoir les placer
o&#249; je veux sur ma form,  mais je ne connais pas la syntaxe. Je
suis oblig&#233; de faire comme &#231;a parce que en mode cr&#233;ation je ne peux
plus cr&#233;er manuellement de controles (j'ai atteint la limite qui est &#224;
priori de 100). 



Merci &#224; tous ceux qui pourront me r&#233;pondre (et m&#234;me aux autres d'ailleurs, lol !!!)



 C&#233;dric

Gobillot · Accepted Answer

ha bon !

ben alors tout va bien tu peux cr&#233;er tes mille ou plus

mais attention tu peux pas les cr&#233;er 2 fois.



quand tu les cr&#233;e, ils sont pas visibles, et ils se mettent en position 0,0

&#224; toi de voir les valeurs de x et y



 Private Sub Command1_Click()

     Dim i As Integer

     

     For i = 1 To 1000

         Load Text1(i)

        Text1(i).move x, y

        Text1(i).Visible = True

        x = x + ???

        y = y + ???

         Next

 End Sub



Daniel

cs_Jack · Answer

Salut
Cette limite est aussi valable en mode Run : Tu ne pourras pas en ajouter !

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

Yaume1 · Answer

oups !!!

et comment je fais alors ???? j'ai bien pens&#233; mettre ces nouveaux
controles dans une autre form mais &#231;a ne sera pas pratique du tout pout
l'utilisation de mon programme ! ya pas moyen de contourner
???   :'(



En tous cas, merci quand m&#234;me !



;)  C&#233;dric

Yaume1 · Answer

au fait Jack, &#231;a m'int&#233;resserait quand m&#234;me de savoir la syntaxe pour cr&#233;er un contr&#244;le, tu pourrais me tuyauter steup ???

Merci beaucoup (j'adore ta citation de Socrate)



;)

Gobillot · Answer

non, non il n'y a pas de limite en dynamique



Private Sub Command1_Click()

    Dim i As Integer

    

    For i = 1 To 1000

        Load Text1(i)

        Next

End Sub



Private Sub Command2_Click()

    Dim i As Integer

    

    For i = 1 To 1000

        Unload Text1(i)

        Next

End Sub


Daniel

cs_CanisLupus · Answer

OK avec jack.
Ce n'est pas parce qu'on peut cr&#233;er des controles en mode run que &#231;a r&#233;soudra ton probl&#232;me.
Il faudrait plutot revoir ton projet. Par ex, pour des checkbox ou des options buttons, il existe les listbox et/ou combobox qui peuvent t'aider &#224; r&#233;duire consid&#233;rablement le nombre de tes controles.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

BruNews · Answer

jack tu es certain des 100 ?
Windows admet 255 controles par dialog en template depuis win95 et au del&#224; uniquement limit&#233; que par la m&#233;moire ou 0xFFFE controles si on les atteint par cr&#233;ation dynamique.
Serait-ce intrins&#232;que &#224; VB ?

ciao...
BruNews, MVP VC++

Yaume1 · Answer

D&#233;sol&#233; Daniel mais ce que tu m'as pass&#233; ne fonctionne pas ! j'ai bien
l'impression que la limite de 100 contr&#244;le s'applique aussi en mode run
!   :(

Merci pour ton aide quand m&#234;me !

Merci &#224; Jack et CanisLupus, je vais essayer une autre approche.



Ce qui me g&#234;ne c'est que sous VBA avec Excel la limite (s'il y en a
une) est vachement plus importante : j'avais cr&#233;&#233; le m&#234;me formulaire
sous VBA et je n'avais pas eu de pb, je veux en faire un &#233;x&#233;cutable
autonome maintenant et je rencontre plein de pb dans le passage de VBA
&#224; VB6 !!!!



Tant pis !



Merci pour votre aide &#224; tous !



;)

Yaume1 · Answer

Salut BruNews, le temps de poster ma r&#233;ponse et tu avais r&#233;pondu...

Je sais pas si la limite en dynamique est la m&#234;me mais en tous cas le code de daniel me donne un message d'erreur :

"Erreur de compilation :

 Nombre d'arguments incorrectsou affectation de propri&#233;t&#233;s incorrect"



Voilou



Le truc c'est que je ne connais pas la syntaxe pour cr&#233;er un controle
en dynamique donc je ne sais pas si le code de Daniel est bon !

C'est quoi le code pour cr&#233;er une checkbox par exemple s'il vous plait ?



Merci pour voter aide en tous cas ;)

Gobillot · Answer

je maintiens 255 en non dynamique.

et la seule limite en dynamique c'est la taille de la m&#233;moire.

j'ai cr&#233;&#233;e mes 1000 TexBox en mode compil&#233; ou pas


pour cr&#233;er en dynamique il faut d'abord en mettre 1 avec son index &#224; z&#233;ro.


Daniel

BruNews · Answer

tout &#224; fait, en dynamique c'est la m&#233;moire qui limite ou la table de handles (16 bits de long) du processus qui sera pleine.

ciao...
BruNews, MVP VC++

Yaume1 · Answer

Ben tu as une id&#233;e alors pour expliquer le message d'erreur suivant :



"Limite atteinte : impossible de cr&#233;er davantage de contr&#244;le pour cette feuille"



une autre question b&#234;te : un label et une frame et une SStab, c'est consid&#233;r&#233; comme des controles aussi ?

Parce que si c'est le cas je doit pas &#234;tre loin des 255 mais ce qui est s&#251;r c'est que je suis tr&#232;s loin des 1000 !



En tous cas Daniel, quand je clique sur mon bouton Command1, la
premi&#232;re fois il ne se passe rien (du moins j'en ai l'impression) et la
deuxi&#232;me fois il me met objet d&#233;j&#224; charg&#233; (un message d'erreur quoi !)



;)

Yaume1 · Answer

wouhaouh, &#224; peine le temps de r&#233;pondre qu'il y a 2 messages de plus !

J'ai ex&#233;cut&#233; ton prog Daniel mais je ne vois pas de nouveau textbox
s'afficher je suppose qu'ils devraient d'afficher tous en haut &#224; gauche
avec .left 0 et .top 0 non ? mais l&#224;, yen na m&#234;me pas un qui
s'affiche !

Vraiment je ne comprend pas !



;)

BruNews · Answer

quand on parle de controles il faudrait en fait parler de handle, tout controle est une fenetre et a donc un handle identifiant sinon n'existerait pas.
SStab est un controle (fenetre) qui en comporte plusieurs autres (childs) donc plusieurs handles utilis&#233;s.

ciao...
BruNews, MVP VC++

cs_CanisLupus · Answer

Pas de d&#233;bat sur les limites du nombre de controles, peut &#234;tre sur la capacit&#233; visuelle d'un utilisateur lambda, mais passons si tes utilisateurs ont une vision de super-h&#233;ro ! Juste une consid&#233;ration :

ex : 
1 frame + multitude d'optionbuttons = multitude de controles
1 combobox avec multitude d'items = 1 controle
et
multitude de checkbox = multitude de controles
1 listbox en multiselect = 1 controle

pour les textbox, faut voir le projet. Peut-&#234;tre une listview ?

Mais ce n'est juste que mon avis.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Yaume1 · Answer

Salut tout le monde, je sais que vous m'avez bien aid&#233; mais j'ai juste une petite question :

J'ai une frame1(0) sur mon formulaire et un textbox1(0) sur ce m&#234;me formulaire

Si je fais:



Dim i as integer

For i = 1 to 5

    load frame1( i )

    load textbox1( i )

Next i



comment faire pour que ma textbox1( i ) soit dans ma frame1( i ) ?



Je sais pas si qqun lira cette question maintenant que vous avez
r&#233;pondu aux autres et que les r&#233;ponses sont valid&#233;es mais c'est dommage
de surcharger le forum avec un autre post !

Voilou, si par hasard qqun pouvait m'aider ce serait trop du ballon !



Bonne prog  ;)



C&#233;dric

Gobillot · Answer

essayes &#231;a:



Set textbox1( i ).container = frame1(i)

Daniel

Yaume1 · Answer

Trop de la balle !

t'es vraiment un chef Daniel, qu'est-ce que je ferais sans toi ??? lol



Tu m'as vraiment sauv&#233; la vie avec tes r&#233;ponses, merci pour tout !



@ bient&#244;t j'esp&#232;re !



C&#233;dric

Rjoe · Answer

sauv&#233; la vie a ce point?

io

Question bête...

19 réponses

Discussions similaires