تقييم الموضوع :
  • 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 
الرد }}}
#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.
ما الحل !!!
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد كود جلب اخر اسم في قاعدة البيانات عن طريق button4 suliman01 1 562 06-01-24, 02:32 AM
آخر رد: HALIM ELEULMA
  [VB.NET] كود جلب اخر اسم في قاعدة البيانات عن طريق button4 suliman01 2 721 05-01-24, 01:19 AM
آخر رد: HALIM ELEULMA
  كود فتح واغلاق الفورم بطريقة جميلة 3booody 13 14,230 17-09-23, 07:30 PM
آخر رد: slimanedany
  ارسال ضربات مفتاح عن طريق بوتون [تم الحل] ابراهيم ايبو 0 1,302 08-08-21, 04:25 PM
آخر رد: ابراهيم ايبو
Lightbulb [كود] إغلاق الفورم عن طريق زر Esc و التعامل مع CancelButton Anas Mahmoud 1 2,529 18-06-21, 07:15 PM
آخر رد: AymanRamadanSaad
Star [VB.NET] ثيمات لتغيير شكل الفورم 3booody 0 2,606 17-03-21, 09:26 PM
آخر رد: 3booody
Lightbulb ايجاد عناصر الفورم من نوع معين ( PictureBox ) في List في سطر واحد Anas Mahmoud 0 1,664 22-09-20, 10:17 AM
آخر رد: Anas Mahmoud
  طريقتان لتصوير الفورم تختلف نتائجهما خصوصا بويندوز 10 سعود 2 2,392 17-06-20, 02:31 AM
آخر رد: سعود
  فتح الفورم DOX.1 1 2,624 04-03-20, 04:42 AM
آخر رد: محمد ايمن
  [كود] تحريك الكلام من عنوان الفورم و المربع+تحريك الكلمات في العنون و التكست محمد ايمن 2 2,435 04-03-20, 04:38 AM
آخر رد: محمد ايمن

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


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