Кодирование времени разработки

Question

Я новичок в визуальной базовой точечной сети.Я пытался создать дизайн во время выполнения.Вот мой простой код.

    Dim frmLogin As New Form
    Dim lblUserName, lblPassword As New Label
    Dim txtUserName, txtPassword As New TextBox
    Dim btnContinue, btnCancel As New Button

    'set frmLogin properties
    frmLogin.StartPosition = FormStartPosition.CenterScreen
    frmLogin.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    frmLogin.BackColor = Color.LightGray
    frmLogin.Size = New Size(400, 200)

    'set lblUserName properties
    lblUserName.Text = "User Name: "
    lblUserName.Font = New Font("Calibri", 12, FontStyle.Regular)
    lblUserName.Location = New Point(20, 30)

    'set lblPassword properties
    lblPassword.Text = "Password: "
    lblPassword.Font = New Font("Calibri", 12, FontStyle.Regular)
    lblPassword.Location = New Point(20, 70)

    'set txtUserName properties
    txtUserName.Font = New Font("Calibri", 12, FontStyle.Regular)
    txtUserName.Location = New Point(120, 20)
    txtUserName.Size = New Size(250, 20)

    txtPassword.Font = New Font("Calibri", 12, FontStyle.Regular)
    txtPassword.Location = New Point(120, 60)
    txtPassword.Size = New Size(250, 20)
    txtPassword.PasswordChar = "*"

    btnCancel.Text = "Cancel"
    btnCancel.Location = New Point(270, 120)
    btnCancel.Size = New Size(100, 28)
    btnCancel.BackColor = Color.White
    btnCancel.Font = New Font("Calibri", 12, FontStyle.Regular)

    frmLogin.Controls.Add(lblPassword)
    frmLogin.Controls.Add(lblUserName)
    frmLogin.Controls.Add(txtUserName)
    frmLogin.Controls.Add(txtPassword)
    frmLogin.Controls.Add(btnCancel)
    frmLogin.ShowDialog()

Как я могу начать создавать код здесь?Я хотел бы начать с btnCancel, как я могу вставить этот код в btnCancel

dim myAns as string = msgbox("This will exit the program. Are you sure?")
if ans = vbyes then application.exit

Answer 1

Вы должны добавить обработчик событий к элементам управления:

'register the event handler after initializing of the control
AddHandler btnCancel.Click, AddressOf CancelClick


'create a method with same signature as the delegate of the event
Private Sub CancelClick(ByVal sender As Object, ByVal e As EventArgs)
   'do your stuff here
End Sub