Question

我很长一段时间没有使用VB，而且我正在尝试在用户单击按钮时向列表中添加包含名称，成员资格类型和其他选项的成员资格对象。但是，当我在visual studio中单步执行我的程序时，我的构造函数中的默认数据才会添加到列表中，而不是我输入的任何数据。

如何让我的数据成功添加到列表中？这是我的代码，任何帮助将不胜感激

Dim memberList As New List(Of Membership)
Dim newMembership As New Membership

这是我的提交按钮

If MessageBox.Show("Do you wish to write this change to a file?",
       "Write to file", MessageBoxButtons.YesNo, MessageBoxIcon.Hand,
       MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
    memberList.Add(newMembership)
    MessageBox.Show("Added to list")

默认构造函数

'default
Public Sub New()
    memberType = "Single"
    golf = False
    tennis = False
    Raquetball = False
    memberName = "Default"

重载的构造函数

'overloaded
Public Sub New(ByVal mt As String, ByVal g As Boolean, ByVal t As Boolean, ByVal n As String, ByVal R As Boolean)
memberType = mt
golf = g
tennis = t
memberName = n
Raquetball = R
End Sub

点击提交时的我的列表

golf        False       Boolean
memberName  "Default"   String
memberType  "Single"    String
Raquetball  False       Boolean
tennis      False       Boolean

只显示默认值，我对设置属性的位置以及提交到列表中的正确信息感到困惑

Answer 1

这样做：

memberList.Add(newMembership("my memberType", true, false, "my member name",false))

而不是：

memberList.Add(newMembership)

VB设置对象的属性/字段

1 个答案: