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

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

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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] يرجى التعديل على الكود dubai.eig 4 77 18-01-17, 05:25 PM
آخر رد: dubai.eig
  [سؤال] مشكله اثناء تثبيت MICROSOFT VISUAL STUDIO ULTIMATE 2013 tempman 0 32 17-01-17, 08:23 AM
آخر رد: tempman
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 507 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  [سؤال] ربط البرنامج بعدة اجهزة ابو يوسف النواوي 2 3 135 12-01-17, 03:52 AM
آخر رد: Basil Abdallah
  كود تحريك نص في شريط عنوان النافذة atefkhalf2004 2 1,855 05-01-17, 11:47 PM
آخر رد: asdsoft
  [VB.NET] لدي فكرة مشروع لمن يريد المساعدة فاليتفضل 0theghost0 10 272 05-01-17, 05:15 PM
آخر رد: 0theghost0
  [سؤال] مشكلة في انشاء مشروع عبدالرحمن المكاوي 4 113 01-01-17, 02:44 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] مشكلة تهنيج البرنامج ابو روضة 2 163 30-12-16, 04:47 PM
آخر رد: ابو روضة
  كيف يمكن تحريك مربعات النص على التقرير السيد الجوهري 0 41 30-12-16, 09:49 AM
آخر رد: السيد الجوهري
  التعديل الذي أقوم به في الفورم لا يظهر عند عمل RUN نسيم 9 296 28-12-16, 05:10 PM
آخر رد: Basil Abdallah

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


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