Llamar a un objecto Urgente
Hola chicas y chicos.
Esta es mi pregunta, debido a la necesidad de generar un menu dinámico, quisiera saber como puedo llamar a un formulario, dada una variable.
Me explico tengo una variable con el nombre varForm tipo string que contiene el nombre del formulario, esta al colocarla en el programa con el siguiente comando
set m_form = new varForm
Da el siguiente error no hace referencia a un objecto.
Si es posible que yo pueda ejecutar el comando show de un formulario dada una variable, hagamenla llegar lo más pronto posible.
Gracias...
Esta es mi pregunta, debido a la necesidad de generar un menu dinámico, quisiera saber como puedo llamar a un formulario, dada una variable.
Me explico tengo una variable con el nombre varForm tipo string que contiene el nombre del formulario, esta al colocarla en el programa con el siguiente comando
set m_form = new varForm
Da el siguiente error no hace referencia a un objecto.
Si es posible que yo pueda ejecutar el comando show de un formulario dada una variable, hagamenla llegar lo más pronto posible.
Gracias...
1 Respuesta
Respuesta de tango
1
Tu problema se solucionaría de la siguiente manera, utilizando macros.
Por ejemplo.
xnmb_form="nmb_form"
xcadena="thisform."+xnmb_form
es aca donde pones la macro en funcion
&xcadena
de esta forma podenes hacer referencia
si queres hacer un show
xnmb_form="nmb_form"
xcadena=xnmb_form + ".show"
&xcadena
Espero que te sirva en caso de que así te agradecería que evalúes mi respuesta
Por ejemplo.
xnmb_form="nmb_form"
xcadena="thisform."+xnmb_form
es aca donde pones la macro en funcion
&xcadena
de esta forma podenes hacer referencia
si queres hacer un show
xnmb_form="nmb_form"
xcadena=xnmb_form + ".show"
&xcadena
Espero que te sirva en caso de que así te agradecería que evalúes mi respuesta
Private Sub Command1_Click(Index As Integer)
xnmb_form = "frmcperfilpersona"
xcadena = "thisform." + xnmb_form
Select Case Index
Case 0
&xcadena
End Select
end sub
Realice la siguiente prueba y me dice error de sintaxis, por favor si me puedes enviar un ejemplo de lo agradecería.
xnmb_form = "frmcperfilpersona"
xcadena = "thisform." + xnmb_form
Select Case Index
Case 0
&xcadena
End Select
end sub
Realice la siguiente prueba y me dice error de sintaxis, por favor si me puedes enviar un ejemplo de lo agradecería.
STORE SET('TALK') TO
gcGuardarTalk
SET TALK OFF
*
*Código adicional de *programa.
*
SET TALK &gcGuardarTalk
*Restaura la configuración *original de TALK.
De esta manera utilizas la macro.
Aplicado a tu ejemplo tienes que adecuar una cadena como lo estas haciendo en ejemplo que me mandaste. Si no te sale puedes mandarme el trozo de código que te da el error
gcGuardarTalk
SET TALK OFF
*
*Código adicional de *programa.
*
SET TALK &gcGuardarTalk
*Restaura la configuración *original de TALK.
De esta manera utilizas la macro.
Aplicado a tu ejemplo tienes que adecuar una cadena como lo estas haciendo en ejemplo que me mandaste. Si no te sale puedes mandarme el trozo de código que te da el error
El código lo estoy realizando en visual basic 6.0, por lo tanto no existen estas instrucciones, por favor si me puedes ayudar te lo agradecería, de todas manera gracias eres un experto atento y colaborador si tengo que realizar una puntuación te daría 5 por la colaboración y compresión a mi problema
Lamento informarte que en visual basic no podre ayudarte. Y tienes razón las macros en visual basic no existen, espero que soluciones tu problema y que sigas bien chau chau.
Ya encontré como hacerlo la forma es la siguiente
Existe una colección llamada forms
y esta posee una function add
en conclusión
xx = "Formulario"
set yy = forms.add xx
Existe una colección llamada forms
y esta posee una function add
en conclusión
xx = "Formulario"
set yy = forms.add xx
Siempre es bueno tener en cuenta soluciones para todo tipo de lenguaje.
