تقييم الموضوع :
  • 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

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

[صورة مرفقة: 000.gif]
الرد }}}}
تم الشكر بواسطة:
#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
شكرا لك اخي الكود تمام التمام الله يرضى عليك وان يجعلها لك في ميزان الحسنات

[صورة مرفقة: 000.gif]
الرد }}}}
تم الشكر بواسطة:
#4
يمكنك أيضا عكسها بكود أسهل وأبسط
p1.top-= 4
p2.top+= 4
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إزالة العناصر من listview Mohamed20 0 58 02-11-16, 11:49 PM
آخر رد: Mohamed20
  [VB.NET] التحكم في العناصر محمد اسماعيل 1 50 26-10-16, 12:39 PM
آخر رد: العواد الصغير
  [سؤال] تحريك الصورة naden 3 120 02-10-16, 01:13 AM
آخر رد: ممدوح
  أحتاج كحود الوقوف على آخر سجل و كود للتنقل بين العناصر AL - WafaaPro 14 629 09-04-16, 02:11 PM
آخر رد: AL - WafaaPro
  [VB.NET] طلب : كود جمع العناصر من جدول بقاعدة البيانات بتحديد أكثر من عنصر hamada salah90 3 339 02-03-16, 03:01 AM
آخر رد: moftah70
  [VB.NET] طلب : كود جمع العناصر من جدول بقاعدة البيانات + البحث بمجرد الكتابة في التكست بوكس hamada salah90 2 591 27-02-16, 10:19 AM
آخر رد: hamada salah90
  [VB.NET] (الربط بين العناصر)الضغط على زر + كتابة فى تكست بوكس داخل المتصفح من برنامجى الماجيك مسعد 7 480 10-02-16, 02:00 PM
آخر رد: الماجيك مسعد
  اتجاه العناصر في صفحة aspx تناسيم 1 211 24-08-15, 03:10 PM
آخر رد: أبو عمر
  [سؤال] التعديل على مشروع تحريك الازرار اثناء تشغيل البرنامج mohamed haroon 5 685 09-08-15, 01:39 AM
آخر رد: مبرمج بلا حدود
  [VB.NET] نسخ النماذج وظهورة فارغ بدون العناصر mrbadr 2 316 07-06-15, 11:52 AM
آخر رد: mrbadr

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


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