مشکل در نمایش فرم در mdiparent

[teymoorei]

سلام
من یه فرم دارم که وقتی توی mdiparent باز میشه باید اسکرول بشه تا تمام فرم رو ببینم در حالی که فضا داره که نیاز به اسکرول نباشه ، StartPosition رو هم روی هر حالتی میذارم باز هم همین مشکل هست .
توی تصویر زیر مشخصه :
11111111111111.png

ممنون میشم راهنمایی بفرمایید

[336699]

سلام

WindowState را روی Maximized قرار بده

Form.PNG

[teymoorei]

سلام
ممنونم از توجه تون تاحدودی درست شد اما چند تا مساله هست که توی تصویر مشخص کردم .

1- مشکل نمایش سه کلید minimize , restore و close هست در حالی که من نمیخوام این کلید ها نمایش داده بشه .
2- با وجود راه حل شما باز هم فرم به درستی باز نمیشه و مقداری از فرم هنوز پایین تر از فرم mdiform هست .
3- برای درست شدن کامل باید کلید restore رو بزنم تا مشکل کامل بر طرف بشه .

2222222222222222.png

[336699]

FormBorderStyle را روی None قرار بده

FormBorderStyle.PNG

[teymoorei]

روی none هست و این مشکل وجود داره

[336699]

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

[teymoorei]

کد های مربوط به فرم کجاست ؟

[336699]

شما یکسری کد نوشتین تا "فرم ثبت خروج بار" باز شود

همان کدها را ارسال نمایید

[teymoorei]

خدمت شما :

        frmOutConsignment.MdiParent = Me

        frmOutConsignment.Show()

[336699]

شما فرض کن یک فرم داریم و میخواهیم فرم را داخل یک پنل نمایش بدهیم.

Dim frm As Form2 = New Form2

frm.TopLevel = False

frm.FormBorderStyle = FormBorderStyle.None

frm.Dock = DockStyle.Fill

Panel1.Controls.Add(frm)

frm.Show()

[teymoorei]

شما فرض کن یک فرم داریم و میخواهیم فرم را داخل یک پنل نمایش بدهیم.

Dim frm As Form2 = New Form2

frm.TopLevel = False

frm.FormBorderStyle = FormBorderStyle.None

frm.Dock = DockStyle.Fill

Panel1.Controls.Add(frm)

frm.Show()

هیچ فرقی نکرد هنوز هموطوری باز میشه

[336699]

هیچ فرقی نکرد هنوز هموطوری باز میشه

اون قسمت خاکستری رنگ چی هستش؟ پنل هستش یا؟

[teymoorei]

سلام فرم mdiparent

[336699]

با همین کد تست کردم تمام صفحه فرم را نمایش میده.

Dim frm2 As Form = New Form2()

frm2.MdiParent = Me

frm2.Dock = DockStyle.Fill

frm2.FormBorderStyle = FormBorderStyle.None

frm2.Show()

[teymoorei]

سلام
ممنونم از لطف و پیگیری شما

اگه با کد ی که شما دادید و windowsstate = maximaize بشکل زیر نمایش میده :

444.png

[336699]

الان مشکل در طراحی همین فرم هستش

با استفاده از Anchor برای هریک از کنترل های روی فرم میتوانید تعیین کنید که وقتی فرم تغییر سایز پیدا کرد کدوم سمت قرار بگیرند.

Anchor.png

[336699]

شما این ویدیو آموزشی را نگاه کنید.

https://freebies.faradars.org/video/...9_01_trial.mp4

[teymoorei]

من نیاز به anchor ندارم و فقط میخوام زمان باز شدن فرم در درون فرم mdiparent در بالا ترین حالت ممکن باز بشه همین.

[336699]

اون قسمت سفید رنگ هم در واقع ادامه فرم ثبت خروج بار هستش که خالی مونده

شما باید فرم را طوری طراحی بکنید که با افزایش و یا کاهش ابعاد فرم، کنترل های موجود در فرم هم متناسب با اون جابجا بشن و تغییر سایز پیدا کنن تا این مشکل پیش نیاد

frm.png

[336699]

شما این فرم نمونه رو تست کن
با تغییر سایز فرم کنترلها جابجا و تغییر سایز میدن

frmtest.PNG

[teymoorei]

اون قسمت سفید رنگ هم در واقع ادامه فرم ثبت خروج بار هستش که خالی مونده

شما باید فرم را طوری طراحی بکنید که با افزایش و یا کاهش ابعاد فرم، کنترل های موجود در فرم هم متناسب با اون جابجا بشن و تغییر سایز پیدا کنن تا این مشکل پیش نیاد

frm.png

سلام مجدد ممنونم از لطف و وقتی که میذارید

اما من نمیخوام فرمم تغییر سایز داشته باشه .

فقط میخوام یه مقدار بالا تر نمایش داده بشه

تصویر زیر گویای منطورم هست :

55555.png

[336699]

در این صورت StartPosition بصورت Manual باشد و WindowState هم باید Normal باشد.

فاصله از بالا را صفر میگیریم
فاصله از طرفین هم باید بصورت اتومات محاسبه شود(عرض فرم mdi را منهای عرض فرمی که قرار است نمایش دهیم میکنیم و سپس نتیجه را تقسیم بر دو میکنیم)

Dim frm2 As Form = New Form2()

frm2.MdiParent = Me

frm2.Dock = DockStyle.None

frm2.FormBorderStyle = FormBorderStyle.None

frm2.WindowState = FormWindowState.Normal

frm2.StartPosition = FormStartPosition.Manual

Dim x As Integer = (Me.Width - frm2.Width) \ 2

frm2.Location = New Point(x, 0)

frm2.Show()

[teymoorei]

سلام هیچ فرقی نکرد و جالبه که عدد هم میدم یا هر تغییری انجام میدم بازم فرقی نمیکنه توی نحوه ی نمایش فرم

[336699]

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

[teymoorei]

سلام
تصویر پایین اسکرین شات میباشد :

7777.png

[ROSTAM2]

سلام.

1. قبل از هرچیز باید برای اشیاء فرم یک Panel داشته باشیم.
2. خصوصیت aNCHOR از pANEL رو برابر None می کنیم:
   center01.jpg
3. Panel رو انتخاب و از نوار ابزار Layout کلید Center Horizontally را می کلیکیم.
   center02.jpg
   center03.jpg

حالا با آسایش خاطر می توان ابعاد فرم را تغییر دهیم و اشیاء در وسط و بالای فرم باقی می ماند.

[teymoorei]

سلام



والا بخدا من نمخوام اشیا تغییر مکان یا تغییر سایز داشته باشن .
همه چی توی تصویر اسکرین شاتم مشخصه .
من فقط میخوام فرم فرزند در بالا ترین حالت خود (نزدیکه با حاشیه بالا) فرم پدر باشه همین .

[ROSTAM2]

سلام



والا بخدا من نمخوام اشیا تغییر مکان یا تغییر سایز داشته باشن .
همه چی توی تصویر اسکرین شاتم مشخصه .
من فقط میخوام فرم فرزند در بالا ترین حالت خود (نزدیکه با حاشیه بالا) فرم پدر باشه همین .

بهتره همیشه در حالت Maximized نگهش داری. Child Form رو می گم.

[336699]

سلام
تصویر پایین اسکرین شات میباشد :

7777.png

اون پنل کجاست که مخفی کردین در ابتدای کد؟

[teymoorei]

اون پنل کجاست که مخفی کردین در ابتدای کد؟

اون پنل چیز خاصی نیست .

یه پنله که دو تا کلید روش دارم که وقتی فرم باز میشه اون پنا visible اش false میشه

[336699]

فرم mdi خیلی داغونه

شما بجاش از پنل استفاده کنید و فرم را داخل پنل نمایش بدین.

[teymoorei]

یعنی که فرم معمولی بجای mdi بذارم و داخل فرم یه فرم دیگه باز کنم ؟

[336699]

به پست بعدی مراجعه شود.

[336699]

ابتدا در فرم اصلی isMdiContainer را غیر فعال کنید

mainform.PNG


سپس یک پنل به فرم اصلی اضافه کنید و Dock پنل را روی حالت Fill قرار دهید

panel.png

سپس با استفاده از کد زیر، فرم را داخل پنل نمایش دهید

Dim frm As Form = New Form1()

frm.TopLevel = False

frm.FormBorderStyle = FormBorderStyle.None

frm.Dock = DockStyle.Fill

Panel1.Controls.Add(frm)

frm.Show()

[336699]

البته کد بالا برای حالت تمام صفحه هستش

با کد زیر میتوان فرم را در وسط و متصل به بالای صفحه نمایش داد

Dim frm As Form = New Form1()

frm.TopLevel = False

frm.Dock = DockStyle.None

frm.FormBorderStyle = FormBorderStyle.None

frm.WindowState = FormWindowState.Normal

frm.StartPosition = FormStartPosition.Manual

Dim x As Integer = (Panel1.Width - frm.Width) \ 2

frm.Location = New Point(x, 0)

Panel1.Controls.Add(frm)

frm.Show()

[teymoorei]

سلام
ممنونم از لطف تون
آموزش جالبی بود بعد این همه سال فکر نمیکردم با یه Panel بشه همچین کاری کرد .
اما چند نکته :
1- هنوز هم فاصله کمی از فرم فرزند تا بالای فرم اصلی ایجاد میشه (البته تو یه پروژه دیگه امتحان کردم درست کارکرد) :
اینم تصویرش :
1.1.png

2- جالبه دو تا فرم رو درست باز کرد اما یه فرمم رو میبره زیر منو باز میکنه تمام تنظیمات و کد ها هم شبیه همه .
اینم تصویر فرم :
1.2.png

3- من یه StatusStrip دارم زمانی که WindowState رو روی Maximaize میذارم ، StatusStrip رو نمایش نمیده البته اگه پنجره رو کوچک تر کنم نمایش میده یعنی در حالت عادی میره زیر TaskBar .

[336699]

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

ابتدا بررسی میکنیم اگر فرم باز بود، دوباره فرم را باز نکند.

البته این مورد ربطی به اون مشکل ایجاد فاصله ندارد.

For Each f As Form In Application.OpenForms

    If f.GetType() = GetType(Form1) Then

        f.Activate()

        Return

    End If

Next



Dim frm As Form = New Form1()

frm.TopLevel = False

frm.Dock = DockStyle.None

frm.FormBorderStyle = FormBorderStyle.None

frm.WindowState = FormWindowState.Normal

frm.StartPosition = FormStartPosition.Manual

Dim x As Integer = (Panel1.Width - frm.Width) \ 2

frm.Location = New Point(x, 0)

Panel1.Controls.Add(frm)

frm.Show()

[teymoorei]

سلام
ممنونم از لطف تون
آموزش جالبی بود بعد این همه سال فکر نمیکردم با یه Panel بشه همچین کاری کرد .
اما چند نکته :
1- هنوز هم فاصله کمی از فرم فرزند تا بالای فرم اصلی ایجاد میشه (البته تو یه پروژه دیگه امتحان کردم درست کارکرد) :
اینم تصویرش :
1.1.png

2- جالبه دو تا فرم رو درست باز کرد اما یه فرمم رو میبره زیر منو باز میکنه تمام تنظیمات و کد ها هم شبیه همه .
اینم تصویر فرم :
1.2.png

3- من یه StatusStrip دارم زمانی که WindowState رو روی Maximaize میذارم ، StatusStrip رو نمایش نمیده البته اگه پنجره رو کوچک تر کنم نمایش میده یعنی در حالت عادی میره زیر TaskBar .

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

[336699]

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

همانطور خودتان هم اعلام کردین، در یک پروژه دیگه به درستی کار میکنه

یک راهش اینه که شما درصورت تمایل پروژه رو ارسال کنید ببینیم مشکل از کجاست، چون از طریق اسکرین شات هیچ کمکی نمیشه کرد.

[teymoorei]

سلام
پیام خصوصی ارسال نمیشه
اگه ممکنه یه ایمیل بدید تا پروژه رو ارسال کنم