Visual Basic - Programar en tiempo de ejecución...

Life is soft - evento anual de software empresarial
 
Vista:

Programar en tiempo de ejecución...

Publicado por *n4pZt3r* (31 intervenciones) el 16/01/2005 18:07:28
Hola a todos y gracias de antemano por cualquier ayuda que me puedan prestar.

Tengo un textbox (Text1) y un command (cmd1). ahora, lo que yo necesito es que cuando haga click en el cmd1, se ejecute el código tal y como lo he escrito en el text1.
Aver si así me explico mejor:

Private Sub cmd1_Click()
On Error Resume Next

AQUI QUIERO QUE ESTÉ LO QUE YO HAYA ESCRITO EN EL "Text1", QUE SERÁ UN CÓDIGO

End Sub

Por favor ayudenme. Cualquier duda aqui en el foro o a mi correo.
Salu2. *n4pZt3r*
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Programar en tiempo de ejecución...

Publicado por Cecilia Colalongo (3117 intervenciones) el 16/01/2005 18:24:28
Si lo que quieres hacer es similar a la macrosustitución de los lenguajes xBase (&) no se puede exactamente igual.

Puedes utilizar el ScriptControl, definiendo las variables y los objetos que quieres tratar.

En http://msdn.microsoft.com/library/en-us/dnexpvb/html/usingscriptcontrolmethods.asp tienes documentación del control.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Programar en tiempo de ejecución...

Publicado por Benjo (679 intervenciones) el 17/01/2005 20:29:14
También puedes usar la API EbExecuteLine para ejecutar sentencias ecritas en un textbox, en tiempo de ejecución:

Private Declare Function EbExecuteLine Lib "vba6.dll" _
(ByVal pStringToExec As Long, ByVal Foo1 As Long, _
ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long
' Crea un Text1 en el Form1
Private Sub Command1_Click()
dim stCode as string, code as long
stCode="form1.text1.visible=false"
Code = EbExecuteLine(StrPtr(stCode), 0&, 0&, Abs(False)) = 0
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar