تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] التعديل على مشروع تحريك الازرار اثناء تشغيل البرنامج
#1
السلام عليكم و رحمة الله و بركاتة

اريد التعديل على هذا المشروع ليقوم بتحريك الازرار فقط 

مع العلم انة يحرك كل الادوات الموجودة داخل الفورم اثناء تشغيل البرنامج


.rar   drage drop x.rar (الحجم : 64.29 ك ب / التحميلات : 52)

ارجو الرد وشكرا  Smile
الرد }}}}
تم الشكر بواسطة:
#2
سلام

كود :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dragg()
    End Sub

#Region "Dragging"
    Dim startX As Integer
    Private Sub Dragg()
        For Each Control As Control In Me.Controls
            If TypeOf Control Is Button Then
                AddHandler Control.MouseDown, AddressOf startDrag
                AddHandler Control.MouseMove, AddressOf whileDragging
            End If
        Next
    End Sub
    Private Sub startDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        startX = e.X
    End Sub
    Private Sub whileDragging(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Left Then
            sender.Location = New Point(sender.Location.X + e.X - startX, sender.Location.Y)
        End If
    End Sub
#End Region

End Class

موفقين
متغيب
الرد }}}}
تم الشكر بواسطة: mohamed haroon , مبرمج بلا حدود
#3
(05-08-15, 10:18 AM)الطالب كتب : سلام

كود :
Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dragg()
   End Sub

#Region "Dragging"
   Dim startX As Integer
   Private Sub Dragg()
       For Each Control As Control In Me.Controls
           If TypeOf Control Is Button Then
               AddHandler Control.MouseDown, AddressOf startDrag
               AddHandler Control.MouseMove, AddressOf whileDragging
           End If
       Next
   End Sub
   Private Sub startDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       startX = e.X
   End Sub
   Private Sub whileDragging(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       If e.Button = Windows.Forms.MouseButtons.Left Then
           sender.Location = New Point(sender.Location.X + e.X - startX, sender.Location.Y)
       End If
   End Sub
#End Region

End Class

موفقين

شكرا على ردك
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود
#4
السلام عليكم ورحمة الله وبركاته
يا اخوة لو تفضلتم مشكورين حفظكم الله
ماذا تقصدون بالتحريكـ جربت المثال وكذلك التعديل ولم يحدث شئ بعد التنفيذ ؟!
الرد }}}}
تم الشكر بواسطة:
#5
(07-08-15, 10:25 PM)مبرمج بلا حدود كتب : السلام عليكم ورحمة الله وبركاته
يا اخوة لو تفضلتم مشكورين حفظكم الله
ماذا تقصدون بالتحريكـ جربت المثال وكذلك التعديل ولم يحدث شئ بعد التنفيذ ؟!
اى عند عمل البرنامج يتحرك الزر داخل الفورم عند سحبة بالماوس
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود
#6
(09-08-15, 01:32 AM)mohamed haroon كتب :
(07-08-15, 10:25 PM)مبرمج بلا حدود كتب : السلام عليكم ورحمة الله وبركاته
يا اخوة لو تفضلتم مشكورين حفظكم الله
ماذا تقصدون بالتحريكـ جربت المثال وكذلك التعديل ولم يحدث شئ بعد التنفيذ ؟!
اى عند عمل البرنامج يتحرك الزر داخل الفورم عند سحبة بالماوس

السلام عليكم ورحمة الله وبركاته 
حسبت ان الازرار تتحرك عند وضع الماوس عليها :Smile
جزاكـ الله خير على التوضيح
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 2 45 21-02-17, 10:58 AM
آخر رد: boofa2015
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 104 20-02-17, 02:13 AM
آخر رد: khodor1985
  [VB.NET] كيفية الغاء شفافية زر (بوتون) ؟ + مرفق مشروع الماجيك مسعد 0 48 18-02-17, 03:32 PM
آخر رد: الماجيك مسعد
  البرنامج لايحفظ التغيرات عبدالرحمن المكاوي 4 61 18-02-17, 10:03 AM
آخر رد: وائل القطاوي
  [كود] طلب التعديل على كود If Clipboard.GetText احمد مهران 8 134 18-02-17, 08:23 AM
آخر رد: أسامة السالمي
Thumbs Up [سؤال] كود تخطي فتح رابط معين لتشغيل البرنامج Mk 22353 1 57 17-02-17, 02:43 AM
آخر رد: الماجيك مسعد
  [سؤال] حمايه البرنامج moshax 3 118 09-02-17, 03:34 PM
آخر رد: مساعدة
  [VB.NET] خطأ في كود الاتصال بقاعدة البيانات ،، مرفق مشروع أبووسم 5 105 08-02-17, 04:56 PM
آخر رد: atefkhalf2004
  منع المستخدم من التعديل على أكثر من معلومة في نفس الوقت اليوم مبتدئة وغداً محترفة 5 99 07-02-17, 08:35 PM
آخر رد: Amir_alzubidy
  [سؤال] خطأ اثناء ادخال البيانات RAWAN.HQ 1 53 07-02-17, 01:15 PM
آخر رد: Amir_alzubidy

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


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