نمایش فرم در فرم دیگر

[aleas2]

سلام خسته نباشید چطور میتونم یه فرم در فرم دیگری نمایش بدم
ضمنا" نمیخوام از روش mdi form استفاده کنم

[meys34]

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Command1_Click()
SetParent Me.hWnd, Form2.hWnd
End Sub

[R2du-soft]

سلام
چرا در زمان اجرای کد فرم بسته میشه! اما پروسس برنامه در حال فعاليت هست؟!

[vbhamed]

سلام
براي اينكه فقط فرم 1 رو بستيد و فرم 2 رو از حافظه خارج نكردين

[R2du-soft]

ممنون مشکل با اضافه کردن form2.show حل شد






Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Command1_Click()
Form2.Show
SetParent Form2.hWnd, Me.hWnd
End Sub







Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Command1_Click()

Dim oldhwnd As Long
Form2.Show
oldhwnd = SetParent(Form2.hWnd, Form1.hWnd)

End Sub

[aleas2]

بخواهی تمام فرم ها با کلیک رو * فرم مادر همه بسته بشن باید چکار کرد؟

[R2du-soft]

بخواهی تمام فرم ها با کلیک رو * فرم مادر همه بسته بشن باید چکار کرد؟

این یک نمونه هست :





Private Sub Form_Unload(Cancel As Integer)
Dim f As Integer
f = Forms.Count
Do While f > 0
Unload Forms(f - 1)
If f = Forms.Count Then Exit Do
f = f - 1
Loop
End Sub