最近2018中文字幕在日韩欧美国产成人片_国产日韩精品一区二区在线_在线观看成年美女黄网色视频_国产精品一区三区五区_国产精彩刺激乱对白_看黄色黄大色黄片免费_人人超碰自拍cao_国产高清av在线_亚洲精品电影av_日韩美女尤物视频网站

VB.NET有很多值得學(xué)習(xí)的地方，這里我們主要介紹VB.NET指針，包括介紹NET垃圾回收器等方面，欲知VB.NET如何。以下程序我們申請幾個(gè)指向不同類型的VB.NET指針：

創(chuàng)新互聯(lián)專注于山丹網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠為您提供山丹營銷型網(wǎng)站建設(shè)，山丹網(wǎng)站制作、山丹網(wǎng)頁設(shè)計(jì)、山丹網(wǎng)站官網(wǎng)定制、小程序開發(fā)服務(wù)，打造山丹網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供山丹網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。

 
 
 
  
  
  
'使用(LayoutKind.Sequential)>屬性告訴net編譯器:結(jié)構(gòu)的元素在內(nèi)存中按其出現(xiàn)的順序排列  
  
  
  
(LayoutKind.Sequential)> _  
  
  
  
Public Structure DEFUDT_Test  
  
  
  
Public bytb As Byte  
  
  
  
Public i32a As Int32  
  
  
  
End Structure  
  
  
  
 
  
  
  
Public Function fnGetIntptr1() As IntPtr  
  
  
  
'取得一個(gè)4字節(jié)數(shù)組指針  
  
  
  
Dim tabytTest(3) As Byte  
  
  
  
'以下語句告訴net垃圾回收進(jìn)程不對tabytTest進(jìn)行處理，也就是說tabytTest占用的內(nèi)存區(qū)域固定不變。  
  
  
  
Dim thObject As GCHandleGCHandle = GCHandle.Alloc(tabytTest, GCHandleType.Pinned)  
  
  
  
Dim tpObject As IntPtr = thObject.AddrOfPinnedObject() '取得指向字節(jié)數(shù)組的指針  
  
  
  
 
  
  
  
'取得一個(gè)指向32位內(nèi)存數(shù)據(jù)的指針,  
  
  
  
'由于使用gchandle取指針的方法只能對引用的對象有效，  
  
  
  
'所以對如int32等值類型必須使用將其封裝成為一個(gè)對象的方法以變?yōu)橐妙愋? 
  
  
  
Dim ti32Test As Object = Convert.ToInt32(0)  
  
  
  
'以下語句告訴net垃圾回收進(jìn)程不對ti32test進(jìn)行處理，也就是說ti32Test的內(nèi)存位置固定不變。  
  
  
  
Dim thObject1 As GCHandleGCHandle = GCHandle.Alloc(ti32Test, GCHandleType.Pinned)  
  
  
  
Dim tpObject1 As IntPtr = thObject1.AddrOfPinnedObject() '取得ti32Test的首地址  
  
  
  
 
  
  
  
Dim tudtTest1 As DEFUDT_Test  
  
  
  
'由于結(jié)構(gòu)是一種值類型變量，為保證指針申請方便，我們申請  
  
  
  
'取得一個(gè)和結(jié)構(gòu)tudtTest1大小一致的字節(jié)數(shù)組指針,只要空間占用長度和結(jié)構(gòu)一樣就可以了  
  
  
  
'由于net在結(jié)構(gòu)封裝中會(huì)插入額外的數(shù)據(jù)位，所以一定要用sizeof方法得到結(jié)構(gòu)在非托管使用時(shí)的實(shí)際大小  
  
  
  
Dim tudtTest(Marshal.SizeOf(tudtTest1)) As Byte  
  
  
  
Dim thObject2 As GCHandleGCHandle = GCHandle.Alloc(tudtTest, GCHandleType.Pinned)  
  
  
  
Dim tpObject2 As IntPtr = thObject2.AddrOfPinnedObject() '取得指向結(jié)構(gòu)的指針  
  
  
  
 
  
  
  
'在這兒你可以寫對指針處理的任意代碼(在例2中會(huì)給予補(bǔ)充)……  
  
  
  
 
  
  
  
'在使用完畢后一定要釋放指針指向的內(nèi)存塊，讓垃圾回收器可對這個(gè)內(nèi)存塊回收處理  
  
  
  
If thObject.IsAllocated Then  
  
  
  
thObject.Free()  
  
  
  
End If  
  
  
  
If thObject1.IsAllocated Then  
  
  
  
thObject1.Free()  
  
  
  
End If  
  
  
  
If thObject2.IsAllocated Then  
  
  
  
thObject2.Free()  
  
  
  
End If  
  
  
  
End Function 
 
 

上例中VB.NET指針流程處理可以歸納為：
1、定義一個(gè)具有合適內(nèi)存長度的引用變量（關(guān)于引用變量和值變量的差異可以參觀VB.NET的書籍）
2、使用GCHandle.Alloc方法將變量的內(nèi)存區(qū)域固定下來。
3、使用GCHandle對象的AddrOfPinnedObject取得該內(nèi)存區(qū)域的首地址并賦值給指針變量.
4、對指針進(jìn)行操作
5、使用GCHandle對象的free方法釋放指針指向的內(nèi)存區(qū)域以便NET垃圾回收器可以回收這個(gè)內(nèi)存空間
6、VB.NET指針?biāo)赶驍?shù)據(jù)的存取

在.NET中，對指針指向數(shù)據(jù)的存儲(chǔ)函數(shù)都封裝在marshal類中，主要的函數(shù)包括：Copy、PtrToStringUni 、PtrToStructure 、OffsetOf、WriteXXX，RreadXXX等，其中WriteXXX的表示向指針?biāo)硎镜牡刂分袑懭隭XX類型的數(shù)據(jù)，而ReadXXX中作用就是將VB.NET指針?biāo)诘刂返臄?shù)據(jù)以XXX類型方式讀出。

【編輯推薦】

1. 簡單描述VB.NET ProcessStartInfo對象
2. VB.NET System.IO老鳥經(jīng)驗(yàn)談
3. 分析VB.NET創(chuàng)建類的具體操作過程
4. 快速了解VB.NET垃圾收集器
5. 對VB.NET OBEX協(xié)議的簡單概括