تغییر ویژگی همه فرم ها به فرم اول

[pars1376]

سلام دوستان

من دارم یه برنامه ای مینویسم که 15 تا فرم داره بصورت: form1-form2-form3 و....
حالا میخوام وقتی پروژه اجراشد و و فرم اول نشون داده شد وقتی کاربر روی دکمه در فرم اول کلیک کرد علاوه بر این که به فرم بعدی بره ابعاد تمام فرم ها مثل فرم اول بشه.
من هرکاری کردم نتونستم ابعادو جور در بیارم

آیا امکان چنین چیزی هست؟
ممنون

[سپهر-111]

سلام
شما قبل از این که به فرم بعدی بری ، میای ابعاد فرم اول را در متغیر قرار میدی بعد وقتی خواستی فرم بعدی را لود کنی اول فرم را invisible میکنی بعد مقدار ابعاد فرم قبلی را در فرم جدید قرار میدی بعد خاصیت فرم را در حالت visible قرار میدی . . .

یک راه دیگه اینه که بیای از فرم پدر استفاده کنی . . . MDI FORM

[vbhamed]

سلام
With Form1
Form2.Move .Left, .Top, .Width, .Height
Form1.Hide
Form2.Show
End With

[pars1376]

سلام
With Form1
Form2.Move .Left, .Top, .Width, .Height
Form1.Hide
Form2.Show
End With

سلام
درود به شما

این همون چیزیه که نیاز داشتم

فقط میشه راجب کاربرد with توضیح بدبد تا روشن بشم

متشکرم

[vbhamed]

سلام
with براي خلاصه نويسي دستورات استفاده ميشه، با اين دستور ميشه كاري كرد كه به خاصيت ها و متدهاي يك شيء يا كلاس بدون نوشتن اسم اون شيء يا كلاس دسترسي پيدا كرد
مثلا دستورات زير رو در نظر بگيريد
frmAddCustomerToDatabase.Caption = "test"
frmAddCustomerToDatabase.BackColor = QBColor(14)
frmAddCustomerToDatabase.AutoRedraw = True

frmAddCustomerToDatabase.Font.Name = "Tahoma"
frmAddCustomerToDatabase.Font.Size = 40
frmAddCustomerToDatabase.Font.Bold = True
frmAddCustomerToDatabase.Font.Italic = False
frmAddCustomerToDatabase.Font.Underline = False

دستورات بالا رو ميشه با with به شكل زير خلاصه كرد
With frmAddCustomerToDatabase
.Caption = "test"
.BackColor = QBColor(14)
.AutoRedraw = True

.Font.Name = "Tahoma"
.Font.Size = 80
.Font.Bold = True
.Font.Italic = False
.Font.Underline = True
End With
ضمنا از with ميشه به صورت تو در تو و براي دسترسي به متدهاي داخلي يك كلاس استفاده كرد
With frmAddCustomerToDatabase
.Caption = "test"
.BackColor = QBColor(14)
.AutoRedraw = True

With .Font
.Size = 80
.Bold = True
.Italic = False
.Underline = True
End With
End With
و البته براي قسمت Font تنها اين شكلي هم ميشه نوشت
With frmAddCustomerToDatabase.Font
.Size = 80
.Bold = True
.Italic = False
.Underline = True
End With