VB.NET 使用表单编辑现有内容

Question

我有一个简单的问题让我困惑。由于我已经离开有一段时间了，所以我需要稍微复习一下 VB。我有一个添加新联系人的表单。通过按适当的按钮添加新联系人，它们将作为条目显示在表单的列表中。我现在尝试添加一个编辑按钮来编辑现有条目。用户将选择列表中的给定条目并按下编辑按钮，然后将显示适当的表格（AddContFrm）。现在它只是添加另一个具有相同标题的条目。逻辑在名为 Contact.vb 的类中处理，这是我的代码。

Public Class Contact
    Public Contact As String
    Public Title As String
    Public Fname As String
    Public Surname As String
    Public Address As String
    Private myCont As String
    Public Property Cont()
        Get
            Return myCont
        End Get
        Set(ByVal value)
            myCont = Value
        End Set
    End Property
    Public Overrides Function ToString() As String
        Return Me.Cont
    End Function
    Sub NewContact()
        FName = frmAddCont.txtFName.ToString
        frmStart.lstContact.Items.Add(FName)
        frmAddCont.Hide()
    End Sub
    Public Sub Display()
        Dim C As New Contact
        'C.Cont = InputBox("Enter a title for this contact.")
        C.Cont = frmAddCont.txtTitle.Text
        C.Fname = frmAddCont.txtFName.Text
        C.Surname = frmAddCont.txtSName.Text
        C.Address = frmAddCont.txtAddress.Text
        'frmStart.lstContact.Items.Add(C.Cont.ToString)
        frmStart.lstContact.Items.Add(C)
    End Sub
End Class

AddContFrm

Public Class frmAddCont
    Public Class ControlObject
        Dim Title As String
        Dim FName As String
        Dim SName As String
        Dim Address As String
        Dim TelephoneNumber As Integer
        Dim emailAddress As String
        Dim Website As String
        Dim Photograph As String

    End Class

    Private Sub btnConfirmAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirmAdd.Click

        Dim C As New Contact
        C.Display()
        Me.Hide()

    End Sub

    Private Sub frmAddCont_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

和 frmStart.vb

Public Class frmStart

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        frmAddCont.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click

        Dim DelCont As Contact
        DelCont = Me.lstContact.SelectedItem()
        lstContact.Items.Remove(DelCont)

    End Sub

    Private Sub lstContact_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstContact.SelectedIndexChanged

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        Dim C As Contact
        If lstContact.SelectedItem IsNot Nothing Then
            C = DirectCast(lstContact.SelectedItem, Contact)
            C.Display()
        End If
    End Sub
End Class

Answer 1

您还没有真正添加问题，但看看您的代码有点奇怪。
如果您单击添加，它将显示 frmAddCont，然后在该表单的确认按钮中，它将保存数据，但如果您单击编辑，它将不会显示表单，只会再次添加相同的数据。我认为您在编辑按钮处理程序中缺少 frmAddCont.Show() 。

然而，总而言之，您将数据与 GUI 混合得太多了。 Contact 类应该对 frmAddCont 一无所知，相反，主窗体中的“添加”和“编辑”按钮应根据需要显示 frmAddCont（但我会执行 ShowDialog 而不是 Show 使其成为模态），如果处于编辑模式，我会将要编辑的 Contact 发送到 frmAddCont 并然后，当用户按下确认时，我将根据需要修改/创建Contact，如果是添加，我将有一个主表单可以调用的方法来获取新的Contact< /代码>。
我认为 GUI 可以了解您的 Contact 类，但是 Contact 类现在应该了解有关表单的任何信息。