تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود تحريك نص في شريط عنوان النافذة atefkhalf2004 2 1,850 05-01-17, 11:47 PM
آخر رد: asdsoft
  كيف يمكن تحريك مربعات النص على التقرير السيد الجوهري 0 39 30-12-16, 09:49 AM
آخر رد: السيد الجوهري
  مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) marten363 3 88 27-12-16, 08:20 PM
آخر رد: مساعدة
  إزالة العناصر من listview Mohamed20 0 78 02-11-16, 11:49 PM
آخر رد: Mohamed20
  [VB.NET] التحكم في العناصر محمد اسماعيل 1 75 26-10-16, 12:39 PM
آخر رد: العواد الصغير
  [سؤال] تحريك الصورة naden 3 152 02-10-16, 01:13 AM
آخر رد: ممدوح
  أحتاج كحود الوقوف على آخر سجل و كود للتنقل بين العناصر AL - WafaaPro 14 707 09-04-16, 02:11 PM
آخر رد: AL - WafaaPro
  [VB.NET] طلب : كود جمع العناصر من جدول بقاعدة البيانات بتحديد أكثر من عنصر hamada salah90 3 373 02-03-16, 03:01 AM
آخر رد: moftah70
  [VB.NET] طلب : كود جمع العناصر من جدول بقاعدة البيانات + البحث بمجرد الكتابة في التكست بوكس hamada salah90 2 643 27-02-16, 10:19 AM
آخر رد: hamada salah90
  [VB.NET] (الربط بين العناصر)الضغط على زر + كتابة فى تكست بوكس داخل المتصفح من برنامجى الماجيك مسعد 7 519 10-02-16, 02:00 PM
آخر رد: الماجيك مسعد

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


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