如何改寫(xiě)VB.NET內(nèi)存指針

這篇文章主要為大家展示了“如何改寫(xiě)VB.NET內(nèi)存指針”，內(nèi)容簡(jiǎn)而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“如何改寫(xiě)VB.NET內(nèi)存指針”這篇文章吧。

為平遠(yuǎn)等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及平遠(yuǎn)網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、平遠(yuǎn)網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

近日心血來(lái)潮，花巨資購(gòu)進(jìn)多普達(dá)智能手機(jī)一臺(tái)， 系統(tǒng)為微軟的Smartphone2003 ，由于對(duì)"瘟倒死"操作系統(tǒng)的熟悉，很快已步入正軌，各種圖片、程序安裝了一大堆后，開(kāi)始發(fā)揮自己的程序特長(zhǎng)，試著為愛(ài)機(jī)寫(xiě)一個(gè)資源管理器的簡(jiǎn)單程序。

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

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

Imports System.Runtime.InteropServices '引及Net框架中對(duì)底層操作支持的命名空間  
Public Class clsDAMSMobileMarshal '我寫(xiě)的內(nèi)存管理類  
#Region "與內(nèi)存有關(guān)的API聲明"  
REM 以下是與內(nèi)存有關(guān)的移動(dòng)設(shè)備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  
'申請(qǐng)本地內(nèi)存，返回一個(gè)指向該內(nèi)存塊的指針  
Return LocalAlloc(LPTR, ni_i32Size)  
End Function  
 
Public Shared Function fnFreeHLocal(ByRef ni_pLocal As IntPtr) As Int32  
REM 釋放指定的內(nèi)存塊柄  
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  
'對(duì)指定的內(nèi)存塊重新定義大小  
Return LocalReAlloc(ni_pIn, ni_i32Size, LMEM_MOVEABLE)  
End Function  
 
Public Shared Function fnStringToHLocalUni(ByVal ni_strIn As String) As IntPtr  
'將指定的字符串復(fù)制到一個(gè)內(nèi)存塊中，并返回該內(nèi)存塊的指針，這個(gè)指針必須使用fnFreeHLocal函數(shù)釋放  
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 ' 包括***一個(gè)中止字符  
tpTempA = fnAllocHLocal(ti32StringBufLength)  
If tpTempA.Equals(IntPtr.Zero) = False Then '申請(qǐng)內(nèi)存成功  
Marshal.Copy(ni_strIn.ToCharArray, 0, tpTempA, ni_strIn.Length)  
Return tpTempA  
End If  
End If  
End If  
End Function  
End Class 

以上是“如何改寫(xiě)VB.NET內(nèi)存指針”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

本文題目：如何改寫(xiě)VB.NET內(nèi)存指針
標(biāo)題網(wǎng)址：http://muchs.cn/article0/geshoo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供軟件開(kāi)發(fā)、搜索引擎優(yōu)化、網(wǎng)站內(nèi)鏈、用戶體驗(yàn)、全網(wǎng)營(yíng)銷推廣、移動(dòng)網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)