因為數(shù)組是引用類型，所以直接賦值會出現(xiàn)這種情況
讓客戶滿意是我們工作的目標，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴，公司提供的服務項目有：域名注冊、雅安服務器托管、營銷軟件、網(wǎng)站建設、江岸網(wǎng)站維護、網(wǎng)站推廣。
可以在kb=k后單獨復制數(shù)組
kb.rr=k.rr.Clone
這樣兩個數(shù)組就是獨立的了
之所以先kb=k是為了當其含有多個成員時值型成員可以直接復制，只需Clone引用類型的就行了
可以查看附件，或則使用以下代碼。應該注釋的滿全了。
隨便建一個窗口工程，窗口代碼帖入以下代碼。
Imports?System.IO
Imports?System.Text
Imports?System.Reflection
Public?Class?Form1
Const?ResName?As?String?=?"123.txt"?'?需要保存的資源名
Const?BufferSize?As?Integer?=?4096??'?復制時緩沖的大小
Private?Sub?Demo()
'?變量聲明
Dim?strDisplayText?As?StringBuilder?'?保存輸出信息
Dim?strResName?As?String????????????'?保存目標資源的名稱
'?變量初始化
strDisplayText?=?New?StringBuilder()
strResName?=?String.Empty
'?獲取所有資源
strDisplayText.AppendLine("文件中存在以下資源:")
For?Each?strName?As?String?In?Assembly.GetExecutingAssembly.GetManifestResourceNames()
strDisplayText.AppendLine("??"??strName)
'?獲得目標資源的全名
If?strName.EndsWith("."??ResName)?Then
strResName?=?strName
End?If
Next
'?目標資源不存在
strDisplayText.AppendLine()
If?strResName?=?String.Empty?Then
strDisplayText.AppendLine("抱歉，沒有找名為"""??ResName??"""的資源")
Else?'?復制資源的代碼
'?打開資源文件，在End?Using的時候自動關閉。
Using?ms?As?UnmanagedMemoryStream?=?Assembly.GetExecutingAssembly.GetManifestResourceStream(strResName)
'?打開磁盤文件，在End?Using的時候自動關閉。
Using?fs?As?New?FileStream("C:\"??ResName,?FileMode.Create)
'?變量聲明
Dim?Buffer(BufferSize?-?1)?As?Byte??'?復制文件時的緩沖數(shù)組
Dim?ReadCount?As?Integer????????????'?此次讀取數(shù)據(jù)的數(shù)量
'?還有數(shù)據(jù)可以讀取的情況，一直循環(huán)
ReadCount?=?ms.Read(Buffer,?0,?BufferSize)
While?ReadCount??0
fs.Write(Buffer,?0,?ReadCount)?'?寫入到磁盤文件
ReadCount?=?ms.Read(Buffer,?0,?BufferSize)
End?While
End?Using
End?Using
strDisplayText.AppendLine("文件已經(jīng)復制完畢。")
End?If
'?顯示消息
MessageBox.Show(strDisplayText.ToString())
End?Sub
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
Call?Demo()
End
End?Sub
End?Class
VB.NET編程讀取txt文本文檔中的數(shù)據(jù)，并把數(shù)據(jù)保存為數(shù)組，代碼如下：
'寫配件文件
Private?Sub?saveIni(ByVal?filePath?As?String,?ByVal?str?As?String)
Dim?sw?As?StreamWriter?=?New?StreamWriter(filePath,?True)?'true是指以追加的方式打開指定文件
sw.WriteLine(str)
sw.Flush()
sw.Close()
sw?=?Nothing
End?Sub
'讀配件文件
Private?Function?readIni(ByVal?filePath?As?String)
Dim?iniDt?As?New?DataTable
iniDt.Columns.Add("text")
iniDt.Columns.Add("value")
Try
Dim?sr?As?StreamReader?=?New?StreamReader(filePath,?System.Text.Encoding.Default)
Dim?line?As?String?=?""
While?Not?sr.EndOfStream
Dim?str?=?sr.ReadLine()'讀取當前行
iniDt.Rows.Add(New?String()?{
str(0),
str(1)
})
End?While
sr.Close()
sr?=?Nothing
Catch?ex?As?Exception
End?Try
Return?iniDt
End?Function
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ListboxTotalItem As Integer = ListBox1.Items.Count - 1
Dim a(ListboxTotalItem) As String
For i As Integer = 0 To ListboxTotalItem
a(i) = i
Next
Label1.Text = a(5)
End Sub
End Class
-------------
一個Form1
一個Label1
一個Listbox1
一個Button1
在Listbox1中加入10個值
-------------
只是一個演示，其他的要靠自己。
解決方法：
1.字符串內(nèi)容設置為定長，或者定義一個結束符（或字符串，如連續(xù)2個0xFF）附加在字符串尾部，程序以此方式先以文本方式讀取字符串數(shù)據(jù)。
2.字符串內(nèi)容也按照二進制方式發(fā)送。
3.在傳輸?shù)淖址投M制數(shù)據(jù)前附加N字節(jié)的標識字節(jié)，其中存儲發(fā)送的字符串和二進制字符串長度。
方法很多。
CopyMemory()函數(shù)功能描述：將一塊內(nèi)存的數(shù)據(jù)從一個位置復制到另一個位置。
函數(shù)原型
VOID CopyMemory(PVOID Destination,CONST VOID *Source,SIZE_T Length);
參數(shù)
Destination要復制內(nèi)存塊的目的地址。
Source要復制內(nèi)存塊的源地址。
Length指定要復制內(nèi)存塊的大小，單位為字節(jié)
返回值該函數(shù)為VOID型，沒有返回值。
備注如果目的塊與源塊有交疊，結果是不可預料的，使用MoveMemory可以解決這個問題。
注意一點CopyMemory和MoveMemory不過是RtlMoveMemory的一個別名而已
示例代碼段
char szname[50]="陣雨";
char szfriend[]="polelf,oo";
CopyMemory(szname+4,szfriend,10);
OutputDebugString(szname);//輸出結果為"陣雨polelf,oo"
vb6的聲明：
Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)
重慶分公司
重慶分公司
