110,537
社区成员
发帖
与我相关
我的任务
分享
GC.Collect()
Panel2.Controls.Clear()
asm = Nothing//每次加载前全局变量置为nothing
obj1 = Nothing//每次加载前全局变量置为nothing
'DeleteDir(Application.StartupPath)
'CopyDir("E:/实验室项目/毕业项目/毕业设计_冰冷可靠性测试系统/0.冰冷可靠性测试系统/TestSystem - 全面版本--冰箱/Test/bin/Debug_冰箱/", Application.StartupPath)
Try
asm = System.Reflection.Assembly.LoadFrom("E:/实验室项目/毕业项目/毕业设计_冰冷可靠性测试系统/0.冰冷可靠性测试系统/TestSystem - 全面版本--冰箱/Test/bin/debug/Debug_冰箱/MainControl5.12.dll")
Dim b() As Type = asm.GetTypes()
Dim classtemp As Type = asm.GetType("MainControl5._12.MainUserControl")
obj1 = asm.CreateInstance(classtemp.FullName)
obj1.Dock = DockStyle.Fill
obj1.InitApplicationStartPath(Application.StartupPath + "\Debug_冰箱\")
'CallByName(obj, "InitApplicationStartPath", vbMethod, Application.StartupPath + "\Debug_冰箱\") '这里特别注意CallByName的用法
obj1.Dock = DockStyle.Fill
If obj1.Init() = 0 Then
Me.Close()
System.Environment.Exit(-1)
Exit Sub
End If
Panel2.Controls.Add(obj1)
Catch ex As Exception
End Try
通过不停点击按钮,确实内存在不断的累加。