تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] تصميم برنامج تعليمي للاطفال ..المقارنة بين الاطوال
#1
السلام عليكم

دائما مع افكار بسيطة جدا استعمال خاصية  Height  لتصميم برنامج للاطفال

المقارنة بين الاطوال

نضع 0 صور بنفس الطول

ثم نضع في ملف الروسورس مجموعة اقلام او اعمدة لنستددعيها عشوائيا

اولا نخفي 1 اعمدة ثم نبدا باظهار 2 عمودين  لما ينجح يظهر 3 و هكذا

لحل التمرين سيضغط بين عمودين لتغير مكانهما 

الشكل النهائي للتمرين 



الملف المفتوح للتعديل


.rar   Math1apOrdre.rar (الحجم : 587.98 ك ب / التحميلات : 30)


بالتوفيق
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
#2
اضافة متميزة للاستاذ انس حفظه الله

Anas Mahmoud
تفضل اخي الكريم :

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

PHP كود :
   Dim movingPicOriginalLeft As Integer
   Dim movingPic 
As PictureBox 

 
PHP كود :
 Dim mX As Integer

   Private Sub PictureBox9_MouseDown
(sender As ObjectAs MouseEventArgs)
       Dim pic As PictureBox sender
       pic
.BringToFront()
       movingPic pic
       movingPicOriginalLeft 
pic.Left
       mX 
e.X
   End Sub

   Private Sub PictureBox9_MouseMove
(sender As ObjectAs MouseEventArgs)
       Dim pic As PictureBox sender
       If pic Is movingPic Then
           pic
.Left += e.mX
       End 
If
   End Sub

   Private Sub PictureBox9_MouseUp
(sender As ObjectAs MouseEventArgs)
       Dim pic As PictureBox sender
       Dim OverlappingPic 
As PictureBox GetOvelapping(pic)
       RestoreLocation()
       If Not OverlappingPic Is Nothing Then
           SwapPicture
(picOverlappingPic)
       End If
   End Sub
   Function GetOvelapping
(picturebox As PictureBox) As PictureBox
       For Each pic In Pict
           If pic
.Visible False Then Continue For
           If pic Is picturebox Then Continue For
           If IsOverlapping(picpictureboxThen Return pic
       Next
       Return Nothing
   End 
Function

   Function IsOverlapping(pic1 As PictureBoxpic2 As PictureBox) As Boolean
       Return 
((pic1.Left pic1.Width) > pic2.Left) And
           ((pic1.Left) < pic2.Left pic2.Width)

   End Function

   Sub SwapPicture(pic1 As PictureBoxpic2 As PictureBox)
       Dim tmpLeft As Integer
       tmpLeft 
pic1.Left
       pic1
.Left pic2.Left
       pic2
.Left tmpLeft
   End Sub

   Sub RestoreLocation
()
       If movingPic Is Nothing Then Return
       movingPic.Left movingPicOriginalLeft
       movingPic 
Nothing
       movingPicOriginalLeft 
Nothing
       mX 
Nothing
   End Sub 


واضفت ايضا في الفورم لود :

   
PHP كود :
   For Each pic In Pict
           AddHandler pic
.MouseDownAddressOf PictureBox9_MouseDown
           AddHandler pic
.MouseUpAddressOf PictureBox9_MouseUp
           AddHandler pic
.MouseMoveAddressOf PictureBox9_MouseMove
       Next 

الملف بعد التعديل
http://vb4arb.com/vb/attachment.php?aid=25643
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
تم الشكر بواسطة: ابراهيم ايبو , Anas Mahmoud


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج المغسلة SABER_ZINOUBI 1 154 15-10-20, 02:35 PM
آخر رد: DOX.1
  [مشروع] 3 مشاريع مفتوحى المصدر يمكن أن يكونوا نواة لبناء برنامج أذان عالمى كما يصلح ل mmaalmesry 2 322 15-10-20, 09:55 AM
آخر رد: ibra9009
  [VB.NET] مشروع برنامج مبيعات بلغة فيجوال بيسك و سيكوال سيرفر aloush 16 6,143 15-10-20, 09:52 AM
آخر رد: ibra9009
  [مشروع] برنامج البحث السريع في القران الكريم عبد الهادي بهاب 2 258 15-10-20, 09:51 AM
آخر رد: ibra9009
Star [مشروع] برنامج مبيعات مفتوح المصدر 2018 mohammedvego 159 80,595 14-10-20, 05:01 PM
آخر رد: ELKAHRAB20
Wink [مشروع] مشروع تصميم فورم بشكل جديد بالفيجوال ستوديو مع السورس كود ahmadpal 6 1,415 01-10-20, 05:59 PM
آخر رد: Ali 2020
  [مشروع] برنامج يساعد على التحفيظ سعود 17 5,751 28-09-20, 04:25 AM
آخر رد: سعود
  [مشروع] تصميم برنامج ميثاق فلسطين عبد الهادي بهاب 0 224 17-09-20, 01:40 AM
آخر رد: عبد الهادي بهاب
  ادوات + برنامج مفتوح المصدر للتحميل من اليوتيوب معاند الحظ 0 224 15-09-20, 09:23 PM
آخر رد: معاند الحظ
  [مشروع] تصميم برنامج تعليمي للاطفال ... الحساب الذهني Calcul Mental عبد الهادي بهاب 0 171 12-09-20, 09:12 PM
آخر رد: عبد الهادي بهاب

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم