منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] التعديل على مشروع تحريك الازرار اثناء تشغيل البرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] التعديل على مشروع تحريك الازرار اثناء تشغيل البرنامج (/showthread.php?tid=12886)



التعديل على مشروع تحريك الازرار اثناء تشغيل البرنامج - mohamed haroon - 05-08-15

السلام عليكم و رحمة الله و بركاتة

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

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

[attachment=7583]

ارجو الرد وشكرا  Smile


RE: التعديل على مشروع تحريك الازرار اثناء تشغيل البرنامج - الطالب - 05-08-15

سلام

كود :
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

موفقين


RE: التعديل على مشروع تحريك الازرار اثناء تشغيل البرنامج - mohamed haroon - 06-08-15

(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

موفقين

شكرا على ردك


RE: التعديل على مشروع تحريك الازرار اثناء تشغيل البرنامج - مبرمج بلا حدود - 07-08-15

السلام عليكم ورحمة الله وبركاته
يا اخوة لو تفضلتم مشكورين حفظكم الله
ماذا تقصدون بالتحريكـ جربت المثال وكذلك التعديل ولم يحدث شئ بعد التنفيذ ؟!


RE: التعديل على مشروع تحريك الازرار اثناء تشغيل البرنامج - mohamed haroon - 09-08-15

(07-08-15, 10:25 PM)مبرمج بلا حدود كتب : السلام عليكم ورحمة الله وبركاته
يا اخوة لو تفضلتم مشكورين حفظكم الله
ماذا تقصدون بالتحريكـ جربت المثال وكذلك التعديل ولم يحدث شئ بعد التنفيذ ؟!
اى عند عمل البرنامج يتحرك الزر داخل الفورم عند سحبة بالماوس


RE: التعديل على مشروع تحريك الازرار اثناء تشغيل البرنامج - مبرمج بلا حدود - 09-08-15

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

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