因為數(shù)組是引用類型,所以直接賦值會出現(xiàn)這種情況
為遵義等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù),及遵義網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、遵義網(wǎng)站設(shè)計,以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求,就會得到認(rèn)可,從而選擇與我們長期合作。這樣,我們也可以走得更遠(yuǎn)!
可以在kb=k后單獨復(fù)制數(shù)組
kb.rr=k.rr.Clone
這樣兩個數(shù)組就是獨立的了
之所以先kb=k是為了當(dāng)其含有多個成員時值型成員可以直接復(fù)制,只需Clone引用類型的就行了
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個值
-------------
只是一個演示,其他的要靠自己。
如果你用的是VB6.0的話,那有一個相當(dāng)簡單的方法來完成數(shù)組復(fù)制操作。即使用VB6.0中提供的動態(tài)數(shù)組增強功能。
它的使用也很簡單,首先是聲明數(shù)組,然后是直接賦值。例如對于你上面的提供的代碼,改為使用動態(tài)數(shù)組增強功能的話,代碼如下:
Dim a() As Single '注意a數(shù)組必須是動態(tài)數(shù)組,如寫為Dim a(1000000) As Single則錯誤
Dim b(1000000) As Single
Dim i As Integer
for i=0 to 999999
a(i)=b(i)
next i
a=b '直接賦值,夠簡單吧
必須注意的是,這里作為目的數(shù)組的a不能為固定數(shù)組(即在聲明時就指定了大小的數(shù)組),否則會引發(fā)錯誤。
新聞名稱:vb.net復(fù)制數(shù)組數(shù)據(jù) vb生成數(shù)組
文章路徑:http://chinadenli.net/article26/hgccjg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供電子商務(wù)、定制網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站排名、用戶體驗、品牌網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)