كيفية التحكم في حجم Form

جرب هذا الكود

If Me.Width < 500 Or Me.Height < 500 Then
			Me.Height = 1000
			Me.Width = 1000
		End If

الأفضل أن تضع شرط للطول لوحده وشرط للعرض لوحده

جرب وستعرف الفرق

		Dim h As Integer = 300
		Dim w As Integer = 300
		If Me.Width < w Then
			Me.Width = w
		End If
		If Me.Height < h Then
			Me.Height = h
		End If

أخي hsan_ahmed الكود الدي أرفقته هو نفس الكود الدي أرفقته أنا .. فبدل استعمال width و height مباشرة استعملتها لتحديد size للفورم ...

أخي anossof هل يمكنك إعادة كتابة الكود لأني لم أفهم شيئا من الكتابة السابقة

يجب أولا تعريف أصغر طول وأصغر عرض

		Dim _Width = 300
		Dim _height = 300

ثم وضع شرط للطول ثم شرط للعرض

If Me.Width < _Width then Me.Width = _Width
if Me.Height < _Height Then Me.Height = _height<BR>

أي نضع في الحدث resize الآتي

		Dim _Width = 300
		Dim _height = 300
		If Me.Width < _Width then Me.Width = _Width
		If Me.Height < _Height Then Me.Height = _height

أخي ihsan_ahmed الكود الدي أرفقته هو نفس الكود الدي أرفقته انا .. و هدا يعطيني نتيجة و لكن نتيجة غير عملية .. لأن كلما غيرت حجم الفورم .. الكائنات تعيد رسم نفسها و هدا ما يشوه جمالية الفورم ...

أخي anossof .. ليس هدا ما قصدته بأني لم أفهم شيئا ... لقد قلت لك دلك لأن الكود الدي أرفقته في الأول لم يكن مفهوما ... بالنسبة للكود نفس الملاحظة السابقة ..

و شكرا لكما على المساعدة ...

أنا بحاجة لكود عملي بحيث عند تغيير حجم الفورم لا يحس المستخدم بأن controls تعيد رسم نفسها ....

نعم فعلا الكائنات تعيد رسم نفسها <_<

خد الكود ده وادعيلي:

 Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
		Dim _Width = 300
		Dim _height = 300
		If Me.Width < _Width Then Me.AutoSize = True
		If Me.Height < _height Then Me.AutoSize = True
		If Me.Width > _Width Then Me.AutoSize = False
		If Me.Height > _height Then Me.AutoSize = False
 End Sub

<<<الكائنات لا تعيد رسم نفسهـــــا>>>

شكرا جزيلا anossof ... لكن عند تكبير حجم الفورم تدرييجيا فإن controls تعيد رسم نفسها .. و هنا اتساءل إدا كانت - واظن انه يوجد - هناك دالة تمنع هدا المشكل لأن الكثير من البرامج مهما كثرت فيها controls لا تتاثر عند تغيير حجم الفورم ...

المرجو من الإخوة التفاعل لأني اظن ان هدا المشكل يواجهه معظم المبرمجين الدين يريدون الحيوية و الجمالية في واجهات برامجهم ..

و شكرا مرة اخي anossof

بعد البحث الطويل وجدت طريقة بمنتهى السهولة:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
		Me.MinimumSize = New Size(500, 500)
	End Sub

ممكن تحددها من غير كود في الخصائص بتاعة الفورم

:calc:

وأي خدمات

جزاك الله خيرا ... لقد أفادتني مشاركتك الثالثة كثيرا .. و لقد عدلت الكود لتسريع تنفيده فأصبح

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
		If Me.Width < 300 OrElse Me.Height < 250 Then
		Me.AutoSize = True
		ElseIf Me.Width > 300 OrElse Me.Height > 250 Then
	Me.AutoSize = False
		End If
End Sub

و الكود الأخير مفيد أيضا و صغير ..

الكود اللي انت كتبتو واللي انا كتبتة في الأول مش شغال 100/100

لأنك عندما تقلل عرض الفورم على الآخر ثم تحاول تقليل طوله لا يمكنك ذلك

أما الكود الي في الفورم لود مضمون 100/100

وأسهل وأسرع في التحميل لأنه يحمل لمرة واحدة أما في الresize يحمل كلما تعمل resize مما يتسبب في تشوه الكائنات

شكراً

جرب وانت تشوف

مشكور ..