Equivalent to Application.EnableEvents = False in VBA

Question

With Visual Basic 2013 is there an equivalent statement to the VBA "Application.EnableEvents = True/False"?   I am loading a saved information file into a form and I want to temporarily turn off event checking (so the changes in the
many text boxes don't trigger the event handlers for each of them) until the form is loaded, then turn it back on.   I looked at "AddHandler" and "RemoveHandler" but these require doing it for each text box individually. (ugh!)

Answer 1

Another example
Option Strict On
Public Class Form1
WithEvents TBox As TextBox
Dim GroupBox1 As New GroupBox
Dim MyTextBoxs As New List(Of TextBox)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Size = New Size(600, 600)
Me.Location = New Point(CInt((Screen.PrimaryScreen.WorkingArea.Width / 2) - (Me.Width / 2)), CInt((Screen.PrimaryScreen.WorkingArea.Height / 2) - (Me.Height / 2)))
With GroupBox1
.Name = "GroupBox1"
.Font = New Font("Book Antiqua", 11)
.Height = 520
.Width = 240
.Left = CInt(Me.ClientRectangle.Width / 2)
.Top = 20
.FlatStyle = FlatStyle.System
.Text = "GroupBox1"
End With
Me.Controls.Add(GroupBox1)
Dim x As Integer = 20
Dim y As Integer = 80
For i = 1 To 10
TBox = New TextBox
With TBox
.Name = "TextBox" & i.ToString
.Width = 200
.Height = 50
.Font = New Font("Cambria", 11)
.Location = New Point(x, y)
.Multiline = False
End With
If i < 6 Then
Me.Controls.Add(TBox)
Else
GroupBox1.Controls.Add(TBox)
End If
y += 60
If y >= 330 Then y = 80
Next
For Each Item As Control In Me.Controls
If Item.Name.Contains("TextBox") Then
MyTextBoxs.Add(CType(Item, TextBox))
End If
GetAllChildControlsForMyTextBoxs(Item)
Next
End Sub
Private Sub GetAllChildControlsForMyTextBoxs(ByVal ctrlParent As Control)
For Each Item As Control In ctrlParent.Controls
If Item.Name.Contains("TextBox") Then
MyTextBoxs.Add(CType(Item, TextBox))
End If
If Item.HasChildren Then
GetAllChildControlsForMyTextBoxs(Item)
End If
Next
End Sub
Private Sub TBoxs_TextChanged(sender As Object, e As EventArgs)
Select Case DirectCast(sender, TextBox).Name.ToString
Case "TextBox1"
MessageBox.Show("TextBox1's text changed.")
Case "TextBox7"
MessageBox.Show("TextBox7's text changed.")
End Select
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Button1.Text = "AddHandler List" Then
Button1.Text = "RemoveHandler List"
For Each Item In MyTextBoxs
Try
AddHandler Item.TextChanged, AddressOf TBoxs_TextChanged
Catch ex As Exception
End Try
Next
Else
Button1.Text = "AddHandler List"
For Each Item In MyTextBoxs
Try
RemoveHandler Item.TextChanged, AddressOf TBoxs_TextChanged
Catch ex As Exception
End Try
Next
End If
End Sub
Dim AddIt As Boolean = False
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Button2.Text = "AddHandler Recursion" Then
AddIt = True
Button2.Text = "RemoveHandler Recursion"
For Each Item As Control In Me.Controls
If Item.Name.Contains("TextBox") Then
Try
AddHandler Item.TextChanged, AddressOf TBoxs_TextChanged
Catch ex As Exception
End Try
End If
GetAllChildControls(Item)
Next
AddIt = False
Else
AddIt = False
Button2.Text = "AddHandler Recursion"
For Each Item As Control In Me.Controls
If Item.Name.Contains("TextBox") Then
Try
RemoveHandler Item.TextChanged, AddressOf TBoxs_TextChanged
Catch ex As Exception
End Try
End If
GetAllChildControls(Item)
Next
AddIt = True
End If
End Sub
Private Sub GetAllChildControls(ByVal ctrlParent As Control)
For Each Item As Control In ctrlParent.Controls
If Item.Name.Contains("TextBox") Then
If AddIt = True Then
Try
AddHandler Item.TextChanged, AddressOf TBoxs_TextChanged
Catch ex As Exception
End Try
Else
Try
RemoveHandler Item.TextChanged, AddressOf TBoxs_TextChanged
Catch ex As Exception
End Try
End If
End If
If Item.HasChildren Then
GetAllChildControls(Item)
End If
Next
End Sub
End Class
La vida loca