vb 清理内存
Private WithEvents WebBrowser1 As WebBrowser
'按一下创建,再按一下移除
Private Sub Command1_Click()
If WebBrowser1 Is Nothing Then
Set WebBrowser1 = Me.Controls.Add("Shell.Explorer.2", "WebBrowser1")
WebBrowser1.Visible = True
WebBrowser1.Navigate "http://www.qxw8.com/"
Else
Me.Controls.Remove WebBrowser1
Set WebBrowser1 = Nothing
End If
End Sub
WebBrowser,,动态装入,用完再动态卸掉,释放内存,避免长时间运行,卡死状态。