Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

203 - Ejemplos de Microsoft Script control

<Volver> - Anterior - Siguiente

Ejemplos de Microsoft Script control

Este control llamado Microsoft Script Control, nos permite ejecutar código de Script desde nuestras apicaciones.

Los lenguajes que puede interpretar son dos: JavaScript y y VBScript .

Para agegarlo a un nuevo proyecto, hay que marcarlo desde la ficha Referencias :

vista de la venta de referencias de visual basic para añadir el componente M Script control

Este ejemplo utiliza el método AddCode del componente Microsoft Script para ejecutar el código escrito en el TextBox, en la captura ejecuta un bucle

También se especifica en la propiedad Language, el lenguaje a utilizar: vbScript o JavaScript

vista del formulario con el contro textbox que contiene el código a ejecutar

Colocar un Text1, un Command1, un Command2 y el código en un formulario:

'******************************************* 'Nota: Agregar desde el menú referencias _ ---->> Microsoft Script Control '******************************************* Dim o_Script As MSScriptControl.ScriptControl Private Sub Form_Load() ' Inicializa la variable para usar el ScriptControl Set o_Script = New MSScriptControl.ScriptControl ' Establece como lenguaje VBScript o_Script.Language = "VBScript" o_Script.AddObject "Form1", Form1 Command1.Caption = " Ejecutar código" Command2.Caption = " Limpiar textBox" End Sub Private Sub Command1_Click() ' Agrega el código del text1, es decir lo ejecuta On Error GoTo ErrSub: o_Script.AddCode Text1 Exit Sub 'Error ErrSub: MsgBox Err.Description, vbCritical Err.Clear End Sub Private Sub Command2_Click() 'Limpiar textbox Text1 = "" End Sub

Este otro ejemplo es similar al anterior, pero utiliza el método Eval para evaluar una expresión ( la que se escriba en el TextBox )

Este método devuelve / retorna el resultado y luego se visualiza en un MsgBox

vista del ejemplo utilizando el me´todo Eval del componente M Script Control

Código fuente

Dim o_Script As MSScriptControl.ScriptControl Private Sub Form_Load() ' Inicializa la variable para usar el ScriptControl Set o_Script = New MSScriptControl.ScriptControl ' Establece como lenguaje VBScript o_Script.Language = "VBScript" o_Script.AddObject "Form1", Form1 Command1.Caption = " Ejecutar código" Command2.Caption = " Limpiar textBox" End Sub Private Sub Command1_Click() Dim Valor As Variant ' Le pasa a Eval el contendo de Text1 On Error GoTo ErrSub: Valor = o_Script.Eval(Text1) 'visualiza el resultado MsgBox Valor, vbInformation Exit Sub 'Error ErrSub: MsgBox Err.Description, vbCritical Err.Clear End Sub Private Sub Command2_Click() 'Limpiar textbox Text1 = "" End Sub

Ejemplo del método Run del ScriptControl

Este otro ejemplo primero agrega el código de Text1 ( que tiene definida una rutina llamada Sumar) mediante el método AddCode, luego ejecuta el método Run pasandole el nombre de la rutina.

vista del textbox con el Script a ejecutar

Codígo fuente en un formulario:

Option Explicit 'Variable de objeto para usar ScriptControl Dim obj_Script As ScriptControl Private Sub Command1_Click() Set obj_Script = New ScriptControl obj_Script.Language = "VBScript" obj_Script.AddObject "Form1", Form1 obj_Script.AddCode Trim(Text1) obj_Script.Run "Sumar" End Sub Private Sub Form_Load() Me.Caption = " Ejemplo 2 de Script Control " Command1.Caption = " Ejecutar Script " End Sub Private Sub Form_Unload(Cancel As Integer) Set obj_Script = Nothing End Sub

Recursos vb - Enlaces Relacionados

Función Api que permite ejecutar código en tiempo de ejecución como un String

Buscar en Recursos vb