ارايه اي از كنترل ها

[meysam_meysam74]

خوب ببخشید من بد متوجه شدم
من جواب دوست عزیزمون اقا علی را یه مقدار عوض کردم و حالا شما میتونید ازش استفاده کنید اگه منظورتون دقیقا چیزی هست که تویه ویبی 6 بود و انظار دارید اینجا هم یه اندکس اونجوری باشه نه تویه وی بی دات نت که از فرامورکر استفاده بکنه چینی چیزی نیست یا به قول معروف گشتم نبود نگرد نیست

Dim TB(3) As TextBox

    Dim ArrH(3) As Long

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

        Select Case sender.GetHashCode

            Case ArrH(0)

                MsgBox("change1")

            Case ArrH(1)

                MsgBox("change2")

            Case ArrH(2)

                MsgBox("change3")

            Case ArrH(3)

                MsgBox("change4")

        End Select

    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TB(0) = TextBox1

        TB(1) = TextBox2

        TB(2) = TextBox3

        TB(3) = TextBox4

        For I As Integer = 0 To 3

            ArrH(I) = TB(I).GetHashCode

            TB(I).BackColor = Color.White

            AddHandler TB(I).TextChanged, AddressOf TextBox2_TextChanged

        Next

    End Sub