|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Forms/MDI)
|
|
 |
Título da Dica: Colocando um form dentro de uma picture (simulando um MDI)
|
 |
|
|
|
Postada em 22/8/2007 por ghost_jlp
Esta dica foi passado pelo colega Sandro e simula um form MDI.
Digamos que queremos o form1 seja o form principal e o form2 fique dentro dele. Para comparação é como o form1 fosse o MDIForm e o form2 o MDIChild.
Cole isso em um .BAS (módulo):
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
No form1 coloque um botão e cole o código a seguir:
Dim HWNDAnt As Long
Private Sub Command1_Click()
'Restaurando o "Parent" padrão
SetParent Form2.hwnd, HWNDAnt
End Sub
Private Sub Form_Load()
HWNDAnt = GetParent(Form1.hwnd)
SetParent Form2.hwnd, Form1.hwnd
Form2.Show
End Sub
Isso também serve para um picture. Caso vc queira colocar um form dentro de uma picture substitua o form1 pela picture no exemplo acima:
Private Sub Form_Load()
HWNDAnt = GetParent(Picture1.hwnd)
SetParent Form2.hwnd, Picture1.hwnd
Form2.Show
End Sub
Obrigado mais uma vez ao Sandro
até a próxima!
|
|
|
|
|
