请问在VB中它自己能不能回收内存?

hongonline hongonline 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
例如,如果我动态申请几个动态
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)

ixiaokangoks

VB 清空回收站

VB 清空回收站 VB 清空回收站 VB 清空回收站

luoai0303

VB内存释放管理器的代码

VB内存释放管理器的代码带有支持库文件,在VB6下顺利编译,不过程序运行时有些小问题,点击托盘处的图标总是没有反应,高手帮忙修正一下,其它资源完整。

fanpin88

VB 删除文件到回收站

VB 删除文件到回收站 VB 删除文件到回收站

fanjin68

清空回收站代码 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

qq_39849399
评论 12
收藏 已收藏
分享
返回顶部
hongonline
网络编程 1,502 成员 18,427 内容