16 Март 2011

Как поместить одну форму в другую?

Формы |  Таги: ,

Как поместить одну форму в другую?

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

Private Sub Form_Load()
Form2.Show
SetParent Form2.hWnd, Form1.hWnd
'выравниваем форму2 по центру
Form2.Move (Form1.ScaleWidth - Form2.Width) / 2, (Form1.ScaleHeight - Form2.Height) / 2
End Sub


Оставить комментарий

Я не робот.