بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'تحريك كائن'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله وبركاته نقول لمن اعتمر تقبل الله منا ومنكم صالح الاعمال ونقول لمن ترقى الف مبروك وعفوا انها جاءت متاخرة وبعد هل تعلم كيف تحرك كائن ( ليبل - صورة الخ ) في فورم ليس اثناء التصميم وانما بعد فتحه نستخدم حدثين لزر الماوس الاول : اثناء الضغط عليه لتخزين موقع الضغط طولا وعرضا Private Sub LabelStart_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Xd = X Yd = Y End Sub الثاني : حدث حركة الماوس بشرط اثناء الضغط على الزر اليسار Button = 1 الزر اليمين ياخذ القيمة 2 Private Sub LabelStart_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then With Me.LabelStart .Move .Left + (X - Xd), .Top + (Y - Yd) End With End If End Sub شاهد المرفق 2003 move.rar- 21 replies
-
- 2
-
-
- تحريك كائن
- فورم
- (و2 أكثر)