Comment faire pour ...

Question

Salut,
Comment faire pour definir un nom d'objet a partir d'une donnee string ?

Je m'explique :
Je recupere par une routine, le nom d'un objet image, dans une donnee string
(par exemple : madonnee = "image_base_1")
et a partir de cette donnee, je veux pouvoir l'attribuer &#224; un autre emplacement d'image
(par exemple : image_affichage.image = madonnee.image)
Mais bien sur, ca ne fonctionne pas car les types sont differents.

D'ou ma question, comment faire pour que cela puisse fonctionner ???
Merci de votre aide.

cs_DARKSIDIOUS · Answer

Et pourquoi ne pas passer l'objet directement, car je ne pense pas que
ton truc puisse fonctionner : comment veux-tu que VB puisse reconna&#238;tre
le type d'objet uniquement par son nom ? On n'est pas en LISP ici, lol
;)

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

cs_CanisLupus · Answer

Salut,

Je ne sais pas si j'ai bien compris mais, &#224; ma connaissance, il n'est pas possible de rep&#233;rer directement un controle &#224; partir d'une donn&#233;e string. Il faut parcourir la collection de controles de la form jusqu'&#224; trouver le bon :

Dim c As Control


For Each c In Me.Controls
  If c.Name = madonnee Then
      image_affichage.image = c.image
      exit for
  End If
Next

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Danyelk · Answer

Merci Dark et Canis.

J'ai deja vu cette methode de recherche a partir d'une collection de controles, mais je la trouve peu efficace et surtout peu optimisee et optimisable sur une collection de plusieurs milliers d'objets ...

J'ai beau chercher et demander un peu de partout, mais tjrs aucune autre solution.
Merci.

Si vous avez une autre solution 'viable', n'hesitez pas ;)

cs_CanisLupus · Answer

Milliers d'objets ? explique un peu plus STP.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_DARKSIDIOUS · Answer

C'est pour c&#224; que je te sugg&#232;re de passer directement une r&#233;f&#233;rence
d'objet et non une cha&#238;ne correspondant au nom de l'objet : c'est moins
souple &#224; utiliser, mais c'est bien plus optimis&#233; !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Danyelk · Answer

169075  CanisLupus
Pour rentrer plus dans le detail, c'est plutot qq centaines et pas milliers d'objet ... (j'ai fourche ;))
Il s'agit en fait de pages de sprites (directement inclus dans des form)
Ca fonctionnais tres bien avec les index en vb6, mais comme je dois retranscrire en .net, je galere pour definir et recreer un algo ou routine efficace et fiable.

=72978 liquide
Et oui pas le choix !!!

DARKSIDIOUS
Hmmm peux tu m'en dires plus, car je saisi pas completement ce que tu entends par reference d'objet.
Un petit exemple serait le top ;)

En vous remerciant tt les 3.

Danyelk · Answer

Oupsssss, j'ai oublie de signaler que c'est du vb.net dans mon premier post ... arf
Oui pour le ctype / gettype, mais je vois pas comment faire pour un objet image.
Un petit exemple serait encore le top ;)

cs_CanisLupus · Answer

Pour un ex en vb.net, je ne pourrai t'en donner un que demain dans la journ&#233;e. Je n'ai pas encore vb.net chez moi.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Danyelk · Answer

Merci pour ton aide, mais ...
dim MonObj as image = ctype(image_base_1, image)
La definition 'as image' n'existe pas, et j'ai rien trouve de correspondant &#224; une image ou picture.

Deplus, quand je fais un : Console.WriteLine("Donnees : ", image_base_1.GetType())
Il me retourne vide ...

Je sais plus ou et quoi chercher moi ... :(

ps: np canis ;)

jpleroisse · Answer

Bonsoir,

Je ne connais le .Net, mais voici la solution en VB6, pour ceux que cel&#224; int&#233;ressent.



Private Sub Command1_Click()

Dim madonn&#233;e

Set madonn&#233;e = image_base_1.Picture

Set image_affichage.Picture = madonn&#233;e

End Sub



jpleroisse