The Complete Form Class (ctd.)
Finally we have our event handlers and we close the class.
Private Sub cbAccept_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles cbAccept.Click
'MsgBox("Changes Applied!", MsgBoxStyle.OKOnly And
MsgBoxStyle.Exclamation)
Dim newForm As frmMain = New frmMain()
Dim newTxt As System.Windows.Forms.TextBox = New System.Windows.Forms.TextBox()
newTxt.Location = New System.Drawing.Point(80, 80)
newTxt.Width = 100
newTxt.Text = "New TextBox"
newForm.Controls.Add(newTxt)
newForm.BackColor = System.Drawing.Color.Brown
newForm.cbAccept.Visible = False
newForm.lblEnterText.Left -= 15
newForm.lblEnterText.Width -= 30
newForm.txtEnteredText.Left -= 30
newForm.txtEnteredText.Text = "New Instance of original
form"
newForm.txtEnteredText.Width = "New Instance of original
form".Length * 6
newForm.Show()
End Sub
Private Sub cbCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles cbCancel.Click
Me.Close()
End Sub
End Class
It’s well worth examining the code carefully because you’ll garner a very good
understanding of how VB.Net works. One thing to note when compiling is that most
declarations in the code I compiled contain full reference to the namespace i.e.
Dim newTxt As System.Windows.Forms.TextBox = New System.Windows.Forms.TextBox()
- You don’t have to do this as long as you have the references at the start of
the file i.e. the Imports System.Windows.Form statement means I could leave the
above code snippet as Dim newTxt as TextBox = New TextBox
if I desired. You just have to make sure you reference all namespaces you use.
The 3 used in this example are the basic references you will always need for
a Windows Form, the Drawing and Forms as well as the basic System namespace.