Ejemplos usando el Api de windows para Visual basic

60 - Api EbExecuteLine para poder ejecutar cadenas o líneas como instrucciones (Macrosustitución)

Actualizado

Nota importante: Esta función no se puede utilizar, o por lo menos yo no se como , cuando el programa ya se encuentra compilado, es decir solo al parecer funciona desde el IDE de visual basic. Si se ejecuta desde el Exe genera una exepción y se cierra completamente el programa:

Una opción , puede ser usar el control Microsoft Script control, o este proyecto open source creado por David Zimmer llamado vb Active script

La Función Api EbExecuteLine permite ejecutar instrucciones en Visual Basic mediante una cadena de caracteres, es decir interpretar un string y ejecutarlo como una instrucción.

La única desventaja de esto, es que para poder ejecutar dicha Api, hay que referenciar a una dll llamada vba6.dll, que creo que no viene instalada en el sistema operativo, por lo tanto para poder usarla, al compilar el proyecto obviamente abría que incluirla en el paquete de instalación.

Pero aclaro que de esto no estoy seguro ya que no lo he verificado.

Nota: Otra forma de ejecutar instrucciones en visual Basic de esta forma e inclusive mas completa, es utilizando el control llamado Microsoft script control

La función es muy simple de utilizar, solo hay que pasarle al primer parámetro la línea a ejecutar.

Ejemplos

Este ejemplo, al presionar un command1, ejecuta un bucle For-Next y va mostrando el valor en un MsgBox:

'Declaración del api EbExecuteLine 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 Dim cadena As String Dim code As Long Private Sub Command1_Click() 'Hacemos un bucle for de 1 a 10 y mostramos el valor cadena = "For i = 0 to 10:msgbox " & Chr(34) & "valor de i: " & Chr(34) & "&i:next" code = EbExecuteLine(StrPtr(cadena), 0&, 0&, Abs(False)) = 0 End Sub

Este ejemplo, cambia el color de fondo del formulario

'Declaración del api EbExecuteLine 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 Private Sub Command2_Click() cadena = "Form1.Backcolor = VbBlue" code = EbExecuteLine(StrPtr(cadena), 0&, 0&, Abs(False)) = 0 End Sub

Este otro ejecuta una rutina llamada "Sumar" y muestra el resultado:

'Api EbExecuteLine 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 Private Sub Command3_Click() Dim cadena As String cadena = "Form1.Sumar" code = EbExecuteLine(StrPtr(cadena), 0&, 0&, Abs(False)) = 0 End Sub Private Sub Sumar() MsgBox 10 + 20 End Sub

Enlaces relacionados

Ejemplos del Microsft Script control

Buscar en Recursos vb