Asunto con Vbscript en una aplicacion - VB-MUNDO

Jbom_ · #1 (**permalink**) 24-05-2005, 17:11:49

Estoy haciendo una apli con la que se puede ejecutar scripts.
Lo estoy haciendo con Microsoft Script Control, pero ahora tengo una duda, puedo crear objetos desde el script?? Tipo form, botones etc

acalanto · #2 (**permalink**) 25-05-2005, 20:08:43

No puedes crear un objeto desde cero pero puedes heredar las propieades de las clases de la aplicación (Las que cargues en el control). A partir de aqui si el formulario tiene un determinado botón lo puedes manipular a tu antojo desde VBScript. Además puedes cargar instancias de módulos de clase de la aplicación y utilizarlas.

Jbom_ · #3 (**permalink**) 26-05-2005, 10:41:00

el tema esta en que quiero que sea compatible con un programa en el mercao y ese soft ejecuta una funcion que es sc.write("") y el problema con el que me encuentro es que:

Yo declaro un objeto sc y que hereda mi Clase donde tengo mis funciones pero no puedo poner Write por que es una funcion de visual Bassic.

Como podria hacerlo??

acalanto · #4 (**permalink**) 27-05-2005, 06:43:32

Si declaras e instancias SC públicamente en uno de tus módulos siempre podrás invocar sus propiedadas desded cualquier punto de la aplicación.

'Declarado e Instanciado
Public SC As New <nombrecomponente>

'A partir de este punto si el método WRITE existe y es público, nos debe permitir su uso.

SC.WRITE <sus paámetros>

WRITE a secas es un método de VB pero SC.WRITE es el método WRITE de SC.

Jbom_ · #5 (**permalink**) 27-05-2005, 11:42:56

Gracias por tu ayuda de antemano y por tu paciencia.

Hasta eso he llegado pero el problema es cuando pongo en mi modulo de clase cScripts.cla la funcion WRITE no me deja me da error

Lo hago asi.

En el form_load
Dim myOBJ as New cScript

scriptcontrol.addobject "sc", myOBJ

y luego en cScripts.cla

Public Function Write(byval myVar as string ) as string
-.....
end function

y no me deja, me marca de rojo la linea del write.

acalanto · #6 (**permalink**) 27-05-2005, 12:37:27

Pereo es que no tienes que escribir una función WRITE, claro que te produce un error.

El control Script debe reconocer el objeto SC tal y como lo utilizas desde un módulo o una clase de la aplicación.

Escribe en el propio Script SC.WRITE <loqueproceda>.

Es así de sencillo y me parece que estás mezclando los conceptos.

Jbom_ · #7 (**permalink**) 28-05-2005, 10:54:52

A ver si me entero:

La funcion write no la escribo en el script si no en un modulo de mi programa que se llama cInsomnio. Luego instancio sc a cInsomnio para que pueda llamar desde sc a todas mis funciones de cInsomnio peor no puedo ponerle el nombre de Write a ninguna funcion por que es un metodo de VB.

No se si me estoy liando.

acalanto · #8 (**permalink**) 28-05-2005, 13:53:25

Ya entiendo. Claro que no puedes crear una función Write ni MID ni OPEN ni ninguna otra palabra reservada para el lenguaje.

La solución es fácil y te aconsejo que no te compliques la vida; Nombra la función como mWRITE o strWrite y así no te añadirás problemas innecesarios.

Jbom_ · #9 (**permalink**) 29-05-2005, 18:30:22

El tema de hacerlo es para guardar compatibilidad con otro soft del mercado que en su scripts si usa Write y es VBscript.

acalanto · #10 (**permalink**) 29-05-2005, 18:38:47

Pero JBon, es que el WRITE del VBScript será el que él tiene por propiedad y sirve para grabar datos en dispositivos...

Dudo que un software disponga de su propio WRITE ya que es una palabra reservada de VB tanto en modelos compilados como en Scripting.

Creo que estás generando un problema donde no existe porque además, si la clase permitiera incorporar una función WRITE en el Script deberías referirte a ella como <objeto>.WRITE(), dónde <objeto> es el nombre con el que has cargado la clase en el Scripting.