Variable pour un nom d'objet ...Résolu

Question

Bonjour! J'ai commencer hier le VB.net j'apprend très vite ! Puisque ce n'est pas le premier language que j'Apprend je sais quelle base j'ai besoin pour savoir me débrouiller :P D'ailleurs j'ai presque tout trouver seul sauf pour un petit truc =/

en gros, je charge une image (ressource "test") dans box00 de mon projet ananas =D
box00.Image = ananas.My.Resources.Resources.test

À date tout va bien mais mon programme utilisera les sockets et il devra alors charger l'image que le serveur lui ordonne... donc pour tester un peu j'ai fait:

lol = "test"
box00.Image = ananas.My.Resources.Resources.lol
Je sais pas si vous voyez où je veux en venir, c'est simpliste mon truc mais je sais pas comment l'expliquer autre qu'avec un petit exemple bizzard >.< bah voila.. en gros je voudrais utiliser le contenu d'un string comme objet, c'est possible et puis si oui comment ?

Oublier pas que je suis à mes débuts en VB (Se qui fait pas de moi un gamin de 3 ans qui connait rien en prog !!)

Programmation en PHP,
je sème la mort, je récolte les âmes...

Toutes fois en VB... certaines choses m'échappent ! 

Cordialement,
NitriX xD

jmfmarques · Accepted Answer

exemple (car pour un label, c'était la propriété Caption et non Text, de toutes manières :

Private Sub Command3_Click()
  cible = "label1"
  Controls(cible).Caption = "allo"
End Sub

allthew3 · Answer

en français ça donne ?
tu peux pas être un peu plus clair parce que là ...

bfgt · Answer

Ok je vais y aller avec un truc plus simple 
label1.Text = "allo"  'ici je change le texte de mon label1 par allo

moi je voudrais prendre le contenu d'un string et l'utiliser comme nom pour l'objet:
cible = "label1"
cible.Text = "allo"

j'ai aussi esssayer un truc dans le genre:
cible = "label1"

cible & .Text = "allo"
mais sa ne marche pas (normal aussi, mais au moin j'aurrais essayer ). Comment faire 

Merci de vous casser un peu la tete pour moi

allthew3 · Answer

c'est déjà beaucoup plus clair 

pour faire ce que tu veux fait ça à l'ancienne, comme en VB 2002-2003 : 

Me

.Label1 = 
New System.Windows.Forms.Label

'Label1

'

Me.Label1.AutoSize = 
True

Me.Label1.Font = 
New System.Drawing.Font(
"Segoe UI", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 
CType(0, 
Byte))

Me.Label1.Location = 
New System.Drawing.Point(318, 50)

Me.Label1.Name = 
"Label1"

Me.Label1.Size = 
New System.Drawing.Size(139, 25)

Me.Label1.TabIndex = 3

Me.Label1.Text = 
"texte"

allthew3 · Answer

(les Me. ne sont pas utiles ici : tu peux le supprimer ...)

jmfmarques · Answer

C'est pas vrai !
Controls("label1").text = "allo"
C'est tout !

bfgt · Answer

:O J'aillais répliquer que c'est pas le bon truc mais en fait sa crée une sorte d'alias hein ??
En tout cas, j'essaye et je vous reviens :D

En questions de dévélopements,
je sème la mort, je récolte les âmes...

Toutes fois... certaines choses m'échappent !

bfgt · Answer

Yeah, bah voila! C'était bien:
        Dim cible As String
        cible = "Label1"
        Controls(cible).Text = "allo"
Gros merci jfmmarques =D

bfgt · Answer

3 postes de suite =/ 
Et et non c'est bel et bien Text, pas caption dans mon cas ^^

allthew3 · Answer

lol dès que le sujet est plus clair, tout le monde à la réponse :P
bravo  (j'aurais jamais pensé à ça)

hvb · Answer

effectivement en .net c'est .Text et pas .Caption

Mais comme tu as posté dans la mauvaise rubrique.. jmfmarques a raison ;)

HvB a.k.a BaTo ^^x 
http://chat.batto.info/ ^^'
http://batto.info/

jmfmarques · Answer

Re (mais de passage seulement)...

bfgt vient de m'exposer par MP un petit problème annexe auquel je ne sais répondre, puisque nous venons de voir qu'il développe finalement sous VB.Net .

En voici l'essentiel :

mais quand j'essaye avec une ressource il déconne:
>        Dim ciblex As String
>        Dim img As Integer
>        ciblex = "box00"
>        img = "test"
>        Controls(ciblex).Image = ananas.My.Resources.Resources.Controls(img)
>
>Une idée ??
J'ignore même si, sous VB.Net, existe une propriété imagre pour un Label...
Et ignore encore plus l'équivalent sous VB.Net des Loadres de VB6 ...

Une âme VB.Netiste charitable pour lui répondre ?
Merci de ma part également à qui le fera.

allthew3 · Answer

>        Dim ciblex As String = "box00"
>        Dim img As String = "test">        Controls(ciblex).Image ananas.My.Resources.Resources.Controls(img)> Controls est en lecture seule ...

Variable pour un nom d'objet ...

13 réponses

Votre réponse

Discussions similaires