对于你的回复,我可以生气的说你对我的回复,你根本不打算仔细的看,或是觉得你懒得思考。
对于你的回复,我也可以认为,对新手的包容,我帮你完成这个功能,如果这样事情偶尔发生我认可,多了,你还有什么思考能力?
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Dimmy_arrAsInteger()={1,1,1,2,2,2}'定义数组
Clipboard.SetDataObject(my_arr)'保存
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
Dimmy_get(0)AsInteger'定义类型
DimdatasAsDataObject=Clipboard.GetDataObject()'获取数据
my_get=datas.GetData(my_get.GetType())'类型转换,得到结果
ForEachiInmy_get
MessageBox.Show(i.ToString())
Next
EndSub |