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

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

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

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

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

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

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

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



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


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


بالتوفيق
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] تصميم برنامج ميثاق فلسطين عبد الهادي بهاب 0 94 17-09-20, 01:40 AM
آخر رد: عبد الهادي بهاب
  ادوات + برنامج مفتوح المصدر للتحميل من اليوتيوب معاند الحظ 0 106 15-09-20, 09:23 PM
آخر رد: معاند الحظ
Wink [مشروع] مشروع تصميم فورم بشكل جديد بالفيجوال ستوديو مع السورس كود ahmadpal 5 1,036 15-09-20, 04:56 PM
آخر رد: Ali 2020
  [مشروع] تصميم برنامج تعليمي للاطفال ... الحساب الذهني Calcul Mental عبد الهادي بهاب 0 71 12-09-20, 09:12 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم برنامج تعليمي مراجعة تفاعلية لعلمية الجمع عبد الهادي بهاب 4 197 11-09-20, 01:01 AM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم برنامح تعليمي للاطفال ...رتب كلمات الجملة ( سحب الكلمة ) عبد الهادي بهاب 0 106 07-09-20, 12:52 AM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم لعبة السلم و الافعى عبد الهادي بهاب 0 96 05-09-20, 07:04 PM
آخر رد: عبد الهادي بهاب
  تصميم برنامج صانع الشهادات التقديرية عبد الهادي بهاب 0 108 05-09-20, 06:17 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم لعبة المربعات squaresgame عبد الهادي بهاب 0 100 04-09-20, 02:13 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم لعبة الدبناصور لمتصفح كروم T- rex runner عبد الهادي بهاب 0 120 03-09-20, 04:09 AM
آخر رد: عبد الهادي بهاب

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


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