آموزش: اجرای هر فرم از هر فولدر در وسط صفحه [بایگانی]

behrooz69

یک شنبه 18 آذر 1397, 13:56 عصر

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

mmbguide

چهارشنبه 21 آذر 1397, 09:54 صبح

سلام

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

behrooz69

پنج شنبه 22 آذر 1397, 22:11 عصر

سلام

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

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

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

mmbguide

جمعه 23 آذر 1397, 09:45 صبح

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

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

جمعه 23 آذر 1397, 17:54 عصر

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

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)

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

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