View Full Version : نمایش فرم در فرم دیگر
aleas2
پنج شنبه 12 تیر 1393, 15:22 عصر
سلام خسته نباشید چطور میتونم یه فرم در فرم دیگری نمایش بدم
ضمنا" نمیخوام از روش mdi form استفاده کنم
meys34
پنج شنبه 12 تیر 1393, 17:34 عصر
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
پنج شنبه 12 تیر 1393, 18:56 عصر
سلام
چرا در زمان اجرای کد فرم بسته میشه! اما پروسس برنامه در حال فعاليت هست؟!
vbhamed
پنج شنبه 12 تیر 1393, 20:41 عصر
سلام
براي اينكه فقط فرم 1 رو بستيد و فرم 2 رو از حافظه خارج نكردين
R2du-soft
پنج شنبه 12 تیر 1393, 21:00 عصر
ممنون مشکل با اضافه کردن 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
پنج شنبه 12 تیر 1393, 21:01 عصر
بخواهی تمام فرم ها با کلیک رو * فرم مادر همه بسته بشن باید چکار کرد؟
R2du-soft
پنج شنبه 12 تیر 1393, 21:11 عصر
بخواهی تمام فرم ها با کلیک رو * فرم مادر همه بسته بشن باید چکار کرد؟
این یک نمونه هست :
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.