+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] تحريك الفورم عن طريق السحب والإفلات من أي مكان (/showthread.php?tid=1032)
تحريك الفورم عن طريق السحب والإفلات من أي مكان - Dardery - 21-11-13
بسم الله الرحمن الرحيم
تعريف الكود:
يقوم هذا الكود وبطريقة مميزة وإنسيابية بإعطاء المستخدم القدرة علي سحب النموذج وتحريكه ليس من شريط العنوان فقط (كما هو الحال الطبيعي) بل بالسحب من أي مكان علي الفورم حتي لو كانت خاصية FormBorderStyle علي None
الكود:
PHP كود :
Private MouseOffset As Point
Private IsLeftButtonDown As Boolean = False
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Form1.MouseDown
Dim xOffset As Integer
Dim yOffset As Integer
If e.Button = MouseButtons.Left Then
xOffset = -e.X - SystemInformation.FrameBorderSize.Width
yOffset = -e.Y - SystemInformation.CaptionHeight - SystemInformation.FrameBorderSize.Height
MouseOffset = New Point(xOffset, yOffset)
IsLeftButtonDown = True
End If
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Form1.MouseMove
If IsLeftButtonDown Then
Dim MousePosition As Point = Control.MousePosition
MousePosition.Offset(MouseOffset.X, MouseOffset.Y)
Location = MousePosition
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Form1.MouseUp
If e.Button = MouseButtons.Left Then
IsLeftButtonDown = False
End If
End Sub
RE: تحريك الفورم عن طريق السحب والإفلات من أي مكان - abo_ramas - 22-11-13
يعطيك الف عافيه
سؤال هذا الكود الي بالبدايه باي مكان اضيفه
- Private MouseOffset As Point
Private IsLeftButtonDown As Boolean = False
فعلا هذا الكود كامل >> كنت اعاني من هذا الكود
كان عندي كود السحب فقط من جيه واحده
RE: تحريك الفورم عن طريق السحب والإفلات من أي مكان - Dardery - 22-11-13
يمكن وضع الكود بأكمله في أي مكان بين
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 Object, ByVal e As MouseEventArgs) Handles Form1.MouseDown
Dim xOffset As Integer
Dim yOffset As Integer
If e.Button = MouseButtons.Left Then
xOffset = -e.X - SystemInformation.FrameBorderSize.Width
yOffset = -e.Y - SystemInformation.CaptionHeight - SystemInformation.FrameBorderSize.Height
MouseOffset = New Point(xOffset, yOffset)
IsLeftButtonDown = True
End If
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Form1.MouseMove
If IsLeftButtonDown Then
Dim MousePosition As Point = Control.MousePosition
MousePosition.Offset(MouseOffset.X, MouseOffset.Y)
Location = MousePosition
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Form1.MouseUp
If e.Button = MouseButtons.Left Then
IsLeftButtonDown = False
End If
End Sub
End Class
RE: تحريك الفورم عن طريق السحب والإفلات من أي مكان - نور الدين وليد - 28-05-16
السلام عليكم اخى
جزاكم الله خيرا
ولكن كيف يمكن القيام بذلك للكنترول مثل زر او نحوه..........
RE: تحريك الفورم عن طريق السحب والإفلات من أي مكان - سعود - 28-05-16
(28-05-16, 08:50 PM)نور الدين وليد كتب : السلام عليكم اخى
جزاكم الله خيرا
ولكن كيف يمكن القيام بذلك للكنترول مثل زر او نحوه..........
بعد اذن الاخ صاحب الموضوع
اقول اغلب الادوات لها ذات الاحداث Button1.MouseDown Button1.MouseMove Button1.MouseUp
RE: تحريك الفورم عن طريق السحب والإفلات من أي مكان - GeneralEG - 26-06-16
اخي عندما اضع فوق ال End Class
يأتني هذا الخطا 3 مرات
Error 2 Handles clause requires a WithEvents variable defined in the containing type or one of its base types.
ما الحل !!!