منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب : كود التحكم في حجم الفورم ومكانه
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

احبابي في الله


اريد طريقة لجعل الفورم غير قابلة للتحرك                          not movable

وايضا اريد ان تكون الفورم غير قابلة لتغيير حجمها                  not sizable

Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile
عليكم السلام ورحمة الله وبركاته
حياك الله اخي الحبيب
بالنسبه لتثبت الفورم ومنع تحركها من خلال الحدث Move الخاص بالفورم
عند تحريك الفورم تقوم باعادة Location الافتراضي
لمنع تكبير او تصغير الفورم من خلال خاصيه FormBorderStyel اختار مثلا FixedSingle
ايضا نقوم بالغاء زر تكبير الفورم maximizeBox نضع له false
او من خلال الكود تعدل هذه الخصائص

جرب هذا الكود
كود :
Public Class Form1
   Private x As Integer = 200
   Private y As Integer = 200
   Private Sub Form1_Move(sender As Object, e As EventArgs) Handles MyBase.Move
       Me.Location = New Point(x, y)

   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
       Me.MaximizeBox = False
   End Sub

End Class
(12-04-16, 03:17 PM)foxweb كتب : [ -> ]عليكم السلام ورحمة الله وبركاته
حياك الله اخي الحبيب
بالنسبه لتثبت الفورم ومنع تحركها من خلال الحدث Move الخاص بالفورم
عند تحريك الفورم تقوم باعادة Location الافتراضي
لمنع تكبير او تصغير الفورم من خلال خاصيه FormBorderStyel اختار مثلا FixedSingle
ايضا نقوم بالغاء زر تكبير الفورم maximizeBox نضع له false
او من خلال الكود تعدل هذه الخصائص

جرب هذا الكود
كود :
Public Class Form1
   Private x As Integer = 200
   Private y As Integer = 200
   Private Sub Form1_Move(sender As Object, e As EventArgs) Handles MyBase.Move
       Me.Location = New Point(x, y)

   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
       Me.MaximizeBox = False
   End Sub

End Class

لك جزيل الشكر اخي الفاضل Smile Smile Smile