Hola, buenas tardes.
No entiendo tu pregunta, la variable objClase del ejemplo es una instancia de la clase creada. ¿Te referís a eso?
Saludos.

Tengo una pregunta, es posible crear variables del tipo de este tipo de clase creada.

¡Muchas gracias!

El código que uso es el siguiente:

Private Function GenerarInstanciaVBNet(ByVal pCodigo As String) As Object
        Dim mResultadoCompilacion As System.CodeDom.Compiler.CompilerResults
        Try
            Dim mVBProvider As VBCodeProvider = New VBCodeProvider

            Dim mCompilador As System.CodeDom.Compiler.ICodeCompiler = mVBProvider.CreateCompiler()
            Dim mParametros As System.CodeDom.Compiler.CompilerParameters = New System.CodeDom.Compiler.CompilerParameters

            mParametros.ReferencedAssemblies.Add("System.dll")
            mParametros.ReferencedAssemblies.Add("System.xml.dll")
            mParametros.ReferencedAssemblies.Add("System.data.dll")
            mParametros.ReferencedAssemblies.Add("DataGenBL.dll")
            mParametros.CompilerOptions = "/t:library"
            mParametros.GenerateInMemory = True
            Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder("")
            sb.Append("Imports System" & vbCrLf)
            sb.Append("Imports System.Xml" & vbCrLf)
            sb.Append("Imports System.Data" & vbCrLf)
            sb.Append("Imports System.Data.SqlClient" & vbCrLf)
            sb.Append("Imports Microsoft.VisualBasic" & vbCrLf)
            sb.Append("Imports DataGenBL" & vbCrLf)

            sb.Append("Namespace GeneradorDatos  " & vbCrLf)
            sb.Append("Class ClaseEval " & vbCrLf)
            sb.Append("public Function  EvaluarCodigo(_Fila as TablaGeneracion) as Object " & vbCrLf)
            'sb.Append("YourNamespace.YourBaseClass thisObject = New YourNamespace.YourBaseClass()")

            sb.Append(pCodigo & vbCrLf)
            sb.Append("End Function " & vbCrLf)
            sb.Append("End Class " & vbCrLf)
            sb.Append("End Namespace" & vbCrLf)
            mResultadoCompilacion = mCompilador.CompileAssemblyFromSource(mParametros, sb.ToString())
            Dim mAssembly As System.Reflection.Assembly = mResultadoCompilacion.CompiledAssembly
            Return mAssembly.CreateInstance("GeneradorDatos.ClaseEval")

        Catch ex As IO.FileNotFoundException
            If Not IsNothing(mResultadoCompilacion) Then
                Throw New EvaluadorColumnaCompilationException("Errores de compilación", ex, mResultadoCompilacion.Errors)
            Else
                Throw New Exception("Error de compilación")
            End If
        Catch ex As Exception
            Dim exBase As Exception = ExcepcionPrimitiva(ex)
            Throw New Exception(exBase.Message & " " & exBase.Source & " " & exBase.TargetSite.Name)
        End Try
    End Function

_Fila es un parámetro que le paso en tiempo de ejecución del tipo TablaGeneracion (definido en la misma BL)

Si por ejemplo paso como código lo siguiente:

If _Fila.Columnas("Sexo").DatoGenerado = 1 Then
    Return _Fila.ColumnasGeneradas("Nombre masculino").DatoGenerado & " " & _Fila.Columnas("Apellido").DatoGenerado
Else
    Return _Fila.ColumnasGeneradas("Nombre de mujer").DatoGenerado & " " & _Fila.Columnas("Apellido").DatoGenerado
End If

Debería compilarme el siguiente código:

Imports System
Imports System.Xml
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Imports DataGenBL
Namespace GeneradorDatos  
Class ClaseEval 
public Function  EvaluarCodigo(_Fila as TablaGeneracion) as Object 
If _Fila.Columnas("Sexo").DatoGenerado = 1 Then
    Return _Fila.ColumnasGeneradas("Nombre masculino").DatoGenerado & " " & _Fila.Columnas("Apellido").DatoGenerado
Else
    Return _Fila.ColumnasGeneradas("Nombre de mujer").DatoGenerado & " " & _Fila.Columnas("Apellido").DatoGenerado
End If
End Function 
End Class 
End Namespace

Desde la aplicación Winforms anda perfecto, pero cuando se invoca desde la aplicación de sevicios aparece el error.

Ya verifiqué que estén todas las referencias bien.
Alguna ayuda?
Gracias

Hola, Lorena.
No podes «llamar» a una clase, pero si a sus métodos.
Para esto podrías utilizar reflection, haciendo algo como esto:

miClase miObjeto = new miClase();
Type tipoDeMiClase = typeof(miClase);
foreach(DataRow r in Dt.rows)
{
	MethodInfo miMetodo = tipoDeMiClase.GetMethod(r["Nombre_Metodo"]);
	miMetodo.Invoke(miObjeto, new object[]{ Parametro1, Parametro2 });
}

Seguro con esto podés hacer lo que necesitás.
Por favor después contame si te sirvió.
Saludos.

foreach(DataRow r in Dt.rows)
{
     r["Nombre_Clase"](Parametro1, Parametro2); // Algo asi... pero cual es la sintaxis para que este texto se interprete o se considere como el nombre del metodo o clase y lo ejecute
}

ayuda porfa 🙂

Entonces podrías hacer algo así (reemplazando el tipo «MiPagina» por la clase de tu página):

string strClase =
    "using System;" +
    "namespace MiNamespace  {" +
    "public class MiClase {" +
        "public void Ejecutar(MiPagina miPagina) {" +
            "return miPagina.LbSarlaft" + Num + ".Text=\"" + serverFileName + '"' +
    ";}}}";

y pasarle por parámetro una referencia de tu página:

objClase.GetType().InvokeMember("Ejecutar", BindingFlags.InvokeMethod, null, objClase, new object[] { this });

Espero te sirva.
Saludos.

string NombreControl = Sarlaft.ID;
string Num = NombreControl.Replace(«FSarlaft»,»»);
string NombreSarlaft= «LbSarlaft»+Num+».Text=»+serverFileName+»;»;
Donde sarlaft es el nombre del input file y num traeria el numero final , lo que quiero es ejecutar el string NombreSarlaft

Hola, David.
Tu clase ya está compilada e instanciada (es donde se está ejecutando), por lo cual, no podés cambiarla.
¿Cuál es el motivo de necesitar ejecutar el código dentro de tu clase?
Saludos.

Tengo una pregunta , y si quisiera hacer solo una linea de código y que se ejecute dentro de la misma clase y no en otra ?

Hola, Edgar.
Yo creo que para eso te conviene utilizar la clase ExpandoObject, que te permite agregarle propiedades a un objeto del tipo dynamic.
Por ejemplo, podrías hacer algo así:

dynamic employee, manager;

employee = new ExpandoObject();
employee.Name = "John Smith";
employee.Age = 33;

manager = new ExpandoObject();
manager.Name = "Allison Brown";
manager.Age = 42;
manager.TeamSize = 10;

Fijate que las propiedades Name, Age y TeamSize no existen en la definición de la clase ExpandoObject, sino que las crea dinámicamente.
Espero te sirva.
Suerte!

No es que quiera el codigo hecho ya bastante has hecho con este magnifico aporte , solo ideas para poder implementar algo solido.

Hola, Erik.
Creo que deberías hacer dos tablas, una para la definición de los campos y otra para los valores, pero no entiendo la duda que tenés. Te pido que me detalles cuál es la consulta.
Saludos.

Me pidieron que en una tabla pueda agregar en un campo el nombre y el tipo de un atributo. ej.

NombreCliente – string
EdadCliente – int
DocumentoIndentidad -string

y en un formulario en tiempo de ejecución se me pueda crear esos registros de la tabla como atributos en el formulario o en una clase pero que sea en tiempo de ejecución.
Esto con la finalidad de que la clase clientes sea dinamica y si le agrego registros en la tabla estos se puedan crear como atributos en mi formulario.

saludos

a la espera de tu respuesta

No tengo un ejemplo para VB.Net, pero no debería ser muy dificil de crear, sólo debes hacer que en lugar de crear una clase con la sintaxis de C# la cree con la de VB.NET y reemplazar la linea que dice

CodeDomProvider objCompiler = CodeDomProvider.CreateProvider("CSharp");

por

Dim objCompiler As CodeDomProvider = CodeDomProvider.CreateProvider("VB");

En vbscript es aún más facil, simplemente debes utilizar la función Eval para que te devuelva el resultado de lo que quieras ejecutar, por ejemplo, en el código que escribí se le pasa una fórmula a la clase para que la ejecute y devuelva el resultado, en VBScript sólo hay que hacer algo así:

Dim formula, resultado
formula = "2+2"
resultado = Eval(formula)

Suerte!

Muchas gracias por tu aporte, Edmundo!

de nada! Sólo corregir un error, en el ejemplo que dí, es objParametros.ReferencedAssemblies.Add(«System.dll»), por supuesto.

Muchas gracias por tu aporte, Eduard!
Saludos.

estuve peleando la semana pasada con el código, ya que como a Carlos, a mí me generaba el mismo error. Finalmente lo solucioné añadiendo a la colección ReferencedAssemblies del objeto objParametros todas las librerias necesarias ( objParametros.Add(«System.dll») )

Espero sirva de ayuda,
Gracias

He probado el proyecto que me ha enviado y funciona perfectamente, no se que estare haciendo mal con el mío.

Estare escarbando en los códigos y comparando las cosas que ha hecho y que hice.
Muchas Gracias por el Support.

Saludos ooordiales desde Barcelona
Carlos de la Barrera

Carlos:
Acabo de probar tu clase con las modificaciones que te comenté y a mi me funciona bien. Te dejo aquí el proyecto de ejemplo pero utilizando tu clase para que lo pruebes.
Por favor comentame como te fue.
Saludos.

Lo he probado y el resultado es el mismo.

Saludos
Carlos.

Carlos:
El otro punto que veo que, según creo, está erroneo es que la clase a crear dinámicamente es del tipo «static», por lo cual no se puede instanciar. Prueba utilizando esta linea (es igual a la tuya pero sin el static) y cuéntame como te fue.

strClase =
"using System;" +
"namespace wrappermanagerDyn {" +
"public class ClassCalculus {" +
"public object Resolver() {" +
"return " +
Formula +
";}}}";

Saludos.

He cambiado el namespace de la clase linea strClase, ha quedado así.
strClase = «using System;» + «namespace wrappermanagerDyn {» + «public static ClassCalculus {» + «public object Resolver() {» + «return » + Formula + «;}}}»

También he cambiado el namespace en la linea del CreateInstance, ha quedado así.
object objClase = objResultados.CompiledAssembly.CreateInstance(«wrappermanagerDyn.ClassCalculus», false, BindingFlags.CreateInstance, null, null, null, null);

y aparece el error nuevamente. El error se produce en tiempo de ejecución. y señala la linea,
object objectClase = …

Estoy instanciando está clase desde otra, la cual toma la formula desde un textbox.

Muchas Gracias por su ayuda.
saludos
Carlos de la Barrera.

Carlos:
Creo que el problema está en que tanto la clase precompilada (ClassCalculus) como la que compilas en tiempo de ejecución tienen el mismo nombre de namespace, clase y método, por lo tanto el CLR no sabe que ensamblado utilizar. Prueba cambiando el namespace de la clase a crear, por ejemplo, por «wrappermanagerDyn» tanto en el string (strClase) como al momento de crear la instancia con el método CreateInstance.
Por favor cuéntame si funcionó.
Saludos.

Hoy he estado trabajando con su código y básicamente he creado la clase en el namespace de mi proyecto y pegado sú codigo pero me sale una excepción, seguro que estoy haciendo algo mal.

la excepcion que me aparece es la siguiente : No se puede cargar el archivo o ensamblado ‘file:///C:\Users\Carlos\AppData\Local\Temp\rctk1y4p.dll’ ni una de sus dependencias. El sistema no puede encontrar el archivo especificado.

Este es el código de la clase, estoy trabajando en VS2008: Espero no molestarlo.
muchas gracias
saludos
Carlos de la B.

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.CodeDom.Compiler;
using System.Reflection;

namespace wrappermanager
{
public static class ClassCalculus
{
//codigo por: Gustavo Cantero
//http://www.programandoamedianoche.com

public static object Resolver(string Formula)
{
//Parámetros del compilador
CompilerParameters objParametros = new CompilerParameters()
{
GenerateInMemory = true,
GenerateExecutable = false,
IncludeDebugInformation = false
};

//Clase
string strClase = «»;
strClase = «using System;» + «namespace wrappermanager {» + «public class ClassCalculus {» + «public object Resolver() {» + «return » + Formula + «;}}}»;

//Compilo todo y ejecuto el método
CodeDomProvider objCompiler = CodeDomProvider.CreateProvider(«CSharp»);

CompilerResults objResultados = objCompiler.CompileAssemblyFromSource(objParametros, strClase);
object objClase = objResultados.CompiledAssembly.CreateInstance(«wrappermanager.Formula», false, BindingFlags.CreateInstance, null, null, null, null);

return objClase.GetType().InvokeMember(«Resolver», BindingFlags.InvokeMethod, null, objClase, null);
}
}
}