如何在控制台应用程序中动态创建窗体窗口中动态创建控件

Question

使用VB.NET 2010有没有办法在控制台应用程序中动态创建窗体窗口中动态创建控件，而不使用任何额外的广告？如果是这样，你能为这些控件做事件处理程序吗？

Answer 1

由于您已经有一个Form显示，因此您已经有了对System.Windows.Forms的引用。您可以使用与表单相似的方式向表单添加控件。要连接事件，请使用AddHandler声明：

Imports System.Windows.Forms
Module Module1

    Private m_frmTest As Form = Nothing

    Sub Main()

        Dim frmTest As New Form()

        Dim btnTest As New Button()
        btnTest.Text = "Test"
        btnTest.Top = 100
        btnTest.Left = 100

        AddHandler btnTest.Click, AddressOf SimpleButtonClickHandler

        frmTest.Controls.Add(btnTest)

        frmTest.ShowDialog()            

    End Sub

    Private Sub SimpleButtonClickHandler()

        MsgBox("Test")

    End Sub

End Module