请问在VB中它自己能不能回收内存?
private obj1 as MyClass
private obj2 as MyClass
'申请空间
set obj1=new MyClass
set obj2=new MyClass
.........
.......
'释放空间
set obj1=nothing
set obj2=nothing
请问有没有自己显式地释放空间?好象在现在所有的程序,都是没有人这样做的,不像C++
相关推荐
VB 回收站管理及清空
VB 回收站管理及清空 你看到的文件来自:E动天下(http:/www.2e3.org)
VB 清空回收站
VB 清空回收站 VB 清空回收站 VB 清空回收站
VB内存释放管理器的代码
VB内存释放管理器的代码带有支持库文件,在VB6下顺利编译,不过程序运行时有些小问题,点击托盘处的图标总是没有反应,高手帮忙修正一下,其它资源完整。
VB 删除文件到回收站
VB 删除文件到回收站 VB 删除文件到回收站
清空回收站代码 VB.txt
VERSION 5.00 Begin VB.Form Form1 Caption = "清空回收站" ClientHeight = 2595 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 Icon = "Form1.frx":0000 LinkTopic = "Form1" ScaleHeight = 2595 ScaleWidth = 4680 StartUpPosition = 1 '所有者中心 Begin VB.CommandButton Command1 Caption = "清空回收站" Height = 810 Left = 1020 Style = 1 'Graphical TabIndex = 1 Top = 840 Width = 1200 End Begin VB.CommandButton Command2 Caption = "退出" Height = 810 Left = 2385 TabIndex = 0 Top = 840 Width = 1200 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False '函数声明 Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" _ (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long Private Const SHERB_NOCONFIRMATION = &H1; Private Const SHERB_NOPROGRESSUI = &H2; Private Const SHERB_NOSOUND = &H4; Private Sub Form_Load() '为按钮加载图标 Command1.Picture = LoadPicture(App.Path & "\full.ico") End Sub Private Sub Command1_Click() Dim myval As Long ' 清空回收站 myval = SHEmptyRecycleBin(Form1.hwnd, "", SHERB_NOPROGRESSUI) If myval 0 Then myval = SHUpdateRecycleBinIcon() End If '为按钮加载图标 Command1.Picture = LoadPicture(App.Path & "\empty.ico") MsgBox "回收站已被清空!", vbInformation, "【提示信息】" End Sub Private Sub Command2_Click() End End Sub


网络编程
