تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحريك العناصر الى كل الاتجاهات
#1
هذا الكود الموجود في المشاركة 
كود :
Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If Timer1.Enabled Then
           Timer1.Stop()
       Else
           Timer1.Start()
       End If
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       p1.Left -= 4
       p2.Left += 4
   End Sub

   Private Sub p1_Click(sender As Object, e As EventArgs) Handles p1.Click

   End Sub

   Private Sub p1_Move(sender As Object, e As EventArgs) Handles p1.Move

       If p1.Left <= p2.Right Then
           Timer1.Stop()
       End If
   End Sub
End Class

اريد عكس الطريقة اي من الاعلى والاسفل
جزاكم الله جيرا
الرد }}}
تم الشكر بواسطة:
#2
(23-10-16, 09:05 PM)bidaya كتب : هذا الكود الموجود في المشاركة 
كود :
Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If Timer1.Enabled Then
           Timer1.Stop()
       Else
           Timer1.Start()
       End If
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       p1.Left -= 4
       p2.Left += 4
   End Sub

   Private Sub p1_Click(sender As Object, e As EventArgs) Handles p1.Click

   End Sub

   Private Sub p1_Move(sender As Object, e As EventArgs) Handles p1.Move

       If p1.Left <= p2.Right Then
           Timer1.Stop()
       End If
   End Sub
End Class

اريد عكس الطريقة اي من الاعلى والاسفل
جزاكم الله جيرا

تفضل التعديل اعلي واسفل
كود :
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Timer1.Enabled Then
            Timer1.Stop()
        Else
            Timer1.Start()
        End If
    End Sub
    Dim location1 As New Point
    Dim location2 As New Point
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        location1.X = p1.Location.X 'المحور السيني
        location1.Y = p1.Location.Y - 1 'المحور الصادي
        p1.Location = location1

        'y - اعلي -
        'y+ اسفل
        '        -----------------------
        location2.X = p2.Location.X 'المحور السيني
        location2.Y = p2.Location.Y + 1 'المحور الصادي
        p2.Location = location2

   

    End Sub

    Private Sub p1_Click(sender As Object, e As EventArgs) Handles p1.Click

    End Sub

    'Private Sub p1_Move(sender As Object, e As EventArgs) Handles p1.Move

    '    If location1.Y <= location2.Y Then
    '        Timer1.Stop()
    '    End If
    'End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If p1.Location.Y = p2.Location.Y Then
            Timer1.Stop()
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Timer2.Start()
    End Sub
End Class
اتمني ان تكون مشاركتي إثراء للموضوع وليست إعسار له
الرد }}}
تم الشكر بواسطة: abulayth
#3
شكرا لك اخي الكود تمام التمام الله يرضى عليك وان يجعلها لك في ميزان الحسنات
الرد }}}
تم الشكر بواسطة:
#4
يمكنك أيضا عكسها بكود أسهل وأبسط
p1.top-= 4
p2.top+= 4
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [VB.NET] حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox mervandz 3 287 10-11-23, 07:12 PM
آخر رد: justforit
  سؤال في تحريك التحديد في datagrideview maher_haddaf 3 434 23-10-23, 08:27 AM
آخر رد: أبو خالد الشكري
Photo [سؤال] تجميع قيم العناصر المتشابهة في الداتا جريد فيو علاء الكبابي 6 565 13-08-23, 01:00 PM
آخر رد: تركي الحلواني
  كود تحريك الادوات داخل الفورم مع حفظ الترتيب حماده ممدوح البحيرى 0 293 17-12-22, 02:11 PM
آخر رد: حماده ممدوح البحيرى
  [سؤال] هناك ليست بوكس مربوطه بقاعده بيانات وعايز كود لجلب لجلب اسماء العناصر المحدده حسن الجلب 1 601 18-08-22, 07:20 AM
آخر رد: سعود
  [سؤال] اختفاء بعض العناصر من شريط المهام نهى علي 13 1,422 22-07-22, 05:20 PM
آخر رد: نهى علي
  تحريك الأدوات على التقرير فى وقت التشغيل ! dr.programming 5 971 11-07-22, 05:08 PM
آخر رد: asemshahen5
  تحريك البكتربوكس kebboud 0 625 03-12-21, 10:11 PM
آخر رد: kebboud
  خطأ في كود منع تكرار العناصر في DataGridView غدير الصليحي 4 1,662 21-11-21, 12:24 AM
آخر رد: غدير الصليحي
  [سؤال] كود تحريك الفورم من اي نقطه حسن الجلب 1 870 26-08-21, 05:44 PM
آخر رد: asemshahen5

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


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