发现一个很奇怪的现象--关于VB程序的内存占用

原创 2005年04月23日 00:56:00

我们先看看下面这个简单的程序:
一个form,没有任何控件

Private Sub Form_Load()
Me.WindowState = 1
Me.Hide
End Sub


我们把这个程序稍作修改,加入一个timer控件:

Dim formhide As Boolean

Private Sub hideform()
formhide = True
Me.WindowState = 1
Me.Hide
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If formhide = False Then
hideform
Timer1.Enabled = False
End If
End Sub


你认为哪个程序占用的内存资源少呢?
大家肯定会说是第一个程序,因为第二个程序用了一个Timer控件来调用hideform这个过程,这绝对是多此一举。一开始我也这么认为。
但事实上第二个程序占用的内存比第一个少!不信你可以试试:
建立两个工程Project1.vbp和Project2.vbp,Project1里是form1,Project2里面是form2
在form2里面加入一个timer控件,然后在form1和form2中分别输入以上代码
编译成Project1.exe和Project2.exe
运行这两个程序打开windows任务管理器,找到Project1和Project2比较一下
我这里测试的结果是Project1占用4096K的内存,而Project2只占用1020K!

程序是怎样跑起来的-第05章 内存和磁盘的亲密关系

第05章 内存和磁盘的亲密关系 热身问题 1:存储程序的方式指的是什么?     在存储装置中保存程序,并逐一运行的方式。现代计算机采用的就是存储程序方式。 2:...

windbg解决程序CPU占用率高,内存占用时高时低现象

用windbg attach 该进程, Microsoft (R) Windows Debugger Version 6.11.0001.404 X86 Copyright (c) Micro...

VB小程序-鸡免同笼

  • 2008年10月25日 10:45
  • 6KB
  • 下载

VB小程序-韩信点兵

  • 2008年10月25日 10:48
  • 5KB
  • 下载

WaitForSingleObject的用法-(判断一个程序是否结束)

WaitForSingleObject 的应用   你还再为怎么判断一个程序是否结束而苦恼吗?或许你在想可以用一个循环每隔几秒来判断一次这个进程是否结束,但是这样会有问题,如果间隔时间太短就会很占...

VB有用程序-使用例程序

  • 2009年03月16日 10:19
  • 8.08MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:发现一个很奇怪的现象--关于VB程序的内存占用
举报原因:
原因补充:

(最多只允许输入30个字)