把dll合并进exe

[橘子皮...]

Private Function CurrentDomain_AssemblyResolve(ByVal sender As Object, ByVal args As ResolveEventArgs) As System.Reflection.Assembly
        Dim dllName As String = If(args.Name.Contains(","), args.Name.Substring(0, args.Name.IndexOf(","c)), args.Name.Replace(".dll", ""))
        dllName = dllName.Replace(".", "_")
        If dllName.EndsWith("_resources") Then Return Nothing
        Dim rm As System.Resources.ResourceManager = New System.Resources.ResourceManager([GetType]().[Namespace] & ".Properties.Resources", System.Reflection.Assembly.GetExecutingAssembly())
        Dim bytes As Byte() = CType(rm.GetObject(dllName), Byte())
        Return System.Reflection.Assembly.Load(bytes)
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim currentDomain As AppDomain
        currentDomain = AppDomain.CurrentDomain
        AddHandler currentDomain.AssemblyResolve, AddressOf CurrentDomain_AssemblyResolve

        InitializeComponent()
    End Sub

参考c# http://blog.csdn.net/lin381825673/article/details/39122257 这个人的写法，改成的vb.net，但是不可用，哪里弄错了？

[stevenjin]

报什么错了呢

[threenewbee]

是不是引用的没有包含全？或者资源名不对。看下错误提示