Question

using Visual Basic>>>

Create a form with two text boxes and a checkbox

The checkbox should say "equals"

The checkbox should be checked if the text in the two textboxes are equal and should not be checked if the texts are different.

It should work no matter what the user enters into either textbox.

Answer 1

Public Class Form1
Dim form2 As New Form
Dim txtBox1 As New TextBox
Dim txtBox2 As New TextBox
Dim checkbox1 As New CheckBox
Sub check()
If ((txtBox1.Text).Equals(txtBox2.Text)) Then
checkbox1.Checked = True
Else
checkbox1.Checked = False
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Minimized 'hiding form1 at runtime
Me.ShowInTaskbar = False 'hiding form1 at runtime while showing user created form

'creation of form2 at runtime
form2.Size = New System.Drawing.Size(500, 500)
form2.Text = "FormDemo"
form2.Show()

'creation of txtBox1 at runtime
txtBox1.Location = New System.Drawing.Point(60, 25)
txtBox1.Size = New System.Drawing.Size(80, 20)
AddHandler txtBox1.TextChanged, AddressOf txtBox1_Changed 'Adding handler to user created textbox at runtime
form2.Controls.Add(txtBox1)

'creation of txtBox2 at runtime
txtBox2.Location = New System.Drawing.Point(160, 25)
txtBox2.Size = New System.Drawing.Size(80, 20)
AddHandler txtBox2.TextChanged, AddressOf txtBox2_Changed 'Adding handler to user created textbox at runtime
form2.Controls.Add(txtBox2)

'creation of checkbox1 at runtime
checkbox1.Location = New Point(140, 70)
checkbox1.Size = New Size(80, 20)
checkbox1.Text = "Equals"
checkbox1.Checked = False
form2.Controls.Add(checkbox1)

End Sub
Private Sub txtBox1_Changed(sender As Object, e As EventArgs)
check() 'Calling check() subProcedure
End Sub
Private Sub txtBox2_Changed(sender As Object, e As EventArgs)
check() 'Calling check() subProcedure
End Sub
End Class

OUTPUT :

Check (Runing)- Microseft Visual Stadio 1 Quick Launch (Ctri- File Edit View Project Baild Debug Team Tools Test Analyze Window Help I Debug Sign in ·Any CPU Process 111772 Check vshest.ese x0 Stack Frame Check (Form1Events) Select Tools. A Zoom, In 숙 Zoon, at Diagnostiks session: 455 minutes Public Class For Din form2 As New Din txtBood As New TextBox 447.5mn Events GC ▼Snapshot ●Printe bytes Process Memery (MB 18 Sub check) If ((txtBoxd Text) checkboxl.Checked Fal CPU ubilization ( 100 of all processors) ● Process CPU usage End Sub Prvate Sub Forel Lead(sender Me-windoustate He.ShowlnTaskbar False showing wser created fore 'creation of form2 at Pust fors2-Size-New System.On Events Memory Usage CPUUsage fore2-Show) creation of txtloxi at xtboxt.Locaton- New Sys txtBoxt.Size iew Systen handler to usercreated textbox at runtine for 2.Controls.Add(txtBox) creation of txtBex2 at txtDox2.Location-New Sys txtBoox2.SEze ew Syste handler to user created textbox at runtine cHandler txtbox2 fere2.Controls.Add(txtBox2) creation of checkbesd at checkboxi.Location New Po checkbox1.Size iew Size checkboxlt "Equals checkboxl.Checked False Private Sub txtBoxt_Changed(sender As ooject, eAs Eventargs) Calling check subProcedure Private Sub ttBox2 Changed(sender As object, e As EventAngs) check) Calling check subProcedure End Class oe器自 be] 뭬 ●礓胞 1056PM Windows

1 Quick Launch (Ctri- 刈Check(Running), Microseft Visual Sudio File Edit View Project Baild Debug Team Tools Test Analyze Window Help Signin I Debug ·Any CPU Process 111772 Check vshest.ese x0 Stack Frame Check (Form1Events) Φ Select Tools' |凤Zoom ln Zoom at Public Class For Din form2 As New Din txtBood As New TextBox Events C Y Sapshot Private Bytes Process Memory (MB 18 Sub check) If ((txtBoxd Text) checkboxl.Checked Fal CPU ubilization ( 100 of all processors) ● Process CPU usage End Sub Prvate Sub Forel Lead(sender Me-windoustate He.ShowlnTaskbar False showing wser created fore 'creation of form2 at Pust fors2-Size-New System.On Events Memory Usage CPUUsage fore2-Show) creation of txtloxi at xtboxt.Locaton- New Sys txtBoxt.Size iew Systen handler to user ¢reated textbox at runtime for 2.Controls.Add(txtBox) creation of txtBex2 at txtDox2.Location-New Sys txtBoox2.SEze ew Syste handler to user created textbox at runtine cHandler txtbox2 fere2.Controls.Add(txtBox2) creation of checkbesd at checkboxi.Location New Po checkbox1.Size iew Size checkboxlt "Equals checkboxl.Checked False Private Sub txtBoxt_Changed(sender As ooject, eAs Eventargs) Calling check subProcedure Private Sub ttBox2 Changed(sender As object, e As EventAngs) check) Calling check subProcedure End Class oe器自 be] 뭬 ●礓胞 Windows

Check (Runing)- Microseft Visual Stadio 1 Quick Launch (Ctri- File Edit View Project Baild Debug Team Tools Test Analyze Window Help I Debug Signin ·Any CPU Process 113288] Check vshest.ese x0 Stack Frame Check (Form1Events) Φ Select Tools. Zoom ln Dagnostks session: 14 seconds g、Zoom at Public Class For Din form2 As New Din txtBood As New TextBox Events GC ▼Snapshot ●Private Bytes Process Memory (MB 18 Sub check) If ((txtBoxd Text).Equals(txtBox2.Text)) Then checkbox1.Checked.True checkboxl.Checked False End If ● Process CPU usage End Sub 100 Private Sub Forei-Lead(sender As Object, e He.ShowlnTaskbar False 'creation of form2 at ustine fors2-Size New Systee.Orawing Events Memory Usage CPUUsage fore2-Show) creation of txtloxi at runtine Extboxt.Location- New System txtBoxt.Size lew Systes.Drawing t Funt ine for 2.Controls.Add(xtBox) txtDox2.Location-New System xtBox2.SEze e System.Drawing.s creation of checkbend at untime checkboxl-Locatien -New Poist(340 checkbox1.Size- ew Size(0, 2) checkboxlt "Equals checkboxl.Checked False fore2.controls.dd(checkbox1) Private Sub txtBox1-changed(sender AS 0bject,やAs tventArgs》 Calling check subProcedure Private Sub ttBox2 Changed(sender As object, e As EventAngs) check) Calling check subProcedure End Class oe器自 be] 뭬 ●雅礓 1053 PM Windows

1 Quick Launch (Ctri- Check (Runing)- Microseft Visual Stadio File Edit View Project Baild Debug Team Tools Test Analyze Window Help Signin Debug Aey CPU Process 111772 Check vshest.ese x0 Stack Frame Check (Form1Events) Ф Select Tools. Zoern ln Diagnostiks session: 552 minutes Zoon, at Public Class For Din formż As Din txtBood As New TextBox :52 5m Events Process Memory (MB OC ▼Snapshot ●Private Bytes Sub check) 18 If ((txtBoxd Text) Else End If CPU ubilization ( 100 of all processors) Process CPU Usage 100 End Sub Prvate Sub Forel Lead Me-windoustate hile showing sser created form 'creation of form Events Memory Usage CPUUsage Text Theead fore2-Show) creation of txtloxl txtBoxl.Size for 2.Controls creation of txtBex2 dding handler to user created textbox at runt ime txtDox2. Location dding handler to user created textbox at runtine cHandler txtbox2 fere2.Controls.Add checkbox1-Locatien checkboxlt "Equals checkboxl.Checked False Private Sub txtBox1-changed(sender AS 0bject,やAs tventArgs》 check() Calling check subProcedure Private Sub ttBox2 Changed(sender As object, e As EventAngs) check() Calling check subProcedure End Class oe器自 be] 뭬 ●礓胞 1057 PM