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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  تشغيل الماكرو عن طريق اكواد الفجوال نيمو 0 271 03-11-23, 11:14 AM
آخر رد: نيمو
  سؤال في تحريك التحديد في datagrideview maher_haddaf 3 434 23-10-23, 08:27 AM
آخر رد: أبو خالد الشكري
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 517 03-08-23, 03:41 PM
آخر رد: moh61
  [سؤال] تشغيل راديو عن طريق الانترنت أبوسعود 5 716 01-07-23, 10:34 PM
آخر رد: asmarsou
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,620 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  ربط جهازين عن طريق الانترنت (public ip) mom22jo 5 1,967 15-05-23, 12:25 AM
آخر رد: ابو محمد محمد محمد
  فتح قاعدة البيانات المحمية بكلمة مرور عن طريق الفيجوال بيسك Tajaldeen 1 658 07-03-23, 08:59 AM
آخر رد: Taha Okla
  كيفية تحديد طابعه معينه للطباعه عن طريق PrintDocument حسين ادريس 2 595 14-02-23, 11:16 PM
آخر رد: estefsar

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


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