vb点虐内存 vbnet内存里的datatable保存进mdb

vb点虐获取内存总量

应用里添加 System.Management

文件前加上

Imports System.Management

     ''' summary

    ''' 获取系统内存大小

    ''' /summary

    ''' returns内存大小（单位Byte）/returns

    Private shared Function GetPhisicalMemory()As Long

        dim searcher = new ManagementObjectSearcher()   '用于查询一些如系统信息的管理对象

        searcher.Query = new SelectQuery("Win32_PhysicalMemory ", "", new string() {  "Capacity" } )'设置查询条件 

        dim collection = searcher.Get()   '获取内存容量 

            dim em = collection.GetEnumerator()

            dim capacity as long= 0

            While (em.MoveNext())

                dim baseObj = em.Current

                If (baseObj.Properties("Capacity").Value IsNot Nothing) Then                    

                    Try

                        capacity += long.Parse(baseObj.Properties("Capacity").Value.ToString())

                    Catch

                        return 0

                    End Try

                End If 

            End While

            return capacity

        End Function

vb点虐 关闭窗口 内存不能释放

1.如果你释放的是托管托管代码的内存，那么托管代码的内存管理是自动的，.NET可以保证我们的托管程序在结束时全部释放。

2.如果是非托管资源时.NET就不能自动管理了，下面是释放非托管资源内存方法

当我们利用如数据库、文件等非托管资源时，就要用到.NET Framework中的标准： IDisposable接口。按照标准，所有有需要手动释放非托管资源的类都得实现此接口。这个接口只有一个方法，Dispose()，不过有相对的 Guidelines指示如何实现此接口，在这里我向大家说一说。实现IDisposable这个接口的类需要有这样的结构：

[Visual Basic]

Public Class Base

Implements IDisposable

Public Overloads Sub Dispose() Implements IDisposable.Dispose

Me.Dispose(True)

GC.SuppressFinalize(Me)

End Sub

Protected Overloads Overridable Sub Dispose(ByVal disposing As Boolean)

If disposing Then

' 托管类

End If

' 非托管资源释放

End Sub

Protected Overrides Sub Finalize()

Me.Dispose(False)

MyBase.Finalize()

End Sub

End Class

Public Class Derive

Inherits Base

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

' 托管类

End If

' 非托管资源释放

MyBase.Dispose(disposing)

End Sub

End Class

我们要实现Dispose方法，实现这个Dispose方法的几个准则：

它不能扔出任何错误，重复的调用也不能扔出错误。也就是说，如果我已经调用了一个对象的Dispose，当我第二次调用Dispose的时候程序不应该出错，简单地说程序在第二次调用Dispose时不会做任何事。这些可以通过一个flag或多重if判断实现。

一个对象的Dispose要做到释放这个对象的所有资源。拿一个继承类为例，继承类中用到了非托管资源所以它实现了IDisposable接口，如果继承类的基类也用到了非托管资源那么基类也得被释放，基类的资源如何在继承类中释放呢？当然是通过一个virtual/Overridable方法了，这样我们能保证每个Dispose都被调用到。这就是为什么我们的设计有一个virtual/Overridable的Dispose方法。注意我们首先要释放继承类的资源然后再释放基类的资源。

因为非托管资源一定要被保障正确释放所以我们要定义一个Finalizer来避免程序员忘了调用Dispose的情况。上面的设计就采用了这种形式。如果我们手动调用Dispose方法就没有必要再保留Finalizer了，所以在Dispose中我们用了GC.SupressFinalize 将对象从Finalizer表去掉，这样再回收时速度会更快。

那么那个disposing和"托管类"是怎么回事呢？是这样：在"托管类"中写所有你想在调用Dispose时让其处于可释放状态的托管代码。还记得我们说过我们不知道托管代码是什么时候释放的吗？在这里我们只是去掉成员对象的引用让它处于可被回收状态，并不是直接释放内存。在"托管类"中这里我们也要写上所有实现了IDisposable的成员对象，因为他们也有Dispose，所以也需要在对象的Dispose中调用他们的 Dispose，这样才能保证第二个准则。disposing是为了区分Dispose的调用方法，如果我们手动调用那么为了第二个准则"托管类"部分当然得执行，但如果是Finalizer调用的Dispose，这时候对象已经没有任何引用，也就是说对象的成员自然也就不存在了（无引用），也就没有必要执行"托管类"部分了，因为他们已经处于可被回收状态了。好了，这就是IDisposable接口的全部了。现在让我们来回想一下，以前我们可能认为有了 Dispose内存就会马上被释放，这是错误的。只有非托管内存才会被马上释放，托管内存的释放由GC管理，我们不用管。

VB点虐“尝试读取或写入受保护的内存。这通常指示其他内存已损坏。”

vb点虐 有专门的托盘图标控件 在工具箱里直接添加一个就可以了 两行代码即可

 NotifyIcon1.Icon = Me.Icon

NotifyIcon1.Visible = True

VB.NET程序如何巧妙释放内存

set xxx=nothing就是把对象占用的空间释放掉。 其他的局部变量都在栈内存,用完会自动释放的

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！