双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

一个奇怪的VB.NET赋值问题

2010-03-12 03:16:27 207 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

systexliang 墨衍会员 · AI 创作全网分发关注 + 加入社区

VB开发者必备：5步掌握SeleniumBasic实现浏览器自动化浏览器自动化是提升数据处理和业务流程效率的关键技术，其核心原理是通过WebDriver协议控制浏览器，模拟真实用户操作。这项技术对于需要与Web进行数据交互的自动化任务具有重要价值，广泛应用于数据抓取、报表生成、系统测试和日常办公自动化等场景。SeleniumBasic作为专门为Visual Basic生态设计的COM库，巧妙地将强大的Selenium WebDriver功能封装成VB可直接调用的对象，使得VB、VBA和VB.NET开发者无需切换技术栈，就能在熟悉的开发环境中轻松实现网页操作、表单填写和数据阅读详情

有两个窗体代码分别如下:
form2关闭后str1的值仍然是0,而ListA的值为什么被更改了?

form1:
Public Class Form1

Private ListA As New List(Of String)
Private str1 As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ListB As List(Of String)
ListB = ListA
Dim str2 As String
str2 = str1

Dim f2 As New Form2
f2.list = ListB
f2.str = str2
f2.ShowDialog()
str2 = f2.str

Dim strList As String = ""
For i As Integer = 0 To 9
strList = strList & ListB.Item(i)
Next
MessageBox.Show(strList)
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For i As Integer = 0 To 9
ListA.Add("0")
Next
str1 = "0"
End Sub
End Class

form2:
Public Class Form2
Private _list As List(Of String)
Public Property list() As List(Of String)
Get
Return _list
End Get
Set(ByVal value As List(Of String))
_list = value
End Set
End Property

Private _str As String
Public Property str() As String
Get
Return _str
End Get
Set(ByVal value As String)
_str = value
End Set
End Property

Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
For i As Integer = 0 To 9
list.Item(i) = "1"
Next
str = "1"
End Sub
End Class

...全文