اجرای هر فرم از هر فولدر در وسط صفحه

[behrooz69]

دوستان برنامه ما مثلا 20 تا فرم داره ، و قراره همه فرم ها وسط صفحه اجرا بشن تنظیم کردن properties همه صفحات آزار دهندس ، بهترین راه چیه که بدون تنظیم هر 20 صفحه ، کاری کرد ، که همه فرم ها دیفالت Center Screen باشه ؟؟؟

[mmbguide]

سلام

یه ماژول بنویس که پارامتر ورودی اون یک متیر از نوع فرم باشه و در رویداد Load و یا Shown از هر فرمی اون ماژول رو فراخوانی کن و پارامتر اون هم Me خواهد بود و براحتی میتونی در هر فرمی استفاده کنی و چنانچه نیاز به تغییرات روی تمام فرم ها باشد، میتونی براحتی و تنها با تغییر کدهای اون ماژول، تغییرات را به تمام فرم ها ارسال کنی

[behrooz69]

سلام

یه ماژول بنویس که پارامتر ورودی اون یک متیر از نوع فرم باشه و در رویداد Load و یا Shown از هر فرمی اون ماژول رو فراخوانی کن و پارامتر اون هم Me خواهد بود و براحتی میتونی در هر فرمی استفاده کنی و چنانچه نیاز به تغییرات روی تمام فرم ها باشد، میتونی براحتی و تنها با تغییر کدهای اون ماژول، تغییرات را به تمام فرم ها ارسال کنی

ممنونم ازتون ، نمونه ای میشه مثال بزنید ؟؟


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

[mmbguide]

یه مثال ساده.
یک کلاس مطابق زیر ایجاد کردم:

Public Class frmConfig





    Public Shared Sub frmSettings(ByVal frm As Form)

        With frm

            .Location = New Point(((Screen.PrimaryScreen.WorkingArea.Width - frm.Width) / 2),

                                  ((Screen.PrimaryScreen.WorkingArea.Height - frm.Height) / 2))

            .BackColor = Color.Khaki

        End With

    End Sub





End Class

در رویداد Load کد زیر رو نوشتم:

 frmConfig.frmSettings(Me)

میشه در زمان اجرای یک فرم یک نمونه از فرم رو ارسال کرد و کلاس مربوطه یک فرم جدید بسازد و بعد نمایش بدهد.

[behrooz69]

یه مثال ساده.
یک کلاس مطابق زیر ایجاد کردم:

Public Class frmConfig





    Public Shared Sub frmSettings(ByVal frm As Form)

        With frm

            .Location = New Point(((Screen.PrimaryScreen.WorkingArea.Width - frm.Width) / 2),

                                  ((Screen.PrimaryScreen.WorkingArea.Height - frm.Height) / 2))

            .BackColor = Color.Khaki

        End With

    End Sub





End Class

در رویداد Load کد زیر رو نوشتم:

 frmConfig.frmSettings(Me)

میشه در زمان اجرای یک فرم یک نمونه از فرم رو ارسال کرد و کلاس مربوطه یک فرم جدید بسازد و بعد نمایش بدهد.

خیلی خیلی ازتون ممنونم