Lo subo mañana temprano en este mismo post, voy de salida. !
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Function CargarLibreriaMemoria(ByVal sender As Object, ByVal args As ResolveEventArgs) As Assembly
Dim vStream As Stream = Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("WindowsApplication1.ClassLibrary1.dll")
IF vStream = Null Then
MessageBox.Show("Ups stream es null")
End IF
Dim vBuffer As Byte() = New Byte(vStream.Length - 1) {}
vStream.Read(vBuffer, 0, vBuffer.Length)
Dim vLibreria As Assembly = Assembly.Load(vBuffer)
Return vLibreria
End Function
Cita de: [D4N93R] en 16 Septiembre 2010, 17:34 PM
No lo hagas en otro post, lo editas en el primero.
static Assembly CurrentDomain_AssemblyResolve(object sender, ResolveEventArgs args)
{
Stream s = Assembly.GetExecutingAssembly().GetManifestResourceStream("LoadAssembly.UserControls.dll");
return Assembly.Load(new BinaryReader(s).ReadBytes((int)s.Length));
}