Visual Basic

dim t as textbox<br />
for each t in me.controls<br />
if ctype(t) is textbox then<br />
if t.text = textbox1.text then<br />
'error<br />
end if<br />
end if<br />
next

Dim txtSender As TextBox = DirectCast(sender, TextBox)

'Loop through all controls on the form
'If the form isn't the parent use ParentName.Controls instead of me.controls
For Each ctrl As Control In Me.Controls
    'Is ctrl a texbox and NOT the textbox that raised this method
    If TypeOf ctrl Is TextBox AndAlso ctrl IsNot txtSender Then
        If DirectCast(ctrl, TextBox).Text = txtSender.Text Then
            'Add code to raise Error
            Exit For
        End If
    End If
Next

Private TextBoxCollection As List(Of TextBox)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    For Each ctrl As Control In Me.Controls
        If TypeOf ctrl Is TextBox Then
            TextBoxCollection.Add(DirectCast(ctrl, TextBox))
            AddHandler ctrl.TextChanged, AddressOf txtBox_TextChanged
        End If
    Next
End Sub

Dim txtSender As TextBox = DirectCast(sender, TextBox)

'Loop through all the textboxes
For Each txt As TextBox In TextBoxCollection
    'If txt isn't the control that raised this method and the values
    'match raise an error
    If txt IsNot txtSender AndAlso txt.Text = txtSender.Text Then
        'Add code to raise Error
        Exit For
    End If
Next

Private Sub txtBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
    Dim txtSender As TextBox = DirectCast(sender, TextBox)
    'Loop through all the textboxes
    For Each txt As TextBox In TextBoxCollection
        'If txt isn't the control that raised this method and the values
        'match raise an error
        If txt IsNot txtSender AndAlso txt.Text = txtSender.Text Then
            'Add code to raise Error
            Console.WriteLine("Matched")
            Exit For
        End If
    Next
End Sub

 Private TextBoxCollection As new List(Of TextBox)' giving error<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
        For Each ctrl As Control In Me.Controls<br />
            If TypeOf ctrl Is TextBox Then<br />
                TextBoxCollection.Add(DirectCast(ctrl, TextBox))<br />
                AddHandler ctrl.TextChanged, AddressOf txtBox_TextChanged<br />
            End If<br />
        Next<br />
<br />
    End Sub<br />
<br />
   Private Sub txtBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs)<br />
        Dim txtSender As TextBox = DirectCas(sender,TextBox)               For Each txt As TextBox In TextBoxCollection <br />
   If txt IsNot txtSender AndAlso txt.Text = txtSender.Text Then ' this whole line is giving errror <br />
                   Console.WriteLine("Matched")<br />
                Exit For<br />
            End If<br />
        Next<br />
    End Sub

manni_n wrote:

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

Private Sub txtBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)

Private TextBoxCollection As New ArrayList

Private Sub txtBox_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)

End Sub

If not txt Is txtSender AndAlso txt.Text = txtSender.Text AndAlso txt.Text <> "" Then

Public class form1<br />
  Inherits System.Windows.Forms.Form<br />
Private TextBoxCollection As New ArrayList<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
        For Each ctrl As Control In Me.Controls<br />
            If TypeOf ctrl Is TextBox Then<br />
                TextBoxCollection.Add(DirectCast(ctrl, TextBox))<br />
                AddHandler ctrl.TextChanged, AddressOf txtvalidate_validating<br />
                'e.cancel = True<br />
            End If<br />
        Next<br />
<br />
    End Sub<br />
    Private Sub txtvalidate_validating(ByVal sender As Object, ByVal e As EventArgs)<br />
<br />
        Dim txtSender As TextBox = DirectCast(sender, TextBox)   <br />
        For Each txt As TextBox In TextBoxCollection    <br />
            If Not txt Is txtSender AndAlso txt.Text = txtSender.Text AndAlso txt.Text <> "" Then<br />
                 CType(sender, TextBox).Text = CStr(txt.Text)<br />
                MsgBox("You have already filled this value")<br />
                Exit For<br />
            End If<br />
        Next<br />
<br />
    End Sub<br />

Public Class Form1<br />
    Inherits System.Windows.Forms.Form<br />
    Private TextBoxCollection As New ArrayList<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        For Each ctrl As Control In Me.Controls<br />
            If TypeOf ctrl Is TextBox Then<br />
                TextBoxCollection.Add(DirectCast(ctrl, TextBox))<br />
                AddHandler ctrl.Validating, AddressOf txtvalidate_validating<br />
            End If<br />
        Next<br />
    End Sub<br />
<br />
    Private Sub txtvalidate_validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)<br />
        Dim txtSender As TextBox = DirectCast(sender, TextBox)<br />
        For Each txt As TextBox In TextBoxCollection<br />
            If Not txt Is txtSender AndAlso txt.Text = txtSender.Text AndAlso txt.Text <> "" Then<br />
                MsgBox("You have already filled this value")<br />
                e.Cancel = True<br />
                Exit For<br />
            End If<br />
        Next<br />
    End Sub<br />
End Class

AddHandler ctrl.Validated,AddressOf txtvalidate_validating<br />

Dim intime As DateTime<br />
dim outtime as datetime<br />
<br />
Dim tspan As TimeSpan = outtime.Subtract(intime