[asto]

VB_Coder كتب :السلام عليكم

- قم بتسمية جميع التكستات بإسم واحد لكي تكون في مصفوفة ، ثم إستخدم هذا الكود ، فقط غير إسم ال Picture1 إلى الإسم الموحد للتكستات :

كود :

Dim SSX As Integer
Dim SSY As Integer

Private Sub Picture1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
SSX = X
SSY = Y
End Sub

Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
   Picture1(Index).Left = Picture1(Index).Left + X - SSX
   Picture1(Index).Top = Picture1(Index).Top + Y - SSY
End If
End Sub

- تحياتي .

لا لكل تكست و لنطبق المصفوفة احداثيات معينة فالمطلوب انه اذا حركت ذو الاندكس=0 اريد ان يتحرك ذو الاندكسات من 1-7 دفعة واحدة بنفس الطريقة و نفس المسافة