Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: almormir en Noviembre 23, 2013, 07:48:32 am

Título: OBTENER VALOR DE VARIABLE DESDE UN STRING
Publicado por: almormir en Noviembre 23, 2013, 07:48:32 am

Hola a tod@s,

Estoy intentando hacer una FUNCION en VB6 que haga esto:
Dim a as String
a="Hello"
msgbox FUNCION("a") ==> "Hello"

Donde el pararametro que se le pase a la funcion sea un string con el nombre de variable de la cual queremos obtener su valor.

Muchas gracias de antemano por ayudarme.

Saludos.

Título: Re:OBTENER VALOR DE VARIABLE DESDE UN STRING
Publicado por: E N T E R en Noviembre 23, 2013, 09:42:29 am

Código: (VB) [Seleccionar]

Public Function xObtener(ByVal xVar As String) As String

    xObtener = xVar
   
End Function


Private Sub Command1_Click()
   
    MsgBox xObtener("hola")
   
End Sub

Ojala te sirva

Título: Re:OBTENER VALOR DE VARIABLE DESDE UN STRING
Publicado por: seba123neo en Noviembre 23, 2013, 12:03:08 pm

vos queres usar el "nombre string" de la variable, para eso esta la funcion CallByName

Código: (VB) [Seleccionar]

Option Explicit

Public vVar1 As String
Public vVar2 As String
Public vVar3 As String

Private Sub Form_Load()
    vVar1 = "Soy el valor de la variable vVar1"
    vVar2 = "Soy el valor de la variable vVar2"
    vVar3 = "Soy el valor de la variable vVar3"
   
    MsgBox CallByName(Me, "vVar1", VbGet)
    MsgBox CallByName(Me, "vVar2", VbGet)
    MsgBox CallByName(Me, "vVar3", VbGet)
End Sub
esto se puede usar para los nombres de los metodos tambien, por lo que vi las variables deben ser public si o si, sino no funciona.

saludos.

Título: Re:OBTENER VALOR DE VARIABLE DESDE UN STRING
Publicado por: almormir en Noviembre 23, 2013, 03:37:15 pm

GRACIAS SEBA123NO
ES LO QUE ESTABA BUSCANDO.

SALUDOS.