學習VB.NET時，你可能會遇到VB.NET內存指針問題，這里將介紹VB.NET內存指針問題的解決方法，在這里拿出來和大家分享一下。近日心血來潮，花巨資購進多普達智能手機一臺， 系統為微軟的Smartphone2003 ，由于對"瘟倒死"操作系統的熟悉，很快已步入正軌，各種圖片、程序安裝了一大堆后，開始發揮自己的程序特長，試著為愛機寫一個資源管理器的簡單程序。

我選擇的編程工具當然是Visual Basic NET2003，實話說Microsoft .NET Framework SDK 提供的功能實在不感恭維，微軟好象又要將所有走上光明大道的.NET程序員拖入API的黑暗時代，指針、句柄、地址操作，最令人惱火就是沒有為VB.NET程序做WinCE的API 聲明（令人懷念VB6的API瀏覽器）很快我就在如何啟動手機中的應用程序的代碼上困住了，Net沒有為WinCE提供Process 對象這種不付責任的做法害得我好苦啊！

開始時聲明時老是將ShellExecuteEx 和CreateProcess這兩個熟悉得不能再熟悉的Win32在VB 6中的聲明直接粘到程序中，僅是將VB6的long改為NET的int32，結果老是報錯。在網上查了N天資料，才發現原來Win CE的核心API都是在一個coredll.dll文件中，使得我差點沒氣死！還有一點是SHELLEXECUTEINFO結構中的lpFile這種指向字符串常量的指針由于字符的編碼問題不能象在Win32編程中簡單聲明為String類型，所在必須聲明為Intptr，這樣問題就出現了，使用 ShellExecuteEx函數必須使用微軟在VB.NET中不直接提供的指針操作，所以我只好根據網上的資料改寫了一個對VB.NET內存指針的封裝類，詳細代碼及解釋如下（新建一個模塊，將以下代碼粘貼進去即可使用）：

Imports System.Runtime.InteropServices '引及Net框架中對底層操作支持的命名空間  
Public Class clsDAMSMobileMarshal '我寫的內存管理類  
#Region "與內存有關的API聲明"  
REM 以下是與內存有關的移動設備API  
Public Declare Function LocalAlloc Lib "coredll.dll" Alias "LocalAlloc" 
(ByVal wFlags As Int32, _ByVal wBytes As Int32) As IntPtr  
Public Declare Function LocalFree Lib "coredll.dll" Alias "LocalFree" 
(ByVal hMem As Int32) As Int32  
Public Declare Function LocalLock Lib "coredll.dll" Alias "LocalLock" 
(ByVal hMem As Int32) As Int32  
Public Declare Function LocalReAlloc Lib "coredll.dll" Alias "LocalReAlloc" 
(ByVal hMem As IntPtr, _ByVal wBytes As Int32, ByVal wFlags As Int32) As IntPtr  
 
#End Region  
 
#Region "API常量聲明"  
Public Const LMEM_FIXED = 0 
Public Const LMEM_MOVEABLE = &H2  
Public Const LMEM_ZEROINIT = &H40  
Public Const LPTR = LMEM_FIXED Or LMEM_ZEROINIT  
#End Region  
 
Public Shared Function fnAllocHLocal(ByVal ni_i32Size As Int32) As IntPtr  
'申請本地內存，返回一個指向該內存塊的指針  
Return LocalAlloc(LPTR, ni_i32Size)  
End Function  
 
Public Shared Function fnFreeHLocal(ByRef ni_pLocal As IntPtr) As Int32  
REM 釋放指定的內存塊柄  
Dim ti32FunctionReturnValue As Int32  
If ni_pLocal.Equals(IntPtr.Zero) = False Then  
ti32FunctionReturnValue = (LocalFree(ni_pLocal.ToInt32))  
If ti32FunctionReturnValue = 0 Then  
ni_pLocal = IntPtr.Zero  
End If  
End If  
Return (ti32FunctionReturnValue)  
End Function  
 
Public Shared Function fnReAllocHLocal
(ByVal ni_pIn As IntPtr, ByVal ni_i32Size As Int32) As IntPtr  
'對指定的內存塊重新定義大小  
Return LocalReAlloc(ni_pIn, ni_i32Size, LMEM_MOVEABLE)  
End Function  
 
Public Shared Function fnStringToHLocalUni(ByVal ni_strIn As String) As IntPtr  
'將指定的字符串復制到一個內存塊中，并返回該內存塊的指針，這個指針必須使用fnFreeHLocal函數釋放  
Dim ti32StringBufLength As Int32  
Dim tpTempA As IntPtr  
 
If Not (ni_strIn Is Nothing) Then  
If ni_strIn.Length = 0 Then  
Return IntPtr.Zero  
Else  
ti32StringBufLength = (ni_strIn.Length + 1) * 2 ' 包括***一個中止字符  
tpTempA = fnAllocHLocal(ti32StringBufLength)  
If tpTempA.Equals(IntPtr.Zero) = False Then '申請內存成功  
Marshal.Copy(ni_strIn.ToCharArray, 0, tpTempA, ni_strIn.Length)  
Return tpTempA  
End If  
End If  
End If  
End Function  
End Class 

【編輯推薦】

1. 實例講述VB.NET使用Log4Net
2. 三分鐘學會VB.NET轉換形態
3. VB.NET獲取硬盤信息四大法寶
4. 講述VB.NET調用Excel的好處
5. 簡單例子概述VB.NET新窗體