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

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

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


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

ارجو الرد وشكرا  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
جزاكـ الله خير على التوضيح
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصميم مشروع لاختار اسم MOHAMMED ALZWI 2 82 25-03-24, 01:32 PM
آخر رد: MOHAMMED ALZWI
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 148 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مشكلة عدم اكتمال تنفيذ بسبب فصل الشبكة او التيار الكهربائي اثناء النتفيذ تناسيم 3 1,840 05-02-24, 10:04 PM
آخر رد: 01AHMED
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 272 18-01-24, 05:04 PM
آخر رد: loay775
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  [VB.NET] كود التعديل Abdellatif 6 394 21-12-23, 02:01 PM
آخر رد: Abdellatif

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


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