16-09-13, 05:03 PM
16-09-13, 06:35 PM
وعليكم السلام ورحمة الله
استعمل هذا الكود
Dim drag As Boolean
Dim mousex As Integer
Dim mousey As Integer
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
drag =
True
mousex = Windows.Forms.
Cursor.Position.X - Me.Left
mousey = Windows.Forms.
Cursor.Position.Y - Me.Top
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If drag Then
Me.Top = Windows.Forms.Cursor.Position.Y - mousey
Me.Left = Windows.Forms.Cursor.Position.X - mousex
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
drag =
False
End Sub
وأتمنى لك كل التوفيق
استعمل هذا الكود
Dim drag As Boolean
Dim mousex As Integer
Dim mousey As Integer
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
drag =
True
mousex = Windows.Forms.
Cursor.Position.X - Me.Left
mousey = Windows.Forms.
Cursor.Position.Y - Me.Top
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If drag Then
Me.Top = Windows.Forms.Cursor.Position.Y - mousey
Me.Left = Windows.Forms.Cursor.Position.X - mousex
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
drag =
False
End Sub
وأتمنى لك كل التوفيق
16-09-13, 07:34 PM
تمام جزاك الله خيرا
20-09-13, 08:32 AM
هلا عزيزي
نسخة الكود داخل الفورم واعطاني خطأ
فين بارك الله فيك اضع الكود لو ممكن توضح اكثر
أو تضع مثال جاهز
نسخة الكود داخل الفورم واعطاني خطأ
فين بارك الله فيك اضع الكود لو ممكن توضح اكثر
أو تضع مثال جاهز
20-09-13, 12:28 PM
(20-09-13, 08:32 AM)يوسف كتب : [ -> ]هلا عزيزي
نسخة الكود داخل الفورم واعطاني خطأ
فين بارك الله فيك اضع الكود لو ممكن توضح اكثر
أو تضع مثال جاهز
السلام عليكم ورحمة الله وبركاته
بعد إذن أخي محمد أشرف
أحببت أن أصحح ظهور الكود
كود :
Public Class Form1
Dim drag As Boolean
Dim mousex As Integer
Dim mousey As Integer
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
drag = True
mousex = Windows.Forms.Cursor.Position.X - Me.Left
mousey = Windows.Forms.Cursor.Position.Y - Me.Top
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If drag Then
Me.Top = Windows.Forms.Cursor.Position.Y - mousey
Me.Left = Windows.Forms.Cursor.Position.X - mousex
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
drag = False
End Sub
End Class
20-09-13, 03:58 PM
(20-09-13, 12:28 PM)sooriaty03 كتب : [ -> ](20-09-13, 08:32 AM)يوسف كتب : [ -> ]هلا عزيزي
نسخة الكود داخل الفورم واعطاني خطأ
فين بارك الله فيك اضع الكود لو ممكن توضح اكثر
أو تضع مثال جاهز
السلام عليكم ورحمة الله وبركاته
بعد إذن أخي محمد أشرف
أحببت أن أصحح ظهور الكود
كود :
Public Class Form1
Dim drag As Boolean
Dim mousex As Integer
Dim mousey As Integer
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
drag = True
mousex = Windows.Forms.Cursor.Position.X - Me.Left
mousey = Windows.Forms.Cursor.Position.Y - Me.Top
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If drag Then
Me.Top = Windows.Forms.Cursor.Position.Y - mousey
Me.Left = Windows.Forms.Cursor.Position.X - mousex
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
drag = False
End Sub
End Class
بارك الله فيك عمل الكود بدون اي خطأ
05-04-15, 10:33 PM
شكرا جزيلا علي الكود