[VB6] Stampare il contenuto di una variabile il quale nome è contenuto in un'altra

[fleone]

Salve ragazzi, scusate ma non sapevo come far capire il senso.. In php io uso un metodo che è il seguente per stampare il contenuto di una variabile, ossia:

  $pippo=10;  // creo la variabile pippo e gli assegno il valore 10
  
  $a = "pippo"; // creo la variabile a e gli assegno una stringa contenente il nome della variabile "pippo"
  
  echo $$a; 

stampo $a, ma, avendo messo due volte il segno $$, invece di stampare "pippo" mi stampa il valore di $pippo.. ossia 10.

Esiste un sistema simile in VB6 o.. VB.NET...?

Grazie ed un saluto a tutti.

[Stefano1984Mn]

Ma cosè un programma in visual basic?
Dove devi stampare la variabile?

in visualbasic si fa:

Dim pippo as integer
dim a as integer

pippo = 10

a= pippo

e poi se lo vuoi stampare in una textbox fai

text1.text = a

[wallrider]

usa un oggetto collection

[fleone]

Ma cosè un programma in visual basic?
Dove devi stampare la variabile?

Ciao Stefano , grazie per avermi risposto, purtroppo, credo non si possa fare in VB, quello che ho scritto è in php e mi servirebbe la stessa cosa in vb6 o vb.net..

Il metodo che utilizzo è semplice, io non devo assegnare ad 'a' il valore di 'pippo', in php farei come in vb... metterei cioè $a = $pippo (per la cronaca, in php tutte le variabili sono precedute dal simbolo $), però, il metodo che uso è molto potente.

Se io scrivo $a = "pippo" assegno ad $a una stringa, e scivendo echo $$a... praticamente lui mi stampa il valore della variabile $pippo e non la parola "pippo"... in VB... si può fare?

spero di essere stato chiaro.. capisco che è un po' ostico da comprendere come passaggio... programmo da anni in vb6 e php... però non mi è mai dovuto servire e, quindi, non mi sono mai posto il problema... ora però...


granzie ancora per la disponibilità

[fleone]

usa un oggetto collection

BINGO!!! Thank you!

Ciao e grazie!

[Stefano1984Mn]

Mi puoi scrivere la soluzione che hai trovato o qualcosa a riguardo che mi interessa.

[fleone]

Ciao Stefano, praticamente, in vb6, ho fatto così:


dim c as new Collection

c.add (10,"pippo")

a = "pippo"

text1.text c.item(a)


ti stampa 10.

su questo pc non ho vb installato... spero la sintassi sia corretta.

Ti è chiaro?

Ciao, Fabio.

[MdE2005]

Ci sono 2 errori:

Originariamente inviato da fleone
c.add (10,"pippo")

Non ci vogliono le parentesi:

c.add 10, "pippo"

text1.text c.item(a)

Probabilmente un errore di distrazione:

text1.text = c.item(a)

Solo per precisione..

Ciao a tutti..

[fleone]

Originariamente inviato da MdE2005
Ci sono 2 errori:


Non ci vogliono le parentesi:

c.add 10, "pippo"

Probabilmente un errore di distrazione:

text1.text = c.item(a)

Solo per precisione..

Ciao a tutti..

grazie!... effettivamente .. avevo sonno.. volevo giusto rispondere a Stefano per correttezza. Comunque, in definitiva.. ecco il codice completo, giusto per chi vuole fare copia/incolla:

Dim a As String
Dim a2 As New Collection
Dim chiave As String

chiave = "a"

a2.Add "fabio", "a"


Debug.Print a2(chiave)

'stampa "fabio" nella finestra immediata di debug

Ciao e grazie a tutti.