فیلم زیر را در یوتوب دیدم و کد زیر را اعمال کردم و با خطای داخل عکس پیوست مواجه شدم :
https://youtu.be/a57wDNFZgMg?si=Q7kdypXNV-LB1jeF
Partial Friend Class MyApplication
Private WithEvents CurrentDomain As AppDomain = AppDomain.CurrentDomain
Private Function DomainCheck(sender As Object, args As System.ResolveEventArgs) Handles CurrentDomain.AssemblyResolve
Using Stream As IO.Stream = System.Reflection.Assembly.GetExecutingAssembly(). GetManifestResourceStream _
(GetType(WinData_Form).Namespace + ".Ionic.Zip")
Dim assemblydata As Byte() = New Byte(Stream.Length - 1) {}
Stream.Read(assemblydata, 0, assemblydata.Length)
Return System.Reflection.Assembly.Load(assemblydata)
End Using
End Function
End Class
Screenshot_2024_03_07_22_57_28.jpg