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

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

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

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

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

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

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

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



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


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [VB.NET] برنامج عشرًا : للتذكير بالصلاة على النبي عليه الصلاة والسلام Anas Mahmoud 2 162 منذ 11 ساعة مضت
آخر رد: Anas Mahmoud
  انشاء برنامج يقوم بتخزين البيانات في قاعدة بيانات اون لاين فاير بيس vb.net ahmadpal 1 639 03-12-20, 05:11 PM
آخر رد: m4n2net2000
Lightbulb سورس كود برنامج صانع الاكواد asemshahen5 54 22,367 16-11-20, 12:55 AM
آخر رد: ibrahematia
  [مشروع] مشروع برنامج مبيعات متكامل بالباركود nouribenyahia 47 13,970 14-11-20, 03:14 PM
آخر رد: عبد العزيز البسكري
  [مشروع] تصميم احترافي لبرنامج شئون الموظفين باستخدام ديف اكسبريس + تحميل السورس كود mazentq 4 459 12-11-20, 03:05 PM
آخر رد: MORADWAN
  [مشروع] تصميم تطبيق لقفل واخفاء الملفات مع السورس كود ahmadpal 11 2,091 10-11-20, 06:41 PM
آخر رد: djtech
  برنامج المغسلة SABER_ZINOUBI 2 436 09-11-20, 11:08 PM
آخر رد: SABER_ZINOUBI
Heart [مشروع] نسخه مصغره من برنامج صانع الاكواد للجميع aliday03 17 12,239 26-10-20, 01:23 AM
آخر رد: Arfat007
  [مشروع] 3 مشاريع مفتوحى المصدر يمكن أن يكونوا نواة لبناء برنامج أذان عالمى كما يصلح ل mmaalmesry 2 584 15-10-20, 09:55 AM
آخر رد: ibra9009
  [VB.NET] مشروع برنامج مبيعات بلغة فيجوال بيسك و سيكوال سيرفر aloush 16 7,130 15-10-20, 09:52 AM
آخر رد: ibra9009

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


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