حذف کردن Border فرم MDI

[bachemosbat]

چگونه می توان بردر فرم MDI را حذف کرد به طوری که فرم MDI بدون بردر و به صورت تمام صفحه نمایش داده شود؟

[mRizvandi]

سلام

شما می تونی از تابع API به نام SetWindowLong استفاده کنی و border فرم رو حذف کنی.
یه پیشنهاد دیگه اینکه می تونی به جای MDI از یک فرم معمولی استفاده کنی که میشه Border اون رو به هر شکلی دراورد بعد مابقی فرمها رو با استفاده از setParent داخل فرم بندازی
;-)

[bachemosbat]

SetWindowLong رو توی MSDN نگاه کردم حالا باید چه آرگومانی رو به چی تنظیم کنم؟

[mRizvandi]

سلام

شما اول باید با استفاده از تابع GetWindowLong شکل Style فرم رو بدست بیاری (مقدار برگشتی رو باید نگه داری)
بعد تابع SetWindowLong رو با پارامترهای زیر برای ست کردن شکل جدید فرم اجرا کن:
lRet = SetWindowLong (MdiFormHwnd, GWL_STYLE, NewStyle)
که NewStyle می تونه یکی از موار Style باشه که در MSDN لیست کاملش هست
اما:
اگر شما بخواید Border رو حذف کنید چون کلاس پنجره MDI با پنجره های عادی فرق داره Titlebar هم حذف میشه
این کد رو امتحان کن:

 Call SetWindowLong(Me.hwnd, GWL_STYLE, 0)

این هم یک مثال برای تغییر دادن Style پنجره:

 

  Dim lret As Long

  

  lret = GetWindowLong(Me.hwnd, GWL_STYLE)

  Call SetWindowLong(Me.hwnd, GWL_STYLE, lret Or WS_BORDER)

[bachemosbat]

ممنون از راهنماییتون