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

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

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

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

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

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

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

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



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


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج البحث عن لقطة داخل صورة أخرى Taha Okla 4 1,233 أمس, 04:23 PM
آخر رد: عبدالكريم برشدان
Big Grin [مشروع] تصميم محرر اكواد بسيط من خلال الفيجوال بيسك مع السورس كود ahmadpal 1 2,117 23-01-24, 05:38 PM
آخر رد: alkndy
  برنامج صانع الاكواد الاصدار المجاني الجديد aljzazy 27 20,083 14-01-24, 12:39 PM
آخر رد: mahmoued2022
Shocked برنامج مواقيت الصلاة ( الاذان ) alsaher1 5 2,531 25-11-23, 02:57 PM
آخر رد: alsaher1
Star [مشروع] برنامج مبيعات مفتوح المصدر 2018 mohammedvego 174 143,572 18-11-23, 03:01 AM
آخر رد: Darweesh
Thumbs Up [VB.NET] برنامج محاسبي مجاني ( مبيعات - مشتريات - مخزون - حسابات ) مفتوح المصدر توب سوفت 3 7,497 06-11-23, 01:36 AM
آخر رد: Ramzigh
  [مشروع] سورس كود برنامج مبيعات لسه مبتدئ 42 34,751 07-10-23, 07:25 PM
آخر رد: حورس2000
  برنامج لادارة الدروس الخصوصية VB.NET2013& Access moaath.khalaf 16 15,790 19-08-23, 12:22 AM
آخر رد: Ramadan alking
  برنامج بنك الأكواد esawy1 4 1,368 28-07-23, 11:53 AM
آخر رد: karmina2012
Music [VB.NET] سورس كود برنامج إذاعي متطور musalem 0 624 25-06-23, 02:06 AM
آخر رد: musalem

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


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