[vbnet]

-
منقول

في VB6 كان التعامل مع مجموعة أدوات (من نفس النوع) في إجراء واحد هي بجعلها مصفوفة أداة واحدة كالتالي على سبيل المثال
(ضع ثلاث Text1بمصفوفة و واحد Label)

كود :

Private Sub Text1_Change(Index As Integer)
    Select Case Index
        Case 0
            ' أفعل شيئاً
            
        Case 1
            ' أفعل شيئاً
            Me.Label1.BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
            
        Case 2
            ' أفعل شيئاً
            
    End Select
    
    Me.Label1.Caption = Text1(Index).Text
            
End Sub

في VB.NET أصبح التعامل مع مجموعة أدوات (لا يشترط نفس النوع) في إجراء واحد هي بجمع أحداثها <المتوافقة> (مع إمكانية عمل إجراء إضافي لحدث أي منها) كالتالي على سبيل المثال
(ضع ثلاث TextBox و واحد Label)

كود :

Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged

    Select Case sender.Name
        Case "TextBox1"
            ' أفعل شيئاً

        Case "TextBox2"
            ' أفعل شيئاً

        Case "TextBox3"
            ' أفعل شيئاً

    End Select

    Me.Label1.Text = sender.Text

End Sub

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

    Dim rand As New Random
    Me.Label1.BackColor = Color.FromArgb(rand.Next(0, 255), rand.Next(0, 255), rand.Next(0, 255))

End Sub