16-09-13, 05:03 PM
السلام عليكم ورحمة الله
كيف اجعل الفورم قابل للتحريك على الشاشة عند الضغط عليه والسحب
كيف اجعل الفورم قابل للتحريك على الشاشة عند الضغط عليه والسحب
[سؤال] كيف اجعل الفورم قابل للتحريك عند الضغط عليه والسحب
|
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 وأتمنى لك كل التوفيق تم الشكر بواسطة: sooriaty03 , خلاف
16-09-13, 07:34 PM
تمام جزاك الله خيرا
تم الشكر بواسطة: Mohammad Ashraf
20-09-13, 08:32 AM
هلا عزيزي
نسخة الكود داخل الفورم واعطاني خطأ فين بارك الله فيك اضع الكود لو ممكن توضح اكثر أو تضع مثال جاهز
20-09-13, 12:28 PM
(20-09-13, 08:32 AM)يوسف كتب : السلام عليكم ورحمة الله وبركاته بعد إذن أخي محمد أشرف أحببت أن أصحح ظهور الكود كود : Public Class Form1 تم الشكر بواسطة: يوسف , mohammed moh
20-09-13, 03:58 PM
(20-09-13, 12:28 PM)sooriaty03 كتب :(20-09-13, 08:32 AM)يوسف كتب : بارك الله فيك عمل الكود بدون اي خطأ
05-04-15, 10:33 PM
شكرا جزيلا علي الكود
|
|