vb.net 如何使ListBox1內(nèi)的內(nèi)容按一定算下排列

第一個(gè)問(wèn)題，先把listbox的內(nèi)容取出來(lái)做內(nèi)部排序然后重新插入

蛟河網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),蛟河網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為蛟河成百上千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站制作要多少錢(qián)，請(qǐng)找那個(gè)售后服務(wù)好的蛟河做網(wǎng)站的公司定做！

第二個(gè)問(wèn)題，TextBox1.Text = Mid(ListBox1.Items.Item(ListBox1.SelectedIndex), 1, 8)

vb6.0 圖象旋轉(zhuǎn)

上面代碼速度太慢，下面代碼可快速實(shí)現(xiàn)圖象旋轉(zhuǎn)

一、新建一個(gè)模塊，并復(fù)制下面代碼到模塊中：

Option Explicit

Type BITMAPINFOHEADER '40 bytes，這個(gè)大家可以看看BMP的格式

BmSize As Long

BmWidth As Long

BmHeight As Long

BmPlanes As Integer

BmBitCount As Integer

BmCompression As Long

BmSizeImage As Long

BmXPelsPerMeter As Long

BmYPelsPerMeter As Long

BmClrUsed As Long

BmClrImportant As Long

End Type

Type BITMAPINFO

BmHeader As BITMAPINFOHEADER

End Type

'下面是兩個(gè)操作DIB的函數(shù)

Declare Sub GetDIBits Lib "GDI32" (ByVal hDC, ByVal hBitmap, ByVal nStartScan, ByVal nNumScans, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage)

Declare Sub SetDIBits Lib "GDI32" (ByVal hDC, ByVal hBitmap, ByVal nStartScan, ByVal nNumScans, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage)

Sub RotatePicDI(SrcPic As PictureBox, DestPic As PictureBox, A As Double)

Dim SrcInfo As BITMAPINFO, DesInfo As BITMAPINFO

Dim X, Y, CA As Double, SA As Double, nX, nY

Dim sW, sH, sW2, sH2, dW, dH, dW2, dH2

Const Pi = 0.017453292519943

CA = Cos(A * -1): SA = Sin(A * -1)

sW = SrcPic.ScaleWidth '源圖

sH = SrcPic.ScaleHeight

dW = DestPic.ScaleWidth '目標(biāo)圖

dH = DestPic.ScaleHeight

sW2 = sW / 2: sH2 = sH / 2 '確定中心點(diǎn)坐標(biāo)

dW2 = dW / 2: dH2 = dH / 2

SrcInfo.BmHeader.BmSize = 40

SrcInfo.BmHeader.BmWidth = sW

SrcInfo.BmHeader.BmHeight = -sH

SrcInfo.BmHeader.BmPlanes = 1

SrcInfo.BmHeader.BmBitCount = 32

SrcInfo.BmHeader.BmSizeImage = 3 * sW * sH

LSet DesInfo = SrcInfo

DesInfo.BmHeader.BmWidth = dW

DesInfo.BmHeader.BmHeight = -dH

DesInfo.BmHeader.BmSizeImage = 3 * dW * dH

ReDim SrcPix(0, sW - 1, sH - 1) As Long

ReDim DesPix(0, dW - 1, dH - 1) As Long

Call GetDIBits(SrcPic.hDC, SrcPic.Image, 0, sH, SrcPix(0, 0, 0), SrcInfo, 0)

For Y = 0 To dH - 1

For X = 0 To dW - 1

nX = CA * (X - dW2) - SA * (Y - dH2) + sW2

nY = SA * (X - dW2) + CA * (Y - dH2) + sH2

If nX -1 And nY -1 And nX sW And nY sH Then

DesPix(0, X, Y) = SrcPix(0, nX, nY)

End If

Next

Next

Call SetDIBits(DestPic.hDC, DestPic.Image, 0, dH, DesPix(0, 0, 0), DesInfo, 0)

DestPic.Picture = DestPic.Image

End Sub

二、在Form1中，函數(shù)調(diào)用舉例：

Private Sub Command1_Click()

RotatePicDI Picture1, Picture1, Val(Text1.Text)

End Sub

VB.NET控件的一些事件的觸發(fā)順序是什么

一個(gè)一個(gè)回答吧。

1、CheckBox 的 MouseDown 事件發(fā)生在 CheckedChange 事件之前，但這是指在單步調(diào)試的狀態(tài)下，事實(shí)上在編譯好的程序中，這兩個(gè)事件是分別處在兩個(gè)不同的線程中，單純的考慮時(shí)間上的前后沒(méi)有意義。

2、MouseDown 在先。Scroll 事件發(fā)生在滾動(dòng)條移動(dòng)的過(guò)程中，而 ValueChange 事件發(fā)生在滾動(dòng)條的 Value 屬性發(fā)生改變的時(shí)候，兩者沒(méi)有必然聯(lián)系。舉例，當(dāng)你用鼠標(biāo)拖動(dòng)滾動(dòng)條移動(dòng)的時(shí)候，這時(shí)發(fā)生的是 Scroll 事件；松開(kāi)鼠標(biāo)鍵后，Value 屬性值改變，這時(shí)候觸發(fā) ValueChange 事件。另外，如果滾動(dòng)條的 Value 是通過(guò)代碼改變的而非鼠標(biāo)拖動(dòng)的，是不觸發(fā) Scroll 事件只觸發(fā) ValueChange 事件。

3、ClientSize 是指控件的工作區(qū)的高度和寬度。比如說(shuō) form，它的 Size 值是包括標(biāo)題欄、邊框等，而 ClientSize 是工作區(qū)，不包括標(biāo)題欄、邊框等。

4、一般是 Load→Paint→Shown。

新手關(guān)于VB.net的問(wèn)題

您好，在Visual Basic.NET中，是沒(méi)有像這樣的文件I/O操作的，一般都是通過(guò)System.IO.StreamReader和System.IO.StreamWriter類，System.IO.BinaryReader和System.IO.BinaryWriter類來(lái)讀寫(xiě)文件以及利用My.Computer.FileSystem類讀寫(xiě)文件，利用System.IO.Filestream類來(lái)創(chuàng)建文件，通過(guò)引用Microsoft Scripting Runtime來(lái)執(zhí)行文件（夾）和驅(qū)動(dòng)器的特殊操作，常用的是System.IO.StreamReader和System.IO.StreamWriter類。

例如說(shuō)要讀取一個(gè)文件，我們可以利用System.IO.StreamReader類編寫(xiě)一個(gè)方法（也就是函數(shù)），但是首先要在當(dāng)前類的開(kāi)頭添加一個(gè)引用，引用名稱：System.IO，添加引用的代碼如下

Imports System.IO

添加引用之后，就在當(dāng)前類的內(nèi)部創(chuàng)建方法：

Private Function ReadFile(ByVal FileURL As String) As String

Dim sr As StreamReader = New StreamReader(FileURL)

ReadFile = sr.ReadToEnd()

sr.Close()

sr = Nothing

End Function

示例說(shuō)明：

該方法是一個(gè)返回String（字符串）數(shù)據(jù)的函數(shù)，F(xiàn)ileURL作為參數(shù)是用來(lái)存放需要訪問(wèn)的文件的URL，當(dāng)然，要獲取一個(gè)文件的URL，就是利用這一句代碼實(shí)現(xiàn)的：

Dim sr As StreamReader = New StreamReader(FileURL)

當(dāng)獲取了URL之后，就要對(duì)文件進(jìn)行讀取操作了，然后將讀取的結(jié)果返回給方法：

ReadFile = sr.ReadToEnd()

讀取文件完畢之后，要對(duì)文件執(zhí)行關(guān)閉操作：

sr.Close()

當(dāng)然別忘了清理資源：

sr = Nothing

StreamReader類可以從流或文件中讀取字符，在創(chuàng)建StreamREader類的對(duì)象時(shí)，可以指定一個(gè)流對(duì)象，也可以指定一個(gè)文件URL，創(chuàng)建對(duì)象后就可以調(diào)用他的方法，從流中讀取數(shù)據(jù)，其常用方法如下：

Peek：返回下一個(gè)可用字符，但不使用它。

Read：讀取輸入流中下一個(gè)字符或一組字符并移動(dòng)流或文件指針。

ReadBlock：從當(dāng)前流中讀取最大數(shù)量字符并從index開(kāi)始將數(shù)據(jù)寫(xiě)入buffer。

ReadLine：從當(dāng)前流中讀取一行字符并將字符作為String返回。

REadToEnd：從流的當(dāng)前位置到末尾讀取流。

Close：關(guān)閉打開(kāi)的對(duì)象，釋放資源。

注：流，一種新的數(shù)據(jù)格式，這種格式可通過(guò)System.IO命名空間下的類訪問(wèn)。流用Stream類表示，所有的流都是從這個(gè)類中繼承的。流向用戶提供了一個(gè)一般的數(shù)據(jù)視圖，隱藏了操作系統(tǒng)和底層設(shè)備的實(shí)現(xiàn)細(xì)節(jié)，所有的流都支持讀寫(xiě)操作。在打開(kāi)文件時(shí)將返回對(duì)應(yīng)的流對(duì)象，用戶可以對(duì)流對(duì)象進(jìn)行讀寫(xiě)操作。

如果要對(duì)文件執(zhí)行按行讀取操作，這時(shí)就會(huì)用到枚舉，這時(shí)候，代碼就要更改一下了：

Private Function ReadFile(ByVal FileURL As String) As String

Dim sr As StreamReader = New StreamReader(FileURL)

For Each fLine As String In sr.ReadToEnd()

Line = sr.ReadLine()

ReadFile = ReadFile fLine

Next sr.ReadLine

sr.Close()

End Function

示例說(shuō)明：

For Each…Next：派生于For…Next循環(huán)，用于枚舉一系列對(duì)象中的成員，而這些對(duì)象組成集合，如果集合中至少存在一個(gè)元素，程序就會(huì)靜茹For Each塊執(zhí)行。其格式如下：

For Each 元素 [As 數(shù)據(jù)類型] In 元素集合

[循環(huán)體]

[Exit For]

[循環(huán)體]

Next [元素]

比如：

Dim CountNumber As ULong = 0

Dim FolderName() As String = New String() {" "}

For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")

CountNumber = CountNumber + 1

ReDim Preserve FolderName(1 To CountNumber)

FolderName = strFolder

Next strFolder

注：My.Computer.FileSystem.GetDirectories：主要用來(lái)枚舉指定目錄的子文件夾。

Preserve：主要用來(lái)避免重定義數(shù)組而不損失數(shù)組元素的原有數(shù)據(jù)。

另外，利用My.Computer.FileSystem也可以實(shí)現(xiàn)文件的讀取，其代碼如下：

Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt")

示例說(shuō)明：

定義一個(gè)字符串變量利用My.Computer.FileSystem.ReadAllText來(lái)實(shí)現(xiàn)對(duì)“C:\test.txt”的讀取。

如果是已經(jīng)編碼的文本，則可以使用My.Computer.FileSystem對(duì)象中的ReadAllText方法并提供路徑和文件編碼類型，將文本寫(xiě)入字符串變量中，例如：

Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt", _

System.Text.Encoding.UTF32)

當(dāng)然，System.Text.Encoding的成員不止一個(gè)，它還有如下成員：

System.Text.Encoding.UTF8

System.Text.Encoding.UTF16

System.Text.Encoding.ASCII

System.Text.Encoding.Unicode

這些是常見(jiàn)的成員，也是主要的成員。

另外，利用My.Computer.Filesystem類無(wú)法實(shí)現(xiàn)文件的行操作，還有，如果您的計(jì)算機(jī)未安裝完整的Microsoft.NET Framework Runtime，則無(wú)法實(shí)現(xiàn)這種操作！

寫(xiě)入文件的操作同樣簡(jiǎn)單，Visual Basic.NET 允許用戶使用StreamWriter來(lái)對(duì)文件寫(xiě)入內(nèi)容，下面就讓我們來(lái)創(chuàng)建一個(gè)子例程，來(lái)實(shí)現(xiàn)文件的寫(xiě)入：

Private Sub WriterFile(ByVal FileURL As String, ByVal FileCon As String)

Dim sr As StreamWriter = New StreamWriter(FileURL)

sr.Write(FileCon)

sr.Close()

sr = Nothing

End Sub

示例說(shuō)明：

sr.Write(FileCon)：將FileCon寫(xiě)入文件FileURL之中。

另外，StreamWriter常用方法如下：

WriteLine：向流中寫(xiě)入一行，后面跟結(jié)束符。

Write：寫(xiě)入流，向流對(duì)象中寫(xiě)入字符并移動(dòng)流或文件指針。

Close：關(guān)閉打開(kāi)的對(duì)象，釋放資源。

附：Visual Basic 6.0文件操作解說(shuō)：

打開(kāi)： Open 文件名 For Input | Output | Append As [#]文件號(hào)

Input打開(kāi)讀入，文件不存在報(bào)錯(cuò)。Output打開(kāi)覆蓋寫(xiě)入，文件不存在則創(chuàng)建。Append打 開(kāi)追加寫(xiě)入，文件不存在則創(chuàng)建。

讀： Line Input #文件號(hào), 字符串變量

讀一行數(shù)據(jù)存入字符串變量，數(shù)據(jù)包括空格、Tab、等，不包括回車符和換行符，所以要顯示文件的換行效果，要手動(dòng)添加回車符和換行符（vbCrLf）

Input #文件號(hào), 變量1[, | ;] [變量2]...

這種方式可以存入多個(gè)變量，而且變量類型不限于字符串型。

寫(xiě)： Print #文件號(hào), 參數(shù)1[, | ;] [參數(shù)2]...

將各參數(shù)逐個(gè)寫(xiě)入文件。參數(shù)間用逗號(hào)隔開(kāi)時(shí)，文件中相應(yīng)插入多個(gè)空格；用分號(hào)隔開(kāi)時(shí)，插入一個(gè)空格。可以用Spc(n)、Tab(n)等進(jìn)行排版。

Write #文件號(hào), 參數(shù)1[, | ;] [參數(shù)2]...

這種寫(xiě)入方式將自動(dòng)添加界定符，對(duì)不同參數(shù)的類型加以界定。

Visual Basic 6.0文件操作函數(shù)：

Seek： Seek(文件號(hào))

返回文件正在訪問(wèn)的位置，返回值為長(zhǎng)整型。對(duì)順序文件和二進(jìn)制文件，返回值以字節(jié)為單位；對(duì)隨機(jī)訪問(wèn)文件，返回值以記錄號(hào)為單位。

Seek： Seek [#]文件號(hào)，位置

定位文件到指定位置。位置單位同上所述。

Input： Input (字節(jié)數(shù)，[#]文件號(hào))

從文件的訪問(wèn)當(dāng)前位置讀入指定字節(jié)數(shù)的數(shù)據(jù)。僅適用于順序文件和二進(jìn)制文件。

EOF： EOF(文件號(hào))

判斷文件的訪問(wèn)位置是否在文件尾，如果是，返回True，否則，返回False。

LOF： LOF(文件號(hào))

返回文件長(zhǎng)度，單位為字節(jié)。

FileLen： FileLen (文件名)

返回文件名對(duì)應(yīng)文件的長(zhǎng)度，單位是字節(jié)。該函數(shù)取磁盤(pán)文件標(biāo)識(shí)中的長(zhǎng)度，即文件打開(kāi)前的長(zhǎng)度，可以取未打開(kāi)的文件長(zhǎng)度。

GetAttr： GetAttr (Pathname)

返回指定文件或文件夾的屬性。

FileAttr： FileAttr (文件號(hào))

返回文件號(hào)對(duì)應(yīng)文件的打開(kāi)方式。

GetDateTime： GetDateTime (Pathname)

返回文件被創(chuàng)建或修改的最后日期和時(shí)間。

Free： FreeFile[(0|1)]

返回未被占用的文件號(hào)，F(xiàn)ree或Free(0)返回1～255之間未占用的文件號(hào)，F(xiàn)ree(1)返回256～511之間未占用的文件。

Dir： Dir (Pathname [,Attributes])

測(cè)試指定路徑是否有某文件，Attributes附加文件屬性條件，取值vbNormal、vbReadOnly、vbHidden、vbSystem、vbVolume、vbDirectory。

Kill： Kill (文件名)

刪除指定文件，文件名可包含路徑。

FileCopy： FileCopy 源文件，目標(biāo)文件

拷貝文件。

Name： Name 舊文件名 As 新文件名

文件重命名。前后路徑不一致時(shí)，操作為移動(dòng)文件并重命名。

MkDir： MkDir path

新建文件夾。

RmDir： Rmdir path

刪除文件夾。

ChDrive： ChDrive Drive

改變當(dāng)前驅(qū)動(dòng)器 ChDrive "D"

CurDir： CurDir [(driver)]

返回當(dāng)前工作路徑，指定driver則返回目標(biāo)驅(qū)動(dòng)器的當(dāng)前工作路徑。

舉例：

'新建文件，并寫(xiě)入數(shù)據(jù)，關(guān)閉

Open "a.txt" For Output As #1

Print #1, "ABCDEFG"; vbCrLf; "HIJK"

Close #1

'打開(kāi)文件，并全部寫(xiě)入新文件，關(guān)閉

Open "a.txt" For Input As #2

Open "b.txt" For Output As #3

Dim str As String

While (Not EOF(2))

Line Input #2, str

Print #3, str

Wend

Close

注：關(guān)于Visual Basic 6.0的文件操作資料來(lái)自于

如果您覺(jué)得我的回答幫助了您解決難題，別忘了采納哦，如果我的回答未能解決您的問(wèn)題，您可以在互聯(lián)網(wǎng)上尋找更多的解決方案！

VB.net 數(shù)組怎么按任意元素的順序排序輸出

你直接傳一個(gè)數(shù)組進(jìn)去，而且是一個(gè)結(jié)構(gòu)體數(shù)組，array.sort怎么知道根據(jù)結(jié)構(gòu)中的哪一個(gè)屬性進(jìn)行排序？放一個(gè)c#的代碼你看看，VB和C#很相似的

class Program

{

static void Main(string[] args)

{

People[] p = new People[3]

{

new People{name="張三"},

new People{name="李四"},

new People{name="張二名"}

};

//重點(diǎn)傳一個(gè)實(shí)現(xiàn)了IComparer接口的類進(jìn)去，告訴Array.Sort怎么排序

Array.Sort(p, new PeopleCompare());

foreach (var item in p)

{

Console.WriteLine(item.name);

}

Console.ReadKey();

}

}

//People結(jié)構(gòu)體，換成類一樣的

public struct People

{

public string name { get; set; }

}

//實(shí)現(xiàn)了IComparer接口的類

public class PeopleCompare : IComparer

{

public int Compare(object x, object y)

{

People p1 = (People)x ;

People p2 = (People)y;

return p1.name.CompareTo(p2.name);

}

}

用最簡(jiǎn)單的代碼介紹一下指針在VB.net里面的用法？

例1：以下程序我們申請(qǐng)幾個(gè)指向不同類型的指針：

’使用StructLayout(LayoutKind.Sequential)屬性告訴net編譯器:結(jié)構(gòu)的元素在內(nèi)存中按其出現(xiàn)的順序排列

StructLayout(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

’以下語(yǔ)句告訴net垃圾回收進(jìn)程不對(duì)tabytTest進(jìn)行處理，也就是說(shuō)tabytTest占用的內(nèi)存區(qū)域固定不變。

Dim thObject As GCHandle = GCHandle.Alloc(tabytTest, GCHandleType.Pinned)

Dim tpObject As IntPtr = thObject.AddrOfPinnedObject() ’取得指向字節(jié)數(shù)組的指針

’取得一個(gè)指向32位內(nèi)存數(shù)據(jù)的指針,

’由于使用gchandle取指針的方法只能對(duì)引用的對(duì)象有效，

’所以對(duì)如int32等值類型必須使用將其封裝成為一個(gè)對(duì)象的方法以變?yōu)橐妙愋?/p>

Dim ti32Test As Object = Convert.ToInt32(0)

’以下語(yǔ)句告訴net垃圾回收進(jìn)程不對(duì)ti32test進(jìn)行處理，也就是說(shuō)ti32Test的內(nèi)存位置固定不變。

Dim thObject1 As GCHandle = GCHandle.Alloc(ti32Test, GCHandleType.Pinned)

Dim tpObject1 As IntPtr = thObject1.AddrOfPinnedObject() ’取得ti32Test的首地址

Dim tudtTest1 As DEFUDT_Test

’由于結(jié)構(gòu)是一種值類型變量，為保證指針申請(qǐng)方便，我們申請(qǐng)

’取得一個(gè)和結(jié)構(gòu)tudtTest1大小一致的字節(jié)數(shù)組指針,只要空間占用長(zhǎng)度和結(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 GCHandle = GCHandle.Alloc(tudtTest, GCHandleType.Pinned)

Dim tpObject2 As IntPtr = thObject2.AddrOfPinnedObject() ’取得指向結(jié)構(gòu)的指針

’在這兒你可以寫(xiě)對(duì)指針處理的任意代碼(在例2中會(huì)給予補(bǔ)充)……

’在使用完畢后一定要釋放指針指向的內(nèi)存塊，讓垃圾回收器可對(duì)這個(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

上例中指針流程處理可以歸納為：

1、 定義一個(gè)具有合適內(nèi)存長(zhǎng)度的引用變量（關(guān)于引用變量和值變量的差異可以參觀VB.NET的書(shū)籍）

2、使用GCHandle.Alloc方法將變量的內(nèi)存區(qū)域固定下來(lái)。

3、使用GCHandle對(duì)象的AddrOfPinnedObject取得該內(nèi)存區(qū)域的首地址并賦值給指針變量.

4、對(duì)指針進(jìn)行操作

5、使用GCHandle對(duì)象的free方法釋放指針指向的內(nèi)存區(qū)域以便net垃圾回收器可以回收這個(gè)內(nèi)存空間

2、指針?biāo)赶驍?shù)據(jù)的存取

在.net中，對(duì)指針指向數(shù)據(jù)的存儲(chǔ)函數(shù)都封裝在marshal類中，主要的函數(shù)包括：Copy、PtrToStringUni 、PtrToStructure 、OffsetOf、WriteXXX,RreadXXX等，其中WriteXXX的表示向指針?biāo)硎镜牡刂分袑?xiě)入XXX類型的數(shù)據(jù)，而ReadXXX中作用就是將指針?biāo)诘刂返臄?shù)據(jù)以XXX類型方式讀出。看例程2，我們使用這些方法演示對(duì)例1那幾個(gè)指向不同類型數(shù)據(jù)的指針作數(shù)據(jù)存/取操作。

例2：演示向例1申請(qǐng)得到的幾個(gè)指針執(zhí)行寫(xiě)入及讀取數(shù)據(jù)的操作.

Marshal.WriteInt32(tpObject1, 0, Convert.ToInt32(77)) ’向ti32Test變量指向的地址寫(xiě)入32位整數(shù)77

MsgBox("現(xiàn)在ti32Test的值為:" ti32Test) ’因?yàn)樽兞看鎯?chǔ)地址的數(shù)據(jù)已改為77，所以顯示為77

’以下這句之所以可行，因?yàn)閠i32Test是32位整數(shù)，而tpObject指向的tabytTest數(shù)組剛好有4個(gè)元素

’而每一個(gè)byte元素都占用8位，合起來(lái)就是32位，和ti32Test占用的空間一樣。這就印證了前面提’

’到的net中指針沒(méi)有指向類型的說(shuō)明。

Marshal.WriteInt32(tpObject, 0, ti32Test)

’以下代碼再將tabytTest字節(jié)數(shù)組的內(nèi)容理解為一個(gè)int32整數(shù)，

’并將值賦值給tudtTest結(jié)構(gòu)中的int32元素

’我們使用Marshal.OffsetOf(GetType(DEFUDT_Test), "i32a").ToInt32以取得i32a元素在結(jié)構(gòu)中的內(nèi)存偏移位置

’所以New IntPtr(tpObject2.ToInt32 + Marshal.OffsetOf(GetType(DEFUDT_Test), "i32a").ToInt32)就臨時(shí)產(chǎn)生了

’一個(gè)指針并指向i32a所在的內(nèi)存地址(, 這個(gè)方法也說(shuō)明了指針可以以字節(jié)為單位進(jìn)行加減計(jì)算以指向合適的變量。

’Marshal.ReadInt32的作用是從指針中讀取一個(gè)32整數(shù)。

Marshal.WriteInt32(New IntPtr(tpObject2.ToInt32 + Marshal.OffsetOf(GetType(DEFUDT_Test), "i32a").ToInt32), _

0, Marshal.ReadInt32(tpObject))

’這兒可以將字節(jié)數(shù)組的內(nèi)容復(fù)制到真正的結(jié)構(gòu)中

MsgBox(Marshal.OffsetOf(tudtTest1.GetType, "i32a").ToInt32)

tudtTest1 = CType(Marshal.PtrToStructure(tpObject2, GetType(DEFUDT_Test)), DEFUDT_Test)

MsgBox("結(jié)構(gòu)tidtTest1中i32a元素的值為:" tudtTest1.i32a) ’此處將顯示剛賦的值77

本文題目：vb.net順時(shí)針的簡(jiǎn)單介紹
轉(zhuǎn)載來(lái)于：http://chinadenli.net/article48/dsgpphp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、定制開(kāi)發(fā)、虛擬主機(jī)、云服務(wù)器、網(wǎng)站制作、網(wǎng)站設(shè)計(jì)公司

廣告

聲明：本網(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)