Дизайн во время выполнения

Question

Я новичок в vb.net, и у меня просто есть кое-что спросить. Я хочу создать простую программу и пытаюсь сделать это с помощью дизайна во время выполнения.

с этой формой, когда вы нажимаете кнопку 1 с надписью (Текст) «Показать другую форму», будет создана другая форма с этим кодом:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim NewForm As New Form
        Dim btnCancel As New Button

        NewForm.StartPosition = FormStartPosition.CenterScreen
        NewForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        NewForm.BackColor = Color.WhiteSmoke
        NewForm.Size = New Size(400, 200)
        NewForm.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable


        btnCancel.Text = "Cancel"
        btnCancel.Size = New Size(150, 50)
        btnCancel.Location = New Point(50, 50)

        NewForm.Controls.Add(btnCancel)
        NewForm.ShowDialog()

        AddHandler btnCancel.Click, AddressOf CancelClick
    End Sub

    Public Sub cancelclick(ByVal sender As Object, ByVal e As EventArgs)
        Dim x As String = MessageBox.Show("Exit", "", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
        If x = vbYes Then End
    End Sub
End Class

Как выйти из формы, которую я создал, когда вы нажмете кнопку «Отмена». Код, который я предоставил, не работает. Пожалуйста, помогите мне. Спасибо

Answer 1

Попробуйте прикрепить код обработчика перед отображением диалога

NewForm.Controls.Add (btnCancel)
AddHandler btnCancel.Click, AddressOf CancelClick
NewForm.ShowDialog ()

Answer 2

В вашем коде измените значение AddressOf CancelClick на AddressOf cancelclick

EDIT:

Измените NewForm.ShowDialog () на NewForm.Show (), а также измените код, как показано ниже, тогда определенно это будет работать.

    Public NewForm As Form
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        NewForm = New Form
        Dim btnCancel As New Button

        NewForm.StartPosition = FormStartPosition.CenterScreen
        NewForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        NewForm.BackColor = Color.WhiteSmoke
        NewForm.Size = New Size(400, 200)
        NewForm.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable


        btnCancel.Text = "Cancel"
        btnCancel.Size = New Size(150, 50)
        btnCancel.Location = New Point(50, 50)

        NewForm.Controls.Add(btnCancel)
       AddHandler btnCancel.Click, AddressOf cancelclick

        NewForm.Show()

     End Sub

    Public Sub cancelclick(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim x As String = MessageBox.Show("Exit", "", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
        If x = vbYes Then End 
    End Sub