應(yīng)用里添加?System.Management
創(chuàng)新互聯(lián)專注于工布江達企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站建設(shè),商城網(wǎng)站建設(shè)。工布江達網(wǎng)站建設(shè)公司,為工布江達等地區(qū)提供建站服務(wù)。全流程按需定制制作，專業(yè)設(shè)計，全程項目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)
文件前加上
Imports?System.Management
'''?summary
'''?獲取系統(tǒng)內(nèi)存大小
'''?/summary
'''?returns內(nèi)存大?。▎挝籅yte）/returns
Private?shared?Function?GetPhisicalMemory()As?Long
dim?searcher?=?new?ManagementObjectSearcher()???'用于查詢一些如系統(tǒng)信息的管理對象
searcher.Query?=?new?SelectQuery("Win32_PhysicalMemory?",?"",?new?string()?{?"Capacity"?})'設(shè)置查詢條件?
dim?collection?=?searcher.Get()???'獲取內(nèi)存容量?
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
1.如果你釋放的是托管托管代碼的內(nèi)存，那么托管代碼的內(nèi)存管理是自動的，.NET可以保證我們的托管程序在結(jié)束時全部釋放。
2.如果是非托管資源時.NET就不能自動管理了，下面是釋放非托管資源內(nèi)存方法
當(dāng)我們利用如數(shù)據(jù)庫、文件等非托管資源時，就要用到.NET Framework中的標(biāo)準(zhǔn)： IDisposable接口。按照標(biāo)準(zhǔn)，所有有需要手動釋放非托管資源的類都得實現(xiàn)此接口。這個接口只有一個方法，Dispose()，不過有相對的 Guidelines指示如何實現(xiàn)此接口，在這里我向大家說一說。實現(xiàn)IDisposable這個接口的類需要有這樣的結(jié)構(gòu)：
[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
我們要實現(xiàn)Dispose方法，實現(xiàn)這個Dispose方法的幾個準(zhǔn)則：
它不能扔出任何錯誤，重復(fù)的調(diào)用也不能扔出錯誤。也就是說，如果我已經(jīng)調(diào)用了一個對象的Dispose，當(dāng)我第二次調(diào)用Dispose的時候程序不應(yīng)該出錯，簡單地說程序在第二次調(diào)用Dispose時不會做任何事。這些可以通過一個flag或多重if判斷實現(xiàn)。
一個對象的Dispose要做到釋放這個對象的所有資源。拿一個繼承類為例，繼承類中用到了非托管資源所以它實現(xiàn)了IDisposable接口，如果繼承類的基類也用到了非托管資源那么基類也得被釋放，基類的資源如何在繼承類中釋放呢？當(dāng)然是通過一個virtual/Overridable方法了，這樣我們能保證每個Dispose都被調(diào)用到。這就是為什么我們的設(shè)計有一個virtual/Overridable的Dispose方法。注意我們首先要釋放繼承類的資源然后再釋放基類的資源。
因為非托管資源一定要被保障正確釋放所以我們要定義一個Finalizer來避免程序員忘了調(diào)用Dispose的情況。上面的設(shè)計就采用了這種形式。如果我們手動調(diào)用Dispose方法就沒有必要再保留Finalizer了，所以在Dispose中我們用了GC.SupressFinalize 將對象從Finalizer表去掉，這樣再回收時速度會更快。
那么那個disposing和"托管類"是怎么回事呢？是這樣：在"托管類"中寫所有你想在調(diào)用Dispose時讓其處于可釋放狀態(tài)的托管代碼。還記得我們說過我們不知道托管代碼是什么時候釋放的嗎？在這里我們只是去掉成員對象的引用讓它處于可被回收狀態(tài)，并不是直接釋放內(nèi)存。在"托管類"中這里我們也要寫上所有實現(xiàn)了IDisposable的成員對象，因為他們也有Dispose，所以也需要在對象的Dispose中調(diào)用他們的 Dispose，這樣才能保證第二個準(zhǔn)則。disposing是為了區(qū)分Dispose的調(diào)用方法，如果我們手動調(diào)用那么為了第二個準(zhǔn)則"托管類"部分當(dāng)然得執(zhí)行，但如果是Finalizer調(diào)用的Dispose，這時候?qū)ο笠呀?jīng)沒有任何引用，也就是說對象的成員自然也就不存在了（無引用），也就沒有必要執(zhí)行"托管類"部分了，因為他們已經(jīng)處于可被回收狀態(tài)了。好了，這就是IDisposable接口的全部了?，F(xiàn)在讓我們來回想一下，以前我們可能認為有了 Dispose內(nèi)存就會馬上被釋放，這是錯誤的。只有非托管內(nèi)存才會被馬上釋放，托管內(nèi)存的釋放由GC管理，我們不用管。
vb點虐 有專門的托盤圖標(biāo)控件 在工具箱里直接添加一個就可以了 兩行代碼即可
NotifyIcon1.Icon?=?Me.Icon
NotifyIcon1.Visible?=?True
set xxx=nothing就是把對象占用的空間釋放掉。 其他的局部變量都在棧內(nèi)存,用完會自動釋放的
重慶分公司
重慶分公司
