Visual Basic

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
   ProgressBar1.Maximum = e.MaximumProgress
   ProgressBar1.Value = e.CurrentProgress

End Sub

sub But_click()
     dim Cf as new ChForm
     Cf.show
end sub

Public Class MainForm As Form

  Public Cf as ChForm

  sub But_click()     
    Cf  = new ChForm     
    Cf.show

  end sub

End Class

Public Class MainForm As Form

  Public Cf as ChForm
  Private mNameData As String

  sub But_click()     
    Cf  = new ChForm     
    Cf.show

    mNameData - Cf.NameData()

  end sub

End Class

Public Class ChForm As Form

  Public Property NameData() As String
    Get
      Return txtName.Text

    End Get

    Set (value as String)
      txtName.Text = value

    End Set

  End Property

End Class

text='<% Container.DataItem("ColumnName") %>'

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