[asto]

و إذا كان لدينا مجموعة أزرار في مصفوفة باسم MyCommand و نريد تنفيذ أمر معين حسب الزر المضغوط فإن الإجراء يكون كالتالي:
كود:

كود :

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
            ' تم النقر على الزر الأول
        Case 1
            ' تم النقر على الزر الثاني
        Case 2
            ' تم النقر على الزر الثالث
        ' ...
            ' ...
        Case N
            ' تم النقر على الزر الأخير
    End Select
End Sub

اذا كيف نعرف هذه المصفوفة و كيف ننسب العناصر اليها

و اذا بدلنا العبارة

كود :

Private Sub Command1_Click(Index As Integer)

بــــــــــ

كود :

Private Sub Picture1_DblClick()

هل سوف ينفذ عند الضغط مرتين على اي بكشتر في مصفوفة البكتشرات مثلا