عوض كردن سايزform1

با سلام خدمت دوستان عزيز براي عوض كردن سايزform1برنامه كد زير را نوشتم ولي هيچ اتفاقي رخ نداد
چرا؟
Dim frm1 as new form1()
Frm1.size=new size(500,500)

نقل قول:

---

نوشته شده توسط ameysams

با سلام خدمت دوستان عزيز براي عوض كردن سايزform1برنامه كد زير را نوشتم ولي هيچ اتفاقي رخ نداد
چرا؟
Dim frm1 as new form1()
Frm1.size=new size(500,500)

---

سلام
براي فرم جديد :

کد:

---

      Dim frm2 As New Form2
        Dim NewSize As System.Drawing.Size
        NewSize.Width = 400
        NewSize.Height = 600
        frm2.Size = NewSize
        frm2.Show()

---

براي فرم جاري :

کد:

---

        Dim NewSize As System.Drawing.Size
        NewSize.Width = 400
        NewSize.Height = 600
        Me.ActiveForm.Size = NewSize

---

کدی که ایشون نوشته بودن هم عملا همین کد دوم شما بود.

ایلیا

خوب يه كار ديگه هم ميشه كرد و اونم نوشتن كد زير در Form_load هست ولی کار بهینه شده ای نیست

کد:

---

Me.Size=New Size(500,500)

---

بنده گمان می کنم مشکل این دوستمون مربوط به نمونه های مختلف فرم است

در مثالی که نوشته اید شما یک فرم جدید ایجاد می کنید و خصوصیات آن را تغییر می دهید
ببینید اگر شما از نسخه پیشفرض (DefInstance) برای نمایش فرم استفاده کرده اید
یعنی کد زیر:

کد:

---

form1.show()

---

باید از کد زیر استفاده کنید

کد:

---

form1.height = 25
'or other properties

---

اما اگر نمونه جدیدی را ایجاد کرده اید باید نام شی (نام متغیر فرم) را در محل عمومی بنویسید تا در سایر پیمانه های دستور بدان دسترسی داشته باشید