تقييم الموضوع :
  • 2 أصوات - بمعدل 3
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] تحريك الفورم عن طريق السحب والإفلات من أي مكان
#1
Information 
بسم الله الرحمن الرحيم

تعريف الكود:Idea

يقوم هذا الكود وبطريقة مميزة وإنسيابية بإعطاء المستخدم القدرة علي سحب النموذج وتحريكه ليس من شريط العنوان فقط (كما هو الحال الطبيعي) بل بالسحب من أي مكان علي الفورم حتي لو كانت خاصية FormBorderStyle علي None

الكود:
PHP كود :
Private MouseOffset As Point
Private IsLeftButtonDown As Boolean False

Private Sub Form1_MouseDown(ByVal sender As ObjectByVal e As MouseEventArgsHandles Form1.MouseDown
    Dim xOffset 
As Integer
    Dim yOffset 
As Integer
    
If e.Button MouseButtons.Left Then
        xOffset 
= -e.SystemInformation.FrameBorderSize.Width
        yOffset 
= -e.SystemInformation.CaptionHeight SystemInformation.FrameBorderSize.Height
        MouseOffset 
= New Point(xOffsetyOffset)
        
IsLeftButtonDown True
    End 
If
End Sub

Private Sub Form1_MouseMove(ByVal sender As ObjectByVal e As MouseEventArgsHandles Form1.MouseMove
    
If IsLeftButtonDown Then
        Dim MousePosition 
As Point Control.MousePosition
        MousePosition
.Offset(MouseOffset.XMouseOffset.Y)
        
Location MousePosition
    End 
If
End Sub

Private Sub Form1_MouseUp(ByVal sender As ObjectByVal e As MouseEventArgsHandles Form1.MouseUp
    
If e.Button MouseButtons.Left Then
        IsLeftButtonDown 
False
    End 
If
End Sub 
الرد }}}}
تم الشكر بواسطة: الشاكي لله , sooriaty03 , mohammed moh , Omar Mekkawy , سعود
#2
يعطيك الف عافيه

سؤال هذا الكود الي بالبدايه باي مكان اضيفه
  • Private MouseOffset As Point
    Private IsLeftButtonDown As Boolean = False


فعلا هذا الكود كامل >> كنت اعاني من هذا الكود

كان عندي كود السحب فقط من جيه واحده
الرد }}}}
تم الشكر بواسطة:
#3
يمكن وضع الكود بأكمله في أي مكان بين

PHP كود :
Public Class Form1 
و
PHP كود :
End Class 
يمكن وضعه أسفل السطر الأول تماماً هكذا
PHP كود :
Public Class Form1
    
Private MouseOffset As Point
    
Private IsLeftButtonDown As Boolean False

    
Private Sub Form1_MouseDown(ByVal sender As ObjectByVal e As MouseEventArgsHandles Form1.MouseDown
        Dim xOffset 
As Integer
        Dim yOffset 
As Integer
        
If e.Button MouseButtons.Left Then
            xOffset 
= -e.SystemInformation.FrameBorderSize.Width
            yOffset 
= -e.SystemInformation.CaptionHeight SystemInformation.FrameBorderSize.Height
            MouseOffset 
= New Point(xOffsetyOffset)
            
IsLeftButtonDown True
        End 
If
    
End Sub

    
Private Sub Form1_MouseMove(ByVal sender As ObjectByVal e As MouseEventArgsHandles Form1.MouseMove
        
If IsLeftButtonDown Then
            Dim MousePosition 
As Point Control.MousePosition
            MousePosition
.Offset(MouseOffset.XMouseOffset.Y)
            
Location MousePosition
        End 
If
    
End Sub

    
Private Sub Form1_MouseUp(ByVal sender As ObjectByVal e As MouseEventArgsHandles Form1.MouseUp
        
If e.Button MouseButtons.Left Then
            IsLeftButtonDown 
False
        End 
If

    
End Sub 
End 
Class 
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم اخى
جزاكم الله خيرا
ولكن كيف يمكن القيام بذلك للكنترول مثل زر او نحوه..........
الرد }}}}
تم الشكر بواسطة:
#5
(28-05-16, 08:50 PM)نور الدين وليد كتب : السلام عليكم اخى
جزاكم الله خيرا
ولكن كيف يمكن القيام بذلك للكنترول مثل زر او نحوه..........

بعد اذن الاخ صاحب الموضوع
اقول اغلب الادوات لها ذات الاحداث Button1.MouseDown Button1.MouseMove Button1.MouseUp
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#6
اخي عندما اضع فوق ال End Class
يأتني هذا الخطا 3 مرات
Error 2 Handles clause requires a WithEvents variable defined in the containing type or one of its base types.
ما الحل !!!
كثيرا من الناس يعرفوني $.$ و انا لا اعرفهم ^_^ انها الشهرة يا عزيزي .:. الشهرة

الاسم : الجنرال المصري
الخبرة : هاكر . مبرمج . مصمم . باحث امني .

العمر :17 سنة
البلد : مصر 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود الاتصال بقاعدة اسيكوال سيرفر2008 على مستوى الفورم ابوبكر الصديق 1 79 17-11-16, 06:50 PM
آخر رد: tryold
  [VB.NET] ممكن كود لجعل حجم الفورم لايتغير sari 5 403 09-10-16, 04:20 PM
آخر رد: خالد الهاشمي
  [كود] طريقة إضافة زر للفورم عن طريق الكود + في حدث معين mohammed moh 11 5,934 19-08-16, 12:13 AM
آخر رد: test123
Wink كود تأثير السحب للفورم محمد سالم المحترف 0 127 16-06-16, 01:48 PM
آخر رد: محمد سالم المحترف
  [سؤال] مشروع لتسجيل الحضور للطلاب عن طريق الباركود علي الفحام 1 542 08-03-16, 04:40 PM
آخر رد: قناص المدينة
  تحميل ملف من النت وحفظه في مكان انت تحدده أبو عمر 2 571 06-09-15, 03:53 PM
آخر رد: أبو عمر
  اريد كود الحث عن طريق الكمبوبوكس ramo 5 836 26-07-15, 11:00 PM
آخر رد: khodor1985
  كود فتح واغلاق الفورم بطريقة جميلة 3booody 7 4,180 24-03-15, 11:30 PM
آخر رد: رحوووم

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


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