تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] تحريك اداه عن طريق السحب ولافلات
#1
السلام عليكم جميعآ
يمكن تحريك اداه عن طريق السحب ولافلات ؟
كود :
Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        Button1.Location = New Point(MousePosition.X And MousePosition.Y)
    End Sub
لا اقدر على سحب الاداه بهذا الكود
الرد }}}}
تم الشكر بواسطة:
#2
تحتاج لعدة احداث
ويوجد للاخ ابي رائد مثال رائع
http://vb4arb.com/vb/thread-628.html
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: kslawy
#3
تفضل اخي هذا الكود
كود :
Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        X = Control.MousePosition.X - Button1.Location.X
        Y = Control.MousePosition.Y - Button1.Location.Y
    End Sub

    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
        If e.Button = MouseButtons.Left Then
            NewPoint = Control.MousePosition
            NewPoint.X -= (X)
            NewPoint.Y -= (Y)
            Button1.Location = NewPoint
        End If
    End Sub
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 1 77 أمس, 06:53 PM
آخر رد: رمضان محمد
  طريق الكتابة على التكست بوكس aftfm 6 94 26-05-17, 09:01 PM
آخر رد: aftfm
  ارسال بيانات عن طريق الإنترنت أسامة السالمي 7 141 22-05-17, 04:43 PM
آخر رد: Amir_alzubidy
  [سؤال] كود فتح الاوتوكاد عن طريق الفجوال 2008 gharib 3 76 21-05-17, 06:46 PM
آخر رد: gharib
  ممكن طريقة عمل راديو اذاعات القرآن الكريم عن طريق aassa 5 96 20-05-17, 12:49 AM
آخر رد: alma2
  ربط الاجهزة عن طريق ال Bluetooth mohamed haroon 0 36 16-05-17, 03:53 PM
آخر رد: mohamed haroon
  سؤال بخصوص التحكم بالمحرك عن طريق الحاسوب Basil Abdallah 2 66 16-05-17, 12:29 AM
آخر رد: alma2
  اداه webbrowser Mohamed20 0 69 15-03-17, 06:22 PM
آخر رد: Mohamed20
  سؤال فى اداه listview Mohamed20 3 140 08-03-17, 01:31 AM
آخر رد: Mohamed20
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 222 18-02-17, 02:19 PM
آخر رد: Amrjamil

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


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