因为数组是引用类型,所以直接赋值会出现这种情况
可以在kb=k后单独复制数组
kb.rr=k.rr.Clone
这样两个数组就是独立的了
之所以先kb=k是为了当其含有多个成员时值型成员可以直接复制,只需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
End Sub
End Class
-------------
一个Form1
一个Label1
一个Listbox1
一个Button1
在Listbox1中加入10个值
只是一个演示,其他的要靠自己.
可以查看附件,或则使用以下代码.应该注释的满全了.
随便建一个窗口工程,窗口代码帖入以下代码.
Imports?System.IO
Imports?System.Text
Imports?System.Reflection
Public?Class?Form1
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
'?目标资源不存在
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?'?复制文件时的缓冲数组
Dim?ReadCount?As?Integer??'?此次读取数据的数量
'?还有数据可以读取的情况,一直循环
ReadCount?=?ms.Read(Buffer,?0,?BufferSize)
While?ReadCount?0
fs.Write(Buffer,?0,?ReadCount)?'?写入到磁盘文件
End?While
End?Using
strDisplayText.AppendLine("文件已经复制完毕.")
'?显示消息
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?Class
以上就是土嘎嘎小编为大家整理的vb.net数组复制相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！