vb.net - 负载时形成开口

Question

我的程序正在打开一个与我想要的不同的表单。答案解决了它。

基本上我想在程序启动时停止打开表单，但是当它手动打开时（按下按钮），它更新了数据。问题的第二部分还没有解决，但第一部分已经解决了。

Answer 1

您应该将代码从“加载”移动到“显示”事件。

Private Sub Homefrm_Shown(sender As Object, e As EventArgs) Handles Me.Shown

    Using fp = New dataChangefrm(m_database)

        If fp.ShowDialog() = DialogResult.OK Then
           uwgHome.DataSource = Nothing
           loadData()

       End If
    End Using

    Me.Location = New Point(0, 0)
loadData()
End Sub

请查看第一行的句柄。这取决于您的项目。

Answer 2

你可以尝试这样的事情：

    Public Class HomeForm
        Private WithEvents m_DataChangeForm As DataChangeForm

        Private Sub HomeForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            m_DataChangeForm = New DataChangeForm()
            m_DataChangeForm.Show()
        End Sub

        Private Sub OnDataSourceChanged(sender As Object, args As EventArgs) Handles m_DataChangeForm.OnDataSourceChanged
            MessageBox.Show("Data source changed!")
        End Sub
    End Class

    Public Class DataChangeForm
        Inherits Form

        Public Event OnDataSourceChanged(sender As Object, args As EventArgs)

        Private WithEvents m_Button As Button

        Public Sub New()
            m_Button = New Button()
            m_Button.Text = "Change"
            m_Button.Parent = Me
        End Sub

        Public Sub buttonClick(sender As Object, args As EventArgs) Handles m_Button.Click
            RaiseEvent OnDataSourceChanged(sender, args)
            Me.Close()
        End Sub
    End Class

在 HomeForm 之前显示您的表单的原因是因为您调用 ShowDialog，它会阻塞直到 DataChangeForm 关闭。