PDA

View Full Version : سوال در مورد ترتیب لود شدن فرم ها



ahmad abdoli
یک شنبه 20 بهمن 1392, 23:12 عصر
با سلام خدمت دوستان
من برنامه ای دارم که تعدادی فرم داره.

هنگام اجرای برنامه اولین فرمی که ساختم اجرا می شه.
حالا من می خوام یه فرم دیگه به اسم MainForm به برنامه اضافه کنم که هنگام اجرای برنامه فرم MainForm اول نمایش داده بشه.

لطفا راهنمایی کنید چیکار باید بکنم.

سید حمید حق پرست
یک شنبه 20 بهمن 1392, 23:36 عصر
سلام علیکم
خب از منو Project سپس گزینه Project Properties و در پنجره باز شده از تب General قسمت Startup Object فرم مورد نظرتون رو انتخاب کنید.
موفق باشید.

یا علی (ع)

ahmad abdoli
یک شنبه 20 بهمن 1392, 23:44 عصر
دستتون درد نکنه کارم راه افتاد خدا خیرت بده.

یه سوال دیگه سید جان

اگه بخوای انتخاب اون فرم رو به کاربر واگذار کنی(یا از طریق کد نویسی باشه) باید چی کار کنی.

سید حمید حق پرست
یک شنبه 20 بهمن 1392, 23:47 عصر
فرض کنید در فرمی با نام form1 هستید و میخواید به فرمی با نام form2 برید، کد به صورت زیر هست :
Me.Hide
Form2.Show
موفق باشید.

یا علی (ع)

ahmad abdoli
یک شنبه 20 بهمن 1392, 23:51 عصر
منظور من این بود که مثلا دو شکل برای MainForm طراحی کنیم و بعد برای مثال با یه کامند به کاربر
قابلیت انتخاب اون یکی فرم رو بدی و در اجرای بعدی برنامه هم اون فرمی که کاربر انتخاب کرده به نمایش در بیاد.

سید حمید حق پرست
یک شنبه 20 بهمن 1392, 23:57 عصر
خب در هر دو فرم یک کامند بزارید و کد بالا رو در کامندها قرار بدید قرار بدید.
اگر میخواید هر دو فرم نمایش داده بشن فقط کد نمایش بزارید.
موفق باشید.

یا علی (ع)

ahmad abdoli
دوشنبه 21 بهمن 1392, 00:03 صبح
خوب اینجوری که در هر بار که کاربر برنامه رو اجرا می کنه باید اون فرم دلخواه رو انتخاب کنه
من می خوام مثلا اگر یک بار اون رو انتخاب کرد وبرنامه رو دوباره باز و بسته کرد، او فرمی که در اجرای قبلی انتخاب کرده به نماش در بیاد.

Mr.305
دوشنبه 21 بهمن 1392, 01:15 صبح
از تابعsavesettings استفاده کن مثل:
کلیک یر روی دکمه 1:
SaveSetting App.EXEName, "Options", "Show Form", 1
کلیک یر روی دکمه 2:
SaveSetting App.EXEName, "Options", "Show Form", 2


حالا تو sub main یا form_load بنویس
Dim ShowAtStartup As Long

ShowAtStartup = GetSetting(App.EXEName, "Options", "Show Forms", 1)
If ShowAtStartup = 1 Then
Form1.Show
Else
Form2.Show
End If