MDI BackGround

[powerboy2988]

سلام
چطوری می تونم یک عکس رو واسه background یک فرم MDI انتخاب کنم که کل فرم رو در بر بگیره؟

[powerboy2988]

کسی نظری نداره؟

[H120:D]

دوست عزیز شما می تونید تو MDI Form یه دونه Image boxیا picture box رسم کنید:چشمک:

[powerboy2988]

آره همچین کاری میشه کرد اما همه فرم ها میرن زیره این picture یا image.
راه جالبی هم فکر نکنم باشه

[powerboy2988]

کسی نظری نداره؟

[HjSoft]

خوب شما ميتونيد از اون صفحه ي خودتون كه Mdi هست يك عكس بگيريد ، بعد بريد و اندازه هاش رو در Photoshop بدست بياريد و براش پشت زمينه ايجاد كنيد ، اين تنها راه ممكن است ( البته حدس ميزنم )

[powerboy2988]

بالا اشاره کردم که چی میشه

[Alireza Giba]

راهش اینه که یک فرم دیگه درست کنی که همزمان با mdi لود بشه و اندازش هم دقیق اندازه mdi باشه
بعد روی اون فرم یک picture بگذاری و در آخر هم enable فرم رو false کنی
من از این روش استفاده کردم و جواب هم داد
موفق باشی

[M_P_1374]

یه PictureBox بذارین روی فرمتون و خاصیت Visible اون رو Flase و خاصیت AutoRedraw اون رو True کنید و عکستون رو توی اون بذارین
توی Event Resize اینو بذارین


Picture1.Align = 1
Picture1.Height = Me.ScaleHeight
Picture1.PaintPicture Picture1.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
Set Me.Picture = Picture1.Image

[HjSoft]

شما مي توني با تنظيم خاصيت Picture در Mdi Form ، دقيقا اون كاري كه من كردم و انجام بدي . تست كردم و مشكلي نداشته تا به حال

[powerboy2988]

این روش ها هیچ کدوم جواب نداد ):

[HjSoft]

يعني چي ، امكان نداره ، ميشه بگين چرا تنظيم خاصيتPicture فرم Mdi كار نمي كنه ؟ ؟ ؟ لطفا فرم Mdi رو اينجا قرار بدين .

[hossein033]

دوست عزیز من هم امتحان کردم

با مشخصه ی Picture به راحتی می تونید برای فرم مادر (MDI) تصویر قرار بدید :لبخندساده:

[powerboy2988]

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

[ali-software]

سلام. فرم رو باز کن. در خصوصیت picture ان یک عکس بگذار

به همین راحتی
تشکر یادت نره

[HjSoft]

دوست عزيز ، فرم شما Minimize و maximize ميشه يا نه ؟
اگر نه ، پس ثابته ، شما ميتوني با كليد Print Screen يك عكس از فرمتون بگيري . بعد توي فتوشاپ تصوير با اون ابعاد به دست بياري و با تنظيم خاصيت Picture از Mdi ميتوني اين كار رو به راحتي انجام بدي .

[میلاد علوی]

خیلی راحت با کد زیر می تونی این کار را انجام بدی

set mdiform1.picture=loadpicture("filename")

[powerboy2988]

دوست عزيز ، فرم شما Minimize و maximize ميشه يا نه ؟
اگر نه ، پس ثابته ، شما ميتوني با كليد Print Screen يك عكس از فرمتون بگيري . بعد توي فتوشاپ تصوير با اون ابعاد به دست بياري و با تنظيم خاصيت Picture از Mdi ميتوني اين كار رو به راحتي انجام بدي .

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



خیلی راحت با کد زیر می تونی این کار را انجام بدی

set mdiform1.picture=loadpicture("filename")

این روش ها پاسخگو نیست دوست عزیز، دلیلشم در بالا اشاره شده



سلام. فرم رو باز کن. در خصوصیت picture ان یک عکس بگذار

به همین راحتی
تشکر یادت نره

میگم نمیشه!!!! :عصبانی++::عصبانی++::عصبانی++::� �صبانی++:
میشه یک مثال بزاری :متفکر::متفکر::متفکر::متفکر::� �تفکر::متفکر:

[powerboy2988]

آقا اين مشكل رو من هنوز نتونستم حل كنم

[powerboy2988]

كسي نيست كمكم كنه؟

[Babak.Hassanpour]

چرا اینقدر به خودتون زجر می دید؟
بفرمایید.کاری داشت

[powerboy2988]

آقا يك دنيا ممنون
اما يك چيزي
من مي خوام با استفاده از CommonDialog عكس پاس بدم به MDI...
سورسي كه گذاشتين تو resize فرمم گذاشتم و بعد با منو commonDialog رو باز مي كنم و عكس رو پاس مي دم اما ابعاد عكس اندازه فرم نميشه..
اين هم كد هام



Private Sub Mnu_chg_Pic_Background_Click()
CommonDialog1.ShowOpen
picOriginal.Picture = LoadPicture(CommonDialog1.FileName)
Call MDIForm_Resize
End Sub




Private Sub MDIForm_Resize()
picStretched.Move 0, 0, _
ScaleWidth, ScaleHeight

picStretched.PaintPicture _
picOriginal.Picture, _
0, 0, _
picStretched.ScaleWidth, _
picStretched.ScaleHeight, _
0, 0, _
picOriginal.ScaleWidth, _
picOriginal.ScaleHeight
Picture = picOriginal.Picture
End Sub

[powerboy2988]

چرا اینقدر به خودتون زجر می دید؟
بفرمایید.کاری داشت


ممكنه كمكم كني كه بتونم با CommonDialog عكس بزارم

[Babak.Hassanpour]

بفرما دوست من

[Artur2014]

باسلام
کلیه مطالب MDI-Form رو در فایل فشرده پروژه اون ضمیمه میکنم
لطفا دانلود و اجرا و تکمیل تر کنید و دوباره RAR شده اونو تو برنامه نویس بذارید تا استفاده کنیم
با تشکر

چون در MDI فرم والد امکان گذاشتن باتن وجود نداره از منو استتفاده کردم برای:
1-خروج و بستن کل برنامه
2-هدف برداشتن فقط کلید اگزیت فرم والد هست به شرطی که عنوان یا کپشن فرم حذف نشود
3-بوردر یا حاشیه فرم والد که اگزیت و عنوان وکناره ای فرم راشامل میشه حذف بشن اما منو باشه
4-فقط اگزیت و پشن حذف بشه ولی با موس فرم قابل گسترش باشه
5-امکان جابجایی فرم با موس از طریق Drag حذف بشه
6-عملیات بالا خنثی بشن
7-امکان تعویض تصویر زمینه فرم والد با انتختب کاربر از داخل سیستم خودش با Brows کردن با CommonDialog

8-روش "بالای همه قراردادن یا " Always On Top کردن یکی از بچه فرمها


کدهای فرم والد:
Option Explicit
Dim lStyle As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const GWL_STYLE = (-16)
Private Const WS_BORDER = &H800000
Private Const WS_CAPTION = &HC00000

Private Sub mdiPrntFrmXMnu_Click()
Unload Me
End Sub

Private Sub thoutXMnu_Click()
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE) 'Get's the WindowLong
lStyle = lStyle And Not WS_CAPTION '<--- without eXit & Caption
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
End Sub

Private Sub whtoutBorderMnu_Click()
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE) 'Get's the WindowLong
lStyle = lStyle And Not WS_BORDER '<--- without border
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
End Sub

Private Sub wthotExtBrdrMnu_Click()
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE) 'Get's the WindowLong
lStyle = lStyle And WS_BORDER And Not WS_CAPTION
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
End Sub

Private Sub unMovFrmMnu_Click()
lStyle = lStyle And Not WS_BORDER '<--- Fix Place = unMovable
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
End Sub

Private Sub CnclMnu_Click()
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE) 'Get's the WindowLong
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
End Sub
Private Sub Picture1_Resize()
Picture1.Align = 1
Picture1.Height = Me.ScaleHeight
Picture1.PaintPicture Picture1.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
Set Me.Picture = Picture1.Image
End Sub
Private Sub nwBkGrdMnu_Click()
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
Call Picture1_Resize
End Sub


کدهای فرم فرزند1:
Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const GWL_STYLE = (-16)
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Private Sub Form_Load()
Dim L As Long
L = GetWindowLong(Me.hwnd, GWL_STYLE)
L = L And Not (WS_MINIMIZEBOX)
L = L And Not (WS_MAXIMIZEBOX)
L = SetWindowLong(Me.hwnd, GWL_STYLE, L)

mdiChildFrm1.Top = 0 'MdiParentFrm.Top - 200
mdiChildFrm1.Left = 0 'MdiParentFrm.Left - 200
End Sub

Private Sub Command1_Click()
mdiChildFrm2.Top = mdiChildFrm1.Top + mdiChildFrm1.Height
mdiChildFrm2.Left = mdiChildFrm1.Left
mdiChildFrm2.Show
End Sub


کدهای فرم فرزند2:


Option Explicit

Private Sub Command1_Click()
mdiChildFrm1.Show
End Sub




9-چرا فرم فرزند دوم موقع Show شدن با باتن روی فرم فرزند1 از اندازه خودش بزرگتر میشه؟
10-چرا کدهای API که روی فرمهای ساده (غیرMDI) برای ترنسپرنت یا شفاف ردن اونا عمل میکنند روی بچه فرمهای MDI یا والد اون ار نمیکنند؟ آیا روشی موثر سراغ دارید؟
باتشکر

[darna_computer]

سلام. من یه مشکلی دارم. وقتی فرم فرزندم رو توی فرم اصلی باز میکنم، زمانی که فرم های غیر فرزند رو باز میکنم، فرم فرزندم میره پشت زمینه فرم اصلی قرار میگیره. اما من میخوام این فرم فرزند همیشه توی صفحه باشه و کاربر بتونه انو ببینه. الان هم توی برنامه م نتونستم مشکلش رو حل کنم. کسی میتونه کمک کنه؟
لینک برنامه م هم
اینجا (http://isofts.ir/MyProg/NabzSetup10.exe)
ست. اگه ببینید متوجه میشید. خیلی برام مهمه. لطفا کمک کنید.