منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] طلب : كود التحكم في حجم الفورم ومكانه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طلب : كود التحكم في حجم الفورم ومكانه (/showthread.php?tid=15460)



طلب : كود التحكم في حجم الفورم ومكانه - hamada salah90 - 12-04-16

السلام عليكم ورحمة الله وبركاته

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


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

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

Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile


RE: طلب : كود التحكم في حجم الفورم ومكانه - foxweb - 12-04-16

عليكم السلام ورحمة الله وبركاته
حياك الله اخي الحبيب
بالنسبه لتثبت الفورم ومنع تحركها من خلال الحدث 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



RE: طلب : كود التحكم في حجم الفورم ومكانه - hamada salah90 - 13-04-16

(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