vb para operar código javascript en HTML

Atenuar código como objeto

Establecer código = CreateObject("ScriptControl")

code.Language = "JavaScript"

Compruébalo Cómo usar VBS ScriptControl

Ejecución dinámica de código VB/VBS

A veces necesitamos ejecutar dinámicamente un código de tipo cadena en el programa, similar a la función eval en js,

Las siguientes acciones satisfacen este requisito.

(Una cosa a tener en cuenta es que ScriptControl llama a vbs y algunas funciones de vb no se pueden usar, como val)

Necesitamos usar ScriptControl

En el componente Agregar MS Script Control 1.0 en el formulario

Agregar un MS Script Control en el formulario

Utilizar de la siguiente manera:

ScriptControl1.Language = "VBScript" 'Definir lenguaje

ScriptControl1.AddObject "Text1", Text1 'Agrega un control, de lo contrario no se puede llamar durante la ejecución.

'Simplemente agrega los controles que necesites

ScriptControl1.ExecuteStatement ("Text1.Text=""12345""") 'Declaración de ejecución

También puedes usar ScriptControl1.AddCode para agregar funciones

Por ejemplo:

ScriptControl1. AddObject "Label1", Label1

ScriptControl1.AddCode "sub Test() label1=""hello"" end sub" 'Define una prueba de función

ScriptControl1.Run ("test ") 'La función de llamada test puede incluso agregar parámetros a la función agregada, como:

ScriptControl1.AddObject "Label1", Label1

ScriptControl1.AddCode " sub test(str)" amp; vbCrLf amp; " label1=str " amp; vbCrLf amp; " end sub"

ScriptControl1.Run "test", "Hello" 'El segundo parámetro es una matriz variante , utilizado Pasar parámetros de prueba de función